[Помогите!] Botva online

[blad56]

Поцоны, помогите. Пишу некий бот для ботвы пытаюсь войти на сайт под таким кодом:

Post:=TStringList.Create;
post.Add('do_cmd=login');
post.Add('server=3');
post.Add('email=мыло);
post.Add('password=пасс);
post.Add('remember=1');
s3:=idhttp1.Post('http://g3.botva.ru/login.php', post);

но там перенаправление. handlerediricted:= true не помогает. помогите плиз.
авторизуюсь на сайте g3.botva.ru

[*Хalyava*]

автор дай какой нибудь тестовый аккаунт на этом сайте.
зарегаться там не могу.

соответственно без этого и авторизоваться программно не получится

[blad56]

Цитата: Сообщение от *Хalyava* автор дай какой нибудь тестовый аккаунт на этом сайте.

[email protected] test сервер три

[*Хalyava*]

uses 
regexpr

procedure TForm1.Button1Click(Sender: TObject);
var
  data:TStrings;
  Reg: TRegExpr;
  s:string;
begin
 data:=TStringList.Create;
  Reg := TRegExpr.Create;


 data.Add('do_cmd=login');
 data.Add('server='+edit3.text);
 data.Add('email='+edit1.text);
 data.Add('password='+edit2.text);
s:= IdHTTP1.Post('http://g3.botva.ru/login.php',data);
  Reg.Expression := '<a href="logout.php"(.*?)>(.*?)<b></b></a>';
      if Reg.Exec(S) then label1.Caption:=(Reg.Match[2]); // проверка. вошел или нет. если да то в label1 будет написано "Выход".  более лучшую проверку думаю придумаешь сам.))





end;

[blad56]

А теперь смотри, чем мой код отличается от твоего? Нету запоминания?) Плюс твой код не работает и ты запыл перенаправление ибо там идет редерикт после пост запроса, о чем я писал в первом посту. Запрос я и сам составил

[*Хalyava*]

Цитата: Сообщение от blad56 А теперь смотри, чем мой код отличается от твоего? Нету запоминания?) Плюс твой код не работает и ты запыл перенаправление ибо там идет редерикт после пост запроса, о чем я писал в первом посту. Запрос я и сам составил

а теперь смотри.
вот скомпилированная прога и код.
проверка зашли или нет:
если да то в label1 нам показывают выход
и в label2 твой ник.

как этот код тогда может не работать???

[blad56]

*Хalyava*, Не поверишь Дело было в самой delphi. Пробовал в XE там не пашет, а в delphi 7 все робит... Спасибо
P.S. Мой код тоже пашет