DC 인사이드의 여친겔 긁어오기...

h2h1995의 이미지

예전에 어떤 분이 python 용으로 만들어 놓은걸 본적이 있습니다.

저는 간단히 Tcl로 구현해 봤습니다.

음.. 기존것과는 조금은 다르게..

페이지를 기준으로 동작하며, (기존것은 게시물 번호)

페이지내에 존재하는 이미지는 다 긁어옵니다.

복수개의 페이지를 지정할수 있습니다.

1 페이지를 지정하시면 가장 최근의 여친겔을 보실수 있습니다.

몇일후에 시간이 나는 대로 GUI를 입히고, 다운로드도 가능하도록 할 것이며, 단독실행파일로도 만들예정입니다..

어디까지나 장난삼아 만든것입니다..

참고로 김태희 갤러리를 긁어다가 룸메이트에게 보여주니.. 좋아하더군요..

첨부파일로 김태희 갤러리(1-5페이지) html 파일 올립니다..

set baseUrl "http://kr.dcinside1.imagesearch.yahoo.com/zb40/"
set board "zboard.php?id="
set pageUrl "&banner=&page="
set boardName "girl"

package require http

file delete dcGallery.html

proc write { url} {
	set h [open "dcGallery.html" a]
	puts $h "<img src=$url><br>"
	close $h
}

puts "여친 겔러리 인덱스 파일 분석중..."

proc pageParse { pageUrl } {
	variable baseUrl

	set token [::http::geturl $pageUrl]
	set html [::http::data $token]
	set pattern {<a href="zboard?([/]*)"?[^>]*>}

	foreach url [regexp -all -nocase -inline $pattern $html] {
		if { [string length $url] > 0 } {
			set url $baseUrl[lindex [split $url \"] 1]
			postParse $url
		}
	}
}

proc postParse { url } {
	variable baseUrl

	set token [::http::geturl $url]
	set html [::http::data $token]
	set pattern {<img src=http://kr.img.dc.yahoo.com/b1/data/girl"?([/]*)"?[^>]*>}

	foreach url [regexp -all -nocase -inline $pattern $html] {
		if { [string length $url] > 1 } {
			set url [lindex [split [lindex [split $url] 1] =] 1]
			set url [encoding convertfrom cp949 $url]
			puts "\t$url"
			write $url
		}
	}
}

foreach pageNo [list 1 2 3 4 5] {
	puts "\[$pageNo 페이지 분석중...\]"
	pageParse "$baseUrl$board$boardName$pageUrl$pageNo"
}
File attachments: 
첨부파일 크기
HTML icon taehee.html20.24 KB
Image icon err.JPG47.26 KB
Forums: 
kirrie의 이미지

전.. 왠지 파싱이 제일 어렵더군요..
프로그래밍에 기본 개념이 없어서 그런가;;
정규식도 제대로 공부해본 적이 없고.. 휴우.

암튼 코드보단 첨부파일이 참 착한(?) 글이었습니다~ ^^

--->
데비안 & 우분투로 대동단결!

magellan의 이미지

흐미.. 첨부파일 보다가 늦잠 자게 생겼습니다. -_-;;

======
comeng

qprk의 이미지

어떻게 실행하면 되나요?

코딩이라곤 c 밖에 할줄 몰라서 -.-

멋진남자...

h2h1995의 이미지

GUI를 입혀봤습니다..

이미지를 직접 다운로드에 조금은 문제가 있지만...

그래도 쓸만 하실겁니다...

아래의 페이지에서 다운로드 받으세요..

참고로 이번 GUI는 윈도우즈 XP 이상에서만 실행됩니다..

그리고 이미지를 다운로드시에는 현재 실행된 위치로 복사됩니다.

귀차니즘때문에 다운로드 경로 지정하는것을 넣지 않았습니다.

시간에 되면 다음 버전에 기능을 추가후 다시 릴리즈 하겠습니다.

http://sukihaki.net/dbwiki/index.php/DC%20Inside%20Gallery%20Downloader

----------------
http://tcltk.co.kr

punkbug의 이미지

이야.. 이거 재미있는데요.
좀 건드니.. 레이싱걸겔사진이 쫘르륵..ㅎㅎ

감사합니다.

newbie :$

까뮤의 이미지

레겔과 근영겔도 추가해주세요오오오~ +_+

me.brain.flush()

ydhoney의 이미지

중간에 한혜진 사진 있다!! *_*

(이것은 필시 MAXIM의 영향;; )

joohyun의 이미지

binary가 이상하게 잘 작동이 안되네요..

코드 살짝 바꿔서 racinggirl 게시판에서 긁어오고 있는데..
아주 좋네요..ㅎㅎ

tcl에 흥미가 생기는군요.ㅎㅎ

재수생
전주현

h2h1995의 이미지

여러분의 성원에 힘입어 지원 갤러리를 추가 히였습니다. 지원되는 갤러리는 다음과 같습니다.

여친 갤러리 / 김태희 갤러리 / 문근영 갤러리 / 한채영 갤러리 / 레이싱걸 갤러리

그리고 이미지를 다운로드시 그리고 html 생성시 지정된 디렉토리 생성되는 기능도 추가하였습니다.

그리고 윈도우즈 XP 에서만 실행이 됩니다.

다운로드는 아래의 링크에서 받으세요.

http://sukihaki.net/dbwiki/index.php/DC%20Inside%20Gallery%20Downloader

----------------
http://tcltk.co.kr

익명 사용자의 이미지

xp만 좋아하시궁 2000은 미워하셩 :( :arrow:

h2h1995의 이미지

스킨이 xp만 지원하는 스킨이라 그렇습니다..

xp만 지원되는 스킨은 빼고 모든 윈도우즈에서 지원되는 스킨을 사용해서 빌드했습니다.

xp뿐만 아니라 2000에서도 작동될것입니다.

다시 다운 받아보세요..

http://sukihaki.net/dbwiki/pds/dcinside.exe

----------------
http://tcltk.co.kr

philossh의 이미지

저는왜 이런 에러가 날까요??

댓글 첨부 파일: 
첨부파일 크기
Image icon 0바이트

To be or not to be.
That is the question.

익명 사용자의 이미지

philossh wrote:
저는왜 이런 에러가 날까요??

다운 링크 누르고 실행으로 하지 마시고
하드 적당한곳에 저장하고 해보세요-

philossh의 이미지

흐흐흐.. 켈켈.. :D

To be or not to be.
That is the question.

익명 사용자의 이미지

김태희

골반이 명품이군요....

나이스 골반입니다.

익명 사용자의 이미지

몇차례 테스트 해본 결과,

kldp.net나 sf.net에
신규프로젝트 등록을 심각히 고려해볼만하는 결론을 내렸습니다.

잇힝~

Twinsen의 이미지

대단하십니다..ㅋㅋ :D

익명 사용자의 이미지

겔러리를 사용자정의할 수 있는 UI가 있으면 더 좋겠네요.
겔러리 추가/삭제 및 설정값(baseUrl) 수정 등...

j23hp5e의 이미지

베리굿입니다 ^^

현명하고 빠른 e-business 인프라 솔루션을 원하십니까?
엄마한테 쫄라봐라 ㅡ_ㅡ/~

소타의 이미지

손넘 wrote:
겔러리를 사용자정의할 수 있는 UI가 있으면 더 좋겠네요.
겔러리 추가/삭제 및 설정값(baseUrl) 수정 등...

누드갤을 염두에 두신것.. 맞지요 ( -_);
사실 제가 그 요청을 하러 왔습니다;;

김준경의 이미지

다음 버전엔 임수정이 공식(?) 겔러리 리스트에 등록되길 바라며..

h2h1995의 이미지

다음버전엔 갤러리를 동적으로 추가할수 있도록 하겠습니다.

----------------
http://tcltk.co.kr

returnet의 이미지

그..그것보다 사실은 세션과 쿠키를 지원하는 방향이 필요하지 아니한가 하는 짧은 소견이.. *^.^* (발그레)

익명 사용자의 이미지

네트워크가 프록시로 막혔습니다~~~

프록시 세팅해서 다운 가능하도록 기능개선 요청드립니다 :)

익명 사용자의 이미지

웅.. 몇페이지 걸어놓고 받아봤는데 사진이 중간쯤에서 짤려서 받아지는게 꽤 있네요..

저만그런가요?.. -_-;; 쩝..

하여간..굳~ 입니다 ^^

까뮤의 이미지

헉! 한채영 갤러리가 언제부터 있었나요? +_+

me.brain.flush()

h2h1995의 이미지

짤려 지는 문제가 있군요..

조속히 고치도록 하겠습니다...

----------------
http://tcltk.co.kr

h2h1995의 이미지

완전한 소스를 올립니다.

소스를 받아서 보셔도 되겠지만...

혹시 소스를 보시고..

개선할점이나 직접 개선해 주실분은 참고 바랍니다.

set libdir [file join $starkit::topdir lib]

lappend auto_path $libdir
#lappend auto_path .

package require tile
package require http

namespace import -force tile::*

tile::setTheme winnative

wm title . "DC Inside Gallery Downloader 1.1"

proc insertText { str } {
	variable text

	$text insert end $str
	$text see end
}

proc writeHtml { url } {
	variable gallery
	variable downloadto

	set file [file normalize "$downloadto/$gallery\.html"]
	set h [open $file a]
	puts $h "<img src=$url><br>"
	close $h
}
	
proc pageParse { pageUrl } {
	variable baseUrl
	variable is_stop

	set token [::http::geturl $pageUrl]
	set html [::http::data $token]
	set pattern {<a href="zboard?([/]*)"?[^>]*>}

	foreach url [regexp -all -nocase -inline $pattern $html] {
		if { $is_stop == 1 } break

		if { [string length $url] > 0 } {
			set url $baseUrl[lindex [split $url \"] 1]
			postParse $url
		}
	}
}

proc postParse { url } {
	variable baseUrl
	
	variable gallery

	variable is_html
	variable is_down

	variable is_stop

	set token [::http::geturl $url]
	set html [::http::data $token]

	switch $gallery {
		"girl" { set pattern {<img src=http://kr.img.dc.yahoo.com/b1/data/girl"?([/]*)"?[^>]*>} }
		"taehee" { set pattern {<img src=http://kr.img.dc.yahoo.com/b5/data/taehee"?([/]*)"?[^>]*>} }
		"racinggirl" { set pattern {<img src=http://kr.img.dc.yahoo.com/b3/data/racinggirl"?([/]*)"?[^>]*>} }
		"moon" { set pattern {<img src=http://kr.img.dc.yahoo.com/b5/data/moon"?([/]*)"?[^>]*>} }
		"hancy" { set pattern {<img src=http://kr.img.dc.yahoo.com/b1/data/hancy"?([/]*)"?[^>]*>} }
	}

	foreach url [regexp -all -nocase -inline $pattern $html] {
		if { $is_stop == 1 } break

		if { [string length $url] > 1 } {
			set url [lindex [split [lindex [split $url] 1] =] 1]
			set url [encoding convertfrom cp949 $url]
			
			if { $is_html == 1 } {		
				writeHtml $url
			}
         
			if { $is_down == 1 } {
				after 0 [list getUrl $url]
			}
		}
	}
}

proc getUrl {url} {
	variable progresssourcelabel
	variable progressdownloadtolabel
	variable downloadto
	variable data

	regexp {http://.*/([^/]+)$} $url -> file
	
	set validate [::http::geturl $url -validate 1]
		
	set file [file normalize "$downloadto/$file"]
	$progresssourcelabel configure -text "Image From : $url"
	$progressdownloadtolabel configure -text "Download To : $file"

	set fid [open $file w]
	fconfigure $fid -translation binary -encoding binary

	set token [::http::geturl $url \
		-timeout 10000 \
		-channel $fid \
		-progress [list [namespace code progress]] \
		-command [list [namespace code cleanup] $url $fid]]
	
	set data($token,fid) $fid
	set data($token,url) $url

}

proc progress {token expected received} {
	variable progress
	variable ctoken

	set ctoken $token

	if {$expected == 0} { return }
	set percent [expr {int(100.0 * (double($received)/double($expected)))}]

	$progress configure -value $percent
}

proc cleanup {url fid token} {
	variable data

	if {[http::status $token] != "Cancelled"} {
		if {[http::ncode $token] == 301 || [http::ncode $token] == 302} {
			http::cleanup $token
			after 0 [list getUrl $data($token,url)]
			return
		} elseif {[string match 2?? [http::ncode $token]]} {
			insertText "$data($token,url) .. Done. ([expr [http::size $token] / 1024] Kbytes.)\n"
			http::cleanup $token
			close $data($token,fid)

		} else {
			insertText "ERROR: [http::ncode $token] [http::status $token])\n"
		}
	}
}

proc stop { } {
	variable ctoken
	variable is_stop

	if [info exist ctoken] {
		http::reset $ctoken "Cancelled"
	}

	set is_stop 1
}

proc start { } {
	variable baseUrl
	variable board
	variable boardName
	variable pageUrl

	variable startbutton
	variable stopbutton 
	variable exitbutton
	variable galleryradio

	variable downloadcheckbutton
	variable htmlcheckbutton

	variable downloadtoentry
	variable downloadtobutton

	variable gallery
	variable is_down
	variable is_html
	variable is_stop
	
	variable frompage
	variable topage
	variable downloadto
	
	variable frompagespinbox
	variable topagespinbox

	set is_stop 0

	$frompagespinbox configure -state disabled
	$topagespinbox configure -state disabled
	$startbutton configure -state disabled
	$stopbutton configure -state normal
	$exitbutton configure -state disabled
	$galleryradio(girl) state disabled
	$galleryradio(taehee) state disabled
	$galleryradio(racinggirl) state disabled
	$galleryradio(moon) state disabled
	$galleryradio(hancy) state disabled
	$downloadcheckbutton state disabled
	$htmlcheckbutton state disabled
	$downloadtoentry configure -state disabled
	$downloadtobutton configure -state disabled

	set file [file normalize "$downloadto/$gallery\.html"]
	file delete $file

	set board "zboard.php?id="
	set pageUrl "&page="
	set boardName $gallery

	switch $gallery {
		"girl" { set baseUrl "http://kr.dcinside1.imagesearch.yahoo.com/zb40/" }
		"taehee" { set baseUrl "http://kr.dcinside5.imagesearch.yahoo.com/zb40/" }
		"racinggirl" { set baseUrl "http://kr.dcinside3.imagesearch.yahoo.com/zb40/" }
		"moon" { set baseUrl "http://kr.dcinside5.imagesearch.yahoo.com/zb40/" }
		"hancy" { set baseUrl "http://kr.dcinside1.imagesearch.yahoo.com/zb40/" }
	}
	
	for { set pageNo $frompage } { $pageNo <= $topage } { incr pageNo } {
		if { $is_stop == 1 } break

		insertText "$pageNo 페이지 분석 중 ...\n"

		pageParse "$baseUrl$board$boardName$pageUrl$pageNo"

		if { $is_stop == 1 } {
			insertText "정지 !!\n"
		} {
			insertText "완료 !!\n"
		}
	}

	$startbutton configure -state normal
	$stopbutton configure -state disabled
	$exitbutton configure -state normal
	$galleryradio(girl) state !disabled
	$galleryradio(taehee) state !disabled
	$galleryradio(racinggirl) state !disabled
	$galleryradio(moon) state !disabled
	$galleryradio(hancy) state !disabled
	$downloadcheckbutton state !disabled
	$htmlcheckbutton state !disabled
	$frompagespinbox configure -state normal
	$topagespinbox configure -state normal
	$downloadtoentry configure -state !disabled
	$downloadtobutton configure -state !disabled
}

proc about { } {
	tk_messageBox -title "About" \
		-message \
		" DC Inside Gallery Downloader 1.1\n\n\
		Written in Tcl/Tk\n\n\
		제작자 : 민인학 (haki@sukihaki.net)\n\n\
		Tcl/Tk Korea Community (http://tcltk.co.kr)  "
}

proc validateNumber { } {
	variable frompage
	variable topage

	variable frompagespinbox
	variable topagespinbox

	if { $frompage > $topage } {
		$topagespinbox set $frompage
	}
}

proc nokey { } {
	bell
	return 0
}

proc usekey { } {
	return 1
}

proc DcGallery { } {
	variable startbutton
	variable stopbutton 
	variable exitbutton

	variable galleryradio
	variable downloadcheckbutton
	variable htmlcheckbutton
	
	variable downloadtoentry
	variable downloadtobutton

	variable text

	variable gallery
	variable is_down
	variable is_html

	variable progress
	variable progresssourcelabel
	variable progressdownloadtolabel

	variable frompage
	variable topage

	variable frompagespinbox
	variable topagespinbox

	set top [frame .top]

	set topleftframe [frame $top.topleftframe]
	
	# 페이지
	set pageframe [labelframe $topleftframe.pageframe -text "Page"]
	set frompagelabel [label $pageframe.frompagelabel -text "From : "]
	pack $frompagelabel -side left
	set frompagespinbox [spinbox $pageframe.frompagespinbox \
		-textvariable frompage \
		-state readonly \
		-from 1 -to 9999 -increment 1 -width 4 \
		-command validateNumber
	]
	pack $frompagespinbox -side left
	set topagelabel [label $pageframe.topagelabel -text "  To : "]
	pack $topagelabel -side left
	set topagespinbox [spinbox $pageframe.topagespinbox \
		-textvariable topage \
		-state readonly \
		-from 1 -to 9999 -increment 1 -width 4 \
		-command validateNumber
	]
	pack $topagespinbox -side left
	pack $pageframe -side top -fill x

	# 갤러리 선택
	set galleryframe [labelframe $topleftframe.galleryframe -text "Gallery"]
	set galleryradio(girl) [radiobutton $galleryframe.galleryradio(girl) \
		-text "여친/애인 갤러리" -variable gallery -value girl]
	pack $galleryradio(girl) -side top -anchor nw
	set galleryradio(taehee) [radiobutton $galleryframe.galleryradio(taehee) \
		-text "김태희 갤러리" -variable gallery -value taehee]
	pack $galleryradio(taehee) -side top -anchor nw
	set galleryradio(racinggirl) [radiobutton $galleryframe.galleryradio(racinggirl) \
		-text "레이싱걸 갤러리" -variable gallery -value racinggirl]
	pack $galleryradio(racinggirl) -side top -anchor nw
	set galleryradio(moon) [radiobutton $galleryframe.galleryradio(moon) \
		-text "문근영 갤러리" -variable gallery -value moon]
	pack $galleryradio(moon) -side top -anchor nw
	set galleryradio(hancy) [radiobutton $galleryframe.galleryradio(hancy) \
		-text "한채영 갤러리" -variable gallery -value hancy]
	pack $galleryradio(hancy) -side top -anchor nw
	pack $galleryframe -side top -fill y -fill x -anchor nw -expand true
	
	$galleryradio(girl) invoke
	
	pack $topleftframe -anchor nw -side left -fill y -padx 3


	# 로그 영역
	set topright [labelframe $top.topright -text "Log"]
	set text [text $topright.text -height 20 -font {굴림체 9}]
	pack $text -fill both -expand true -padx 3 -pady 3
	pack $topright -side left -fill both -expand true -padx 3

	pack $top -side top -fill both -expand true

	# 진행상황
	set center [labelframe .center]

	set htmlframe [frame $center.htmlframe]
	set htmlcheckbutton [checkbutton $htmlframe.htmlcheckbutton \
		-text "Write HTML" -variable is_html]
	pack $htmlcheckbutton -side left
	pack $htmlframe -side top -fill x
	
	set downloadframe [frame $center.downloadframe]
	set downloadcheckbutton [checkbutton $downloadframe.downloadcheckbutton \
		-text "Download Image" -variable is_down]
	pack $downloadcheckbutton -side left
	
	set downloadtoframe [frame $downloadframe.downloadtoframe -width 10]
	set downloadtoentry [entry $downloadframe.downloadtoentry -width 70 \
		-textvariable downloadto]
	set downloadtobutton [button $downloadframe.downloadtobutton -text "..." -width 3 -command {
			set dir [tk_chooseDirectory]
			if { $dir != "" } {
				$downloadtoentry configure -validatecommand  { usekey }
				$downloadtoentry delete 0 end
				$downloadtoentry insert 0 $dir
				$downloadtoentry configure -validate key -validatecommand  { nokey }
			}
		}
	]
	pack $downloadtoframe $downloadtoentry $downloadtobutton -side left
	pack $downloadframe -side top -fill x

	$downloadtoentry insert 0 [pwd]
	$downloadtoentry configure -validate key -validatecommand  { nokey }
	
	$htmlcheckbutton invoke
	set is_down 0

	set progressframe [labelframe $center.progressframe]
	set progresssourcelabel [label $progressframe.progresssourcelabel -text "Image From :"]
	pack $progresssourcelabel -side top -anchor nw -padx 3
	set progressdownloadtolabel [label $progressframe.progressdownloadtolabel -text "Download To :"]
	pack $progressdownloadtolabel -side top -anchor nw -padx 3
	set progress [ttk::progressbar $progressframe.progress \
		-orient horizontal -maximum 100]
	pack $progress -side top -fill x -pady 3 -padx 3
	pack $progressframe -side top -fill x

	pack $center -side top -fill x -padx 3

	# 버튼
	set bottom [frame .bottom]
	set exitbutton [button $bottom.exitbutton -text "Exit" \
		-command { exit } ]
	pack $exitbutton -side right -padx 5
	set stopbutton [button $bottom.stopbutton -text "Stop" \
		-command { stop } ]
	pack $stopbutton -side right
	set startbutton [button $bottom.startbutton -text "Start" \
		-command { start } ]
	pack $startbutton -side right
	set aboutbutton [button $bottom.aboutbutton -text "About" \
		-command { about } ]
	pack $aboutbutton -side left -anchor nw
	pack $bottom -side top -fill x -pady 3 -padx 3

	$stopbutton configure -state disabled
}

DcGallery

----------------
http://tcltk.co.kr

익명 사용자의 이미지

달려라~

kicom95의 이미지

returnet wrote:
그..그것보다 사실은 세션과 쿠키를 지원하는 방향이 필요하지 아니한가 하는 짧은 소견이.. *^.^* (발그레)

성인 인증이 HTTPS 이군요

SSL 도 알아야 하구 HTTPS 도 알아야 하구....

그래서 쿠키값을 가져오면

그다음부터 HTTP 를 하면 되긴 되는데요 ^^

ㅎㅎㅎ ^^ 라이브러리 하나 만들어 볼까요 ?

가자 해외로 ~ .. 돈 벌러.

익명 사용자의 이미지

kicom95 wrote:
returnet wrote:
그..그것보다 사실은 세션과 쿠키를 지원하는 방향이 필요하지 아니한가 하는 짧은 소견이.. *^.^* (발그레)

성인 인증이 HTTPS 이군요

SSL 도 알아야 하구 HTTPS 도 알아야 하구....

그래서 쿠키값을 가져오면

그다음부터 HTTP 를 하면 되긴 되는데요 ^^

ㅎㅎㅎ ^^ 라이브러리 하나 만들어 볼까요 ?

한번 작업해 주시겠어요? 발그레2

kicom95의 이미지

솔직히 HTTP 는 좀하지만 :lol:

HTTPS 는 문외한 입니다. TCL 도 당근히 문외안

http://www.flightlab.com/~joe/gutter/doc/tls-1.4/tls.htm#HTTPS%20EXAMPLE

에 가보면... https 도 있군요.....

성인 갤러리는 주민번호와 이름만 받는 코너를 두고... ^^

받아오게 하면 좋을듯 하네요 ㅎㅎㅎ

정원하시면 좀 시간이 걸리더라구 C 로.... :twisted:

가자 해외로 ~ .. 돈 벌러.

앙마의 이미지

kicom95 wrote:
솔직히 HTTP 는 좀하지만 :lol:

HTTPS 는 문외한 입니다. TCL 도 당근히 문외안

http://www.flightlab.com/~joe/gutter/doc/tls-1.4/tls.htm#HTTPS%20EXAMPLE

에 가보면... https 도 있군요.....

성인 갤러리는 주민번호와 이름만 받는 코너를 두고... ^^

받아오게 하면 좋을듯 하네요 ㅎㅎㅎ

정원하시면 좀 시간이 걸리더라구 C 로.... :twisted:

매우 :twisted: 원해요.

autography

인간에게는 자신의 운명을 거부할 권리가 있다.

익명 사용자의 이미지

이영애 갤러리도 추가해주세요.

익명 사용자의 이미지

한번 start하면 지정된 페이지를 긁고 끝이 나는군요.. 혹시 이미지 다운로드 후 자동으로 재검색해서 다운로드받도록 할 수는 없을까요?

익명 사용자의 이미지

html파일을 불러올 때 부하가 무척 많이 걸리는군요.
그리고 파일을 다운로드하면 중간정도까지만 받아지고 그 아랫부분은 회색으로(덜 받아진) 보이는데 왜 그런지 모르겠네요.
그래도 문근영씨 사진을 잔뜩 구할 수 있어서 참 좋았습니다. ㅋㅋ

bus710의 이미지

이토록 호응이 높은 프로젝트는 없었다..... 8)

life is only one time

corzin의 이미지

너무 유용한 자료군요 퍼가도록 하겠습니다

익명 사용자의 이미지

HTML 파일은 잘 저장이 되는데 이미지는 중간에 짤리는 경우가 있어서 소스 분석해서 MFC로 다시 만들어봤습니다.
일단은 테스트 버전으로 레이싱걸 게시판의 사진만 가져옵니다.

사용법은 명령프롬프트를 열어서
>GetRacingGirl 시작페이지번호(1이상) 종료페이지번호
형식으로 입력합니다.

다운로드한 이미지 파일은 실행모듈이 있는 폴더에 저장됩니다.
앞으로 수정한 버전은 홈페이지의 자작프로그램 자료실에 올려놓겠습니다.

●다운로드
http://www.geocities.jp/winvibe/GetRacingGirl.zip
(마우스 오른쪽버튼을 눌러서 "다른 이름으로 대상저장"으로 저장할것)
●홈페이지
http://cafe.naver.com/winvibe.cafe

joohyun의 이미지

유레카 wrote:
....
앞으로 수정한 버전은 홈페이지의 자작프로그램 자료실에 올려놓겠습니다....

카페에 가입하라는 말씀이시군요..oTL

재수생
전주현

h2h1995의 이미지

이런글을 올리는것도 이상하지만..

현재 kldp 프로젝트에

이 프로그램을 등록해 두었습니다.

이번에는 제대로 동작하는..

쓸만한 프로그램으로 만들어 보고자 입니다..

현재는 다운받은 이미지 보기 기능도 자체적으로 내장하고자 합니다.

개선사항이나.. 추가되었으면 하는 기능이 있으시면..

리플을 달아주세요...

그럼..

----------------
http://tcltk.co.kr

댓글 달기

Filtered HTML

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

BBCode

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param>
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

Textile

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • You can use Textile markup to format text.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Markdown

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • Quick Tips:
    • Two or more spaces at a line's end = Line break
    • Double returns = Paragraph
    • *Single asterisks* or _single underscores_ = Emphasis
    • **Double** or __double__ = Strong
    • This is [a link](http://the.link.example.com "The optional title text")
    For complete details on the Markdown syntax, see the Markdown documentation and Markdown Extra documentation for tables, footnotes, and more.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Plain text

  • HTML 태그를 사용할 수 없습니다.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 줄과 단락은 자동으로 분리됩니다.
댓글 첨부 파일
이 댓글에 이미지나 파일을 업로드 합니다.
파일 크기는 8 MB보다 작아야 합니다.
허용할 파일 형식: txt pdf doc xls gif jpg jpeg mp3 png rar zip.
CAPTCHA
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.