27.04.2010, 19:36
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Не много бредовая идея, но работает(то номера мемо проверь)
PHP код:
procedure TForm3.btn1Click(Sender: TObject);
var
uns, s,log,pass: String;
begin
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
try
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
uns := idhttp1.Get('http://vk.com/');
memo3.lines.add(log + ':' + pass);
except
On E: Exception do begin
memo2.lines.add(log + ':' + pass);
memo3.Lines.Delete(memo3.Lines.Count);
end;
end;
idckmngr1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
idckmngr1.AddCookie('remixchk=5; path=/;','vk.com');
end;
Последний раз редактировалось fenixelite; 27.04.2010 в 19:59..
|
|
|