Wyszukiwarka Google z prokurentem?

[yakamozpc]

Nie znam język Jestem z Turcji 

 

English:How do I make calls with proxy list

polski:Jak mogę wykonywać połączenia z listy proxy

 

http://brugbart.com/autoit-proxy-winhttprequest

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 616, 489, 266, 138)
$KQ = GUICtrlCreateEdit("", 16, 312, 585, 161)
GUICtrlSetData(-1, "")
$Run = GUICtrlCreateButton("Google Scraper", 24, 32, 91, 25)
$dorklist = GUICtrlCreateEdit("", 16, 96, 297, 169)
GUICtrlSetData(-1, "")
$proxylist = GUICtrlCreateEdit("", 328, 96, 273, 169)
GUICtrlSetData(-1, "")
$Label1 = GUICtrlCreateLabel("words to search", 20, 74, 118, 17)
$Label2 = GUICtrlCreateLabel("Proxy List", 552, 72, 49, 17)
$Label3 = GUICtrlCreateLabel("Results Url", 24, 288, 55, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Run
            Get()

    EndSwitch
WEnd


Func Get()
    $baselink = "https://www.google.com.vn/search?output=search&sclient=psy-ab"
    $search = "SEARCH TEXT"
    $results = ""
    for $i=0 to 100 step 10
        $currentlink = $baselink&"&q="&$search&"&start="&$i
        $source = _InetGetSource($currentlink)
        $eachlink = _StringBetween($source,'<a href="/url?q=','&sa=U')
        if isArray($eachlink) then
            for $z=0 to ubound($eachlink)-1
                If StringInStr($eachlink[$z], "://") Then
                    $Link = $eachlink[$z]
                    $results &= $Link&@CRLF
                    GUICtrlSetData ($KQ, $results)
                EndIf
            next
        endif
    Sleep(10000)
    next
EndFunc