ÇÁ·Î±×·¡¹Ö °í¼öºÐµé µµ¿òÀÌ Á» ÇÊ¿äÇؼ­¿ä

   Á¶È¸ 6719   Ãßõ 0    

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
ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.
ned3y2k 2010-11
query ºÎºÐÀÌ ½ÇÁ¦·Î ÅؽºÆ®°¡ µé¾î°¡´Â ºÎºÐÀÌÀÚ³ª¿ä? À̺κРµÚ¿¡¸¸ ³²±â±¸ ÀüºÎ ¹Ù²Ù¾î ÁÖ¸é µÉµíÇѵ¥¿ä.
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

¾î·ÆÁö ¾ÊÀº ºÎºÐÀε¥ Àß ÀÌÇØ ¾ÈµÇ¸é ´Ù½Ã Áú¹®ÇØÁÖ¼¼¿ä.
Á¶ÀçÇö 2010-11
Äõ¸®·Î  °Ë»öÇؼ­
URL() = Split(Temp, "thumbnails?q=")
´Ù¸£´øµ¥ À̺κÐÀº ¾î¶»°Ô ó¸® ÇØ¾ß Çϳª¿ä
Á¶ÀçÇö 2010-11
ÆäÀÌÁö µµ ±¸ºÐµµ ÇØ¾ß ÇÏ°í Á» ÀÌÇØÇϱ⠾î·Æ´õ¶ó±¸¿ä
ned3y2k 2010-11
³×ÀÌÆ®¿Â ned3y2k@nate.comÀÔ´Ï´Ù.=_-


QnA
Á¦¸ñPage 3912/5687
2014-05   4998232   Á¤ÀºÁØ1
2015-12   1534075   ¹é¸Þ°¡
2010-11   8789   Áö»ê
2010-11   7896   °í»óÇö
2010-11   6415   °ú°ÅÁö»ç
2010-11   9522   °ÇÈ£¾Æºü
2010-11   10191   ·Î±×¾Æ¿ô
2010-11   9635   µÎÆ÷¸®
2010-11   11028   ¾çâ±Ç
2010-11   8429   ¾Æ¸§´Ù¿î³ëÀ»
2010-11   7841   ¿ÀŽÂ
2010-11   11485   ¸Ó·Î¿ì
2010-11   7145   µµ¼®¸²lÁö³ª°¡´Â¹Ù¶÷ó·³
2010-11   6720   °¡ºü·Î±¸³ª
2010-11   9563   ¾Æ¸§´Ù¿î³ëÀ»
2010-11   8068   õ¾ÈÁ¤¼ºÈÆ
2010-11   28299   ¹Ú
2010-11   12838   jore
2010-11   8461   ºí·ç¿µ»ó
2010-11   33056   ÀÌÈ¿Áß
2010-11   9173   2CPUÃÖÁÖÈñ
2010-11   10345   ÀϹÝÀ¯Àú