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:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', post);
но там перенаправление. handlerediricted:= true не помогает. помогите плиз.
авторизуюсь на сайте g3.botva.ru

[*Хalyava*]

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

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

[blad56]

автор дай какой нибудь тестовый аккаунт на этом сайте.
[Ссылки могут видеть только зарегистрированные и активированные пользователи] 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:= Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',data);
Reg.Expression := '<a href="logout.php"(.*?)>(.*?)<b></b></a>';
if Reg.Exec(S) then label1.Caption:=(Reg.Match[2]); // проверка. вошел или нет. если да то в label1 будет написано "Выход". более лучшую проверку думаю придумаешь сам.))





end;

[blad56]

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

[*Хalyava*]

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


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

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

[blad56]

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