Pobieranie Strony Po Przez Proxy

[matiszon]

Pobieranie strony po przez proxy z wykorzystaniem COM'u WinHttpRequest

 

Przykład 1 (pojedyncze wejście):

MsgBox(0, "", pobierz_przez_proxy("http://whatismyipaddress.com/", "41.191.236.70:8080"))

Func pobierz_przez_proxy($page, $proxy, $useragent = "", $timeout = 120000)
   If $useragent = "" Then $useragent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10"
   $WinHttp = ObjCreate("winhttp.winhttprequest.5.1")
   Global $error = ObjEvent("AutoIt.Error", "ErrorFunc")
   $WinHttp.SetTimeouts($timeout, $timeout, $timeout, $timeout);
   $WinHttp.SetProxy(2, $proxy)
   $WinHttp.Open("GET", $page);
   $WinHttp.SetRequestHeader("User-Agent", $useragent)
   $WinHttp.SetRequestHeader("Connection", "keep-alive")
   $WinHttp.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
   $WinHttp.Send
   If $error.number = 0 Then
       Return $WinHttp.ResponseText
   Else
       Return False
   EndIf
EndFunc   ;==>pobierz_przez_proxy

Func ErrorFunc()
   ;MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
   ;        "err.description is: " & @TAB & $error.description & @CRLF & _
   ;        "err.windescription:" & @TAB & $error.windescription & @CRLF & _
   ;        "err.number is: " & @TAB & $error.number & @CRLF & _
   ;        "err.lastdllerror is: " & @TAB & $error.lastdllerror & @CRLF & _
   ;        "err.scriptline is: " & @TAB & $error.scriptline & @CRLF & _
   ;        "err.source is: " & @TAB & $error.source & @CRLF & _
   ;        "err.helpfile is: " & @TAB & $error.helpfile & @CRLF & _
   ;        "err.helpcontext is: " & @TAB & $error.helpcontext _
   ;        )
EndFunc   ;==>ErrorFunc

 

Przykład 2 (proxy z pliku):

#include <file.au3>

$proxyfile = "Proxy.txt"

$count = _FileCountLines($proxyfile)

For $i = 1 To $count
   $proxy = FileReadLine($proxyfile, $i)
   TrayTip("AutoFaker", "Wchodze przez proxy: " & $proxy, 1)
   pobierz_przez_proxy("http://whatismyipaddress.com/", $proxy)
Next


Func pobierz_przez_proxy($page, $proxy, $useragent = "", $timeout = 120000)
   If $useragent = "" Then $useragent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10"
   $WinHttp = ObjCreate("winhttp.winhttprequest.5.1")
   Global $error = ObjEvent("AutoIt.Error", "ErrorFunc")
   $WinHttp.SetTimeouts($timeout, $timeout, $timeout, $timeout);
   $WinHttp.SetProxy(2, $proxy)
   $WinHttp.Open("GET", $page);
   $WinHttp.SetRequestHeader("User-Agent", $useragent)
   $WinHttp.SetRequestHeader("Connection", "keep-alive")
   $WinHttp.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
   $WinHttp.Send
   If $error.number = 0 Then
       Return $WinHttp.ResponseText
   Else
       Return False
   EndIf
EndFunc   ;==>pobierz_przez_proxy

Func ErrorFunc()
   ;MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
   ;        "err.description is: " & @TAB & $error.description & @CRLF & _
   ;        "err.windescription:" & @TAB & $error.windescription & @CRLF & _
   ;        "err.number is: " & @TAB & $error.number & @CRLF & _
   ;        "err.lastdllerror is: " & @TAB & $error.lastdllerror & @CRLF & _
   ;        "err.scriptline is: " & @TAB & $error.scriptline & @CRLF & _
   ;        "err.source is: " & @TAB & $error.source & @CRLF & _
   ;        "err.helpfile is: " & @TAB & $error.helpfile & @CRLF & _
   ;        "err.helpcontext is: " & @TAB & $error.helpcontext _
   ;        )
EndFunc   ;==>ErrorFunc

[jackraymund]

Automatyczna wiadomość.

 

Ten temat został przeniesiony z forum:

"Niezbędnik Cheatera -> AutoIT"

do:

"Niezbędnik Cheatera -> AutoIT -> Gotowe skrypty i biblioteki".

[cysek4Fun]

czyli tym skryptem pobierzez pełną wersję jakiejś strony razem ze skryptami itp ?

[jackraymund]

nie, poprostu cały html danej stronki:>

[lokuxd]

czyli to dziala tak jak bysmy skopiowali "zrodlo" stronki??

[jackraymund]

ta