Func Login($login,$pass)
$ProxyServer = 'прокси:порт'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.SetProxy(2, $ProxyServer)
$oHTTP.Open("GET", "http://autoit-script.ru/index.php")
$oHTTP.Send('')
$oHTTP.WaitForResponse
$headers = $oHTTP.GetAllResponseHeaders()
$cookies=GetCookie($headers)
MsgBox(0,'',$cookies)
$oHTTP.Open("POST", "http://autoit-script.ru/index.php?action=login2")
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader("Accept", "application/xml,application/xhtml+xml,text/html,text/plain,image/png,*/*")
$oHTTP.SetRequestHeader("Accept-Charset", "windows-1251,utf-8,*")
$oHTTP.SetRequestHeader("Accept-Encoding", "gzip,deflate,sdch")
$oHTTP.SetRequestHeader("Accept-Language", "ru-RU,ru,en-US,en")
$oHTTP.SetRequestHeader("Cache-Control", "max-age=0")
$oHTTP.SetRequestHeader("Content-Length", "87")
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.SetRequestHeader("Host","autoit-script.ru")
$oHTTP.SetRequestHeader("Proxy-Connection", "Keep-alive")
$oHTTP.SetRequestHeader("User-Agent", 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/534.24 (KHTML, like Gecko) Chrome/11.0.696.77 Safari/534.24 ChromePlus/1.6.2.0')
$oHTTP.SetRequestHeader("Cookie", $cookies)
$oHTTP.Send('user' & $login & '&passwrd=' & $pass)
$oHTTP.WaitForResponse
$cookies = $oHTTP.GetResponseHeader('Set-Cookie')
;~ $cookies=GetCookie($headers)
MsgBox(0,'',$cookies)
$oHTTP.Open('GET', 'http://autoit-script.ru/index.php', False)
$oHTTP.SetRequestHeader("Accept", "application/xml,application/xhtml+xml,text/html,text/plain,image/png,*/*")
$oHTTP.SetRequestHeader("Accept-Charset", "windows-1251,utf-8,*")
$oHTTP.SetRequestHeader("Accept-Encoding", "gzip,deflate,sdch")
$oHTTP.SetRequestHeader("Accept-Language", "ru-RU,ru,en-US,en")
$oHTTP.SetRequestHeader("Cache-Control", "max-age=0")
$oHTTP.SetRequestHeader("Content-Length", "87")
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.SetRequestHeader("Host","autoit-script.ru")
$oHTTP.SetRequestHeader("Proxy-Connection", "Keep-alive")
$oHTTP.SetRequestHeader("User-Agent", 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/534.24 (KHTML, like Gecko) Chrome/11.0.696.77 Safari/534.24 ChromePlus/1.6.2.0')
$oHTTP.SetRequestHeader("Cookie", $cookies)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$cookies = $oHTTP.GetAllResponseHeaders()
;~ $cookies=GetCookie($headers)
MsgBox(0,'',$cookies)
FileWrite('qwe.txt',$sHTML)
EndFunc
; Получаем cookie из заголовков ответа
Func GetCookie($headers)
Local $Cookie_String
$headers = StringSplit($headers,@LF)
For $i=1 to $headers[0]
If StringInStr($headers[$i],"Set-Cookie")>0 Then
$start = StringInStr($headers[$i],"Set-Cookie:")+12
$str = StringSplit(StringMid($headers[$i],$start),";")
$Cookie_String&= $str[1]&"; "
EndIf
Next
$Cookie_String = StringStripWS($Cookie_String,1)
$Cookie_String = StringStripWS($Cookie_String,2)
$Cookie_String = StringLeft($Cookie_String,StringLen($Cookie_String)-1)
$COOKIE = $Cookie_String
Return $COOKIE
EndFunc
Login('логин','пасс')