수다닷컴

안녕하세요
여기 사이트 도움으로 정말 많은 도움을 얻어서 너무 감사하게 생각합니다
다름이 아니라 여기 자료실에 있는 소스거든요
이렇게 소스 일부분 쓰는거 개인적인 용도이니 이해바랍니다
다름이 아니라

ie.open get, http://image.search.naver.com/search.naver?where=image§ion=image&res_fr=0&res_to=0&merge=0&sort=0&sm=tab
이부분을 수정해서 구글과 다음 이미지도 좀 추출하고 싶은데
어떻게 수정해야 하는지 감이 않와서요
부탁좀 드릴께요
하는일이 많다 보니 마음이 급해져서 질문만 드려봅니다 private sub cmdsearch_click()
if txts = then msgbox 검색어를 입력하세요, vbcritical, naver image downloader: exit sub
cmdsearch.enabled = false

q = 0
x = 1
for z = 1 to txtpage
if z 1 then
x = (z * 30) - 29
end if

ie.open get, http://image.search.naver.com/search.naver?where=image§ion=image&res_fr=0&res_to=0&merge=0&sort=0&sm=tab_pge&query= & uft(txts) & &display=30&start= & x & &site=
ie.send
temp = strconv(ie.responsebody, vbunicode)
for i = 1 to 30
q = q + 1
url() = split(temp, thumbnails?q=)
fs = instr(url(i), .jpg)
url(i) = left(url(i), fs + 3)
if dir$(app.path & \ & txts, 16) then
call downloadfile(url(i), app.path & \ & txts & \ & q & .jpg)
else
foldercreate (app.path & \ & txts)
call downloadfile(url(i), app.path & \ & txts & \ & q & .jpg)
end if
next
next
cmdsearch.enabled = true
end sub

신청하기