이부분을 수정해서 구글과 다음 이미지도 좀 추출하고 싶은데
어떻게 수정해야 하는지 감이 않와서요
부탁좀 드릴께요
하는일이 많다 보니 마음이 급해져서 질문만 드려봅니다
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
http://www.google.co.kr/images?hl=ko&source=imghp&biw=1280&bih=709&q=<À̺κР¹Ù²î¾î¾ß ÇÕ´Ï´Ù>&gbv=2&aq=f&aqi=&aql=&oq=&gs_rfai=
http://search.daum.net/search?w=img&q=<À̺κР¹Ù²î¾î¾ß ÇÕ´Ï´Ù>&autocvt=0
¾î·ÆÁö ¾ÊÀº ºÎºÐÀε¥ Àß ÀÌÇØ ¾ÈµÇ¸é ´Ù½Ã Áú¹®ÇØÁÖ¼¼¿ä.
URL() = Split(Temp, "thumbnails?q=")
´Ù¸£´øµ¥ À̺κÐÀº ¾î¶»°Ô ó¸® ÇØ¾ß Çϳª¿ä