Цитата:
|
Сообщение от ivgapon
Прошу прощения. А пример можно привести?
|
вначале находим капчу и грузим её.
Код:
var FS:TFileStream;
begin
S:=IdHTTP1.Get('http://icq.com/register/index.php');
icq_ln:=Copy(S,Pos('icq_ln', S)+16,32);
FS:=TFileStream.Create('aa_img.jpg', FMCreate);
IdHTTP1.Get('https://www.icq.com/img/aa_img.php?gnm=/'+icq_ln+'.jpg', FS);
FS.Free;
Image1.Picture.LoadFromFile('aa_img.jpg');
после сама рега
Код:
var Data:TStringList; S:string;
begin
Data:=TStringList.Create;
Data.Add('skin=id');
Data.Add('icq_ln='+icq_ln);
Data.Add('action=register');
Data.Add('user.Answer1='+Answer1.Text);
Data.Add('user.email='+email.Text);
Data.Add('user.password='+password.Text);
Data.Add('user.qa1='+qa1.Text);
Data.Add('user.word='+word.Text);
S:=IdHTTP1.Post('https://www.icq.com/register/index.php',Data);
это пример рега аськи, на другое-переделывайте, если будет нужна помощь, icq 60-600-44-11,
viper_09@mail.ru.