[ApxaHGe1]

Код:

Function VKLogin (Login,Password:string):Boolean;
var
VKAuth:THTTPSend;
PostData:TStringStream;
begin
VKAuth:=THTTPSend.Create;
VKAuth.Headers.Clear;
VKAuth.Cookies.Clear;
VKAuth.MimeType:='application/x-www-form-urlencoded';
PostData:=TStringStream.Create('');
PostDATA.WriteString('act=login');
PostDATA.WriteString('&q=1');
PostDATA.WriteString('&al_frame=1');
PostDATA.WriteString('&expire=');
PostDATA.WriteString('&captcha_sid=');
PostDATA.WriteString('&captcha_key=');
PostDATA.WriteString('&from_host=vk.com');
PostDATA.WriteString('&from_protocol=http');
//PostDATA.WriteString('&ip_h=4e2351239677358141');
PostDATA.WriteString('&email='+Login);
PostDATA.WriteString('&pass='+Password);
VKAuth.Document.LoadFromStream(POSTDATA);
VKAuth.HTTPMethod('POST','https://login.vk.com/?act=login');
Form1.Memo1.Lines.Add(VKAuth.Cookies.Text);
if VKAuth.Cookies.Count > 3 then
begin
Result:=True;
end
else
Result:=False;