Форум программистов [Powered by Invision Power Board]

Код

procedure TUINRegThread.Execute;
var
  Gnm:string;
  ImgURL:string;
begin
FreeOnTerminate:=true;
while not Terminated do
  begin
    FMsg:='';
    Synchronize(DoSetProxy);
    if Terminated then break;
    FIEHTTP.URL:='https://www.icq.com/register/';
    try
      DoStatus('Открываем страницу регистрации.');
      FIEHTTP.Execute;
    except
      DoStatus('Ошибка при открытии страницы регистрации!');
      Continue;
    end;
    if pos('Register an ICQ number',FIEHTTP.result_sl.Text) > 0 then
      begin
        DoStatus('Открыта страница регистрации.',FIEHTTP.result_sl.Text);
        Gnm:=GetValueFromName(FIEHTTP.result_sl.Text,'gnm');
        ImgURL:='https://www.icq.com'+StrC(FIEHTTP.result_sl.Text,'"','/img/aa_img.php','"');
        try
          DoStatus('Загрузка картинки.');
          FIEHTTP.ExecuteURL(ImgURL);
        except
          DoStatus('Ошибка загрузки картинки!');
          Continue
        end;
        ShowImage;
        if FImgChars = '' then Continue;
        FPassword:=GetPassword;
        FA1:=GetAnswer(1);
        FA2:=GetAnswer(2);
        FIEHTTP.URL:='https://www.icq.com/register/index.php';
        FIEHTTP.getStr:='css=whitepages'+
                     '&lg_id='+
                     '&qtype=user&qtype2=user'+
                     '&nickname='+US.NickName+
                     '&fname='+US.FirstName+'&lname='+US.LastName+
                     '&email='+US.Email+'&gender=0&age=13'+
                     '&password='+FPassword+'&password_confirm='+FPassword+
                     '&qa1=custom&userq1='+US.Q1+
                     '&answer1='+FA1+
                     '&qa2=custom&userq2='+US.Q2+
                     '&answer2='+FA2+
                     '&gnm='+Gnm+
                     '&word='+FImgChars;
        FIEHTTP.RequestMethod:='GET';
        try
          DoStatus('Отправка регистрационной формы.');
          FIEHTTP.Execute;
        except
          DoStatus('Ошибка при отправке регистрационной формы!',FIEHTTP.result_sl.Text);
          Continue
        end;
      end
    else
      begin
        DoStatus('Это не страница регистрации!',FIEHTTP.result_sl.Text);
        Continue;
      end;
    if pos('Register an ICQ number',FIEHTTP.result_sl.Text) > 0 then
      DoStatus('Ошибка в заполнении формы!',FIEHTTP.result_sl.Text);
    if pos('An error has occured, please go back and try again',FIEHTTP.result_sl.Text) > 0 then
      begin
        DoStatus('Регистрация заблокирована!',FIEHTTP.result_sl.Text);
        Continue;
      end;
    if pos('Your new ICQ Number is',FIEHTTP.result_sl.Text) > 0 then
      begin
        DoStatus('Регистрация успешная.',FIEHTTP.result_sl.Text);
        ParseUIN(FIEHTTP.result_sl.Text);
        Continue;
      end;
  end;
end;