Извеняюсь конечно может я просто не понимаю, но выше указанная ссылка мне ни чего не дала... ибо в той статье немного о другом реч идёт ИМХО
решил проблему сам... сделал проще как мне кажется:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
data:tstringlist;
PageProfile:string;
error:boolean;
begin
idHTTP1.HandleRedirects:=true;
IdHTTP1.AllowCookies:=true;
data:=tstringlist.create;
data.Add('email=blablabla@rambler.ru');
data.Add('pass=****************);
data.Add('expire=');
data.Add('vk=');
error:=false;
try
PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
finally
end;
if Pos('onload="try', PageProfile)<>0 then
Memo1.Lines.Add('Авторизация удалась')
else
Memo1.Lines.Add('Авторизация не удалась');
Data.Free;
end;