Global $oWinHttpError, $iEventError = 0, _
$sEmail = 'Ваш e-mail', _
$sPass = 'Пароль', _
$sText, $sFile = @ScriptDir & '\UserProfile.txt', $hFile
$oWinHttpError = ObjEvent('AutoIt.Error', '_WinHttpErrorHandler')
$sText = _GetUserProfile_VK($sEmail, $sPass)
If @error Then
MsgBox(16, 'Error', @error)
Exit
Else
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
MsgBox(64, 'OK', 'OK')
Exit
EndIf
Func _GetUserProfile_VK($sEmailUser, $sPassUser)
Local $oHTTP, $sCookie_1, $sCookie_2, $sCookie, $sHeader, $sHtmlProfile
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('POST', 'http://login.vk.com/?act=login')
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader('Accept-Language', 'ru')
$oHTTP.SetRequestHeader('Referer', 'http://vkontakte.ru')
$oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
$oHTTP.SetRequestHeader('User-Agent', 'AutoIt')
$oHTTP.SetRequestHeader('Host', 'login.vk.com')
$oHTTP.SetRequestHeader('Proxy-Connection', 'Keep-alive')
$oHTTP.Send('act=login&q=1&al_frame=1&expire=&captcha_sid=&captcha_key=&from_host=vkontakte.ru&email=' & $sEmailUser & '&pass=' & $sPassUser)
If $iEventError Then
Return SetError($iEventError)
EndIf
$oHTTP.WaitForResponse
$sHeader = $oHTTP.GetAllResponseHeaders
If Not $sHeader Then
Return SetError(1)
EndIf
$sCookie_1 = StringRegExpReplace($sHeader, '(?s).*?Set-Cookie: (remixchk=\d;\s)\w?.*', '\1')
If @extended <> 1 Then
Return SetError(1)
EndIf
$sCookie_2 = StringRegExpReplace($sHeader, '(?s).*?Set-Cookie: (remixsid=.*?);\s\w?.*', '\1')
If @extended <> 1 Then
Return SetError(1)
EndIf
$sCookie = $sCookie_1 & $sCookie_2
If Not $sCookie Then
Return SetError(1)
EndIf
$oHTTP.Open('POST', 'http://vkontakte.ru/profile.php')
$oHTTP.SetRequestHeader('Cookie', $sCookie)
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader('Accept-Language', 'ru')
$oHTTP.SetRequestHeader('Referer', 'http://login.vk.com/?act=login')
$oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
$oHTTP.SetRequestHeader('User-Agent', 'AutoIt')
$oHTTP.SetRequestHeader('Host', 'vkontakte.ru')
$oHTTP.SetRequestHeader('Proxy-Connection', 'Keep-alive')
$oHTTP.Send('')
If $iEventError Then
Return SetError($iEventError)
EndIf
$oHTTP.WaitForResponse
$sHtmlProfile = $oHTTP.ResponseText
If Not $sHtmlProfile Then
Return SetError(1)
EndIf
Return SetError(0, 0, $sHtmlProfile)
EndFunc ;==>_GetUserProfile_VK
Func _WinHttpErrorHandler()
$iEventError = $oWinHttpError.Number
EndFunc ;==>_WinHttpErrorHandler
