#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 341, 146, 192, 124)
$Button1 = GUICtrlCreateButton("Добавить", 0, 48, 313, 49)
$id = GUICtrlCreateInput("id", 24, 8, 273, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$URL = "http://login.vk.com/?act=login"
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type","text/javascript; charset=windows-1251")
$oHTTP.Send("from_host=vkontakte.ru&captcha_key=&captcha_sid=&expire=&al_frame=1&email=92227704%40qip.ru&pass=258963a")
$URL = "http://vkontakte.ru/friends_ajax.php"
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type","text/javascript; charset=windows-1251")
$oHTTP.Send("act=accept_friend&fid=111632460&hash=1290953182_e10aeb8b4fa313c868&cats=&verbose=1&selectedItems=&selectedItems_custom=&message=")
EndSwitch
WEnd