lostfany
10.09.2008, 00:24
Такая проблема, пытаюсь регер написать допустим на том же рамблере или км, на любой реге с капчей, типа сначала принимаю страницу регистрации, там всё ок, выдергиваю ссылку на капчу , в браузере смотрю, капчу всё ввожу а потом методом пост отсылаю всю формы, но он мне выдает не прально заполнена капча! пишу на delphi c компонентом idhttp и webbrowser?
как сделать чтоб капча норм была?
//Запрашиваю страницу чтоб выдрать ссылку на капчу
//пока еще ручками
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=http.Get('http://www.km.ru/r/register.aspx?app=km');
end;
//Отправляю форму и приходит что капча не пральная
procedure TForm1.Button2Click(Sender: TObject);
var list:tstringlist;
begin
list:=tstringlist.Create;
list.Add('userFirstName=Alex');
list.Add('userLastName=Lods');
list.Add('userGender=m');
list.Add('userDayBirth=24');
list.Add('userMonthBirth=1');
list.Add('userYearBirth=1988');
list.Add('userLoginName='+edit1.text);
list.Add('userDomainName=km.ru');
list.Add('userPassword=zxccxz');
list.Add('userPasswordRet=zxccxz');
list.Add('userQuestion=какой нить вопрос);
list.Add('userQuestionStr=');
list.Add('userAnswer=23232332');
list.Add('userAltMail=');
list.Add('userRegSymbols='+edit2.text);
memo1.Text:=http.post('http://www.km.ru/r/register.aspx',list);
end;
//Тут просматриваю капчу
procedure TForm1.Button3Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.km.ru/r/PictureDigitViewNet.aspx?rnd='+edit2.text);
end;
как сделать чтоб капча норм была?
//Запрашиваю страницу чтоб выдрать ссылку на капчу
//пока еще ручками
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=http.Get('http://www.km.ru/r/register.aspx?app=km');
end;
//Отправляю форму и приходит что капча не пральная
procedure TForm1.Button2Click(Sender: TObject);
var list:tstringlist;
begin
list:=tstringlist.Create;
list.Add('userFirstName=Alex');
list.Add('userLastName=Lods');
list.Add('userGender=m');
list.Add('userDayBirth=24');
list.Add('userMonthBirth=1');
list.Add('userYearBirth=1988');
list.Add('userLoginName='+edit1.text);
list.Add('userDomainName=km.ru');
list.Add('userPassword=zxccxz');
list.Add('userPasswordRet=zxccxz');
list.Add('userQuestion=какой нить вопрос);
list.Add('userQuestionStr=');
list.Add('userAnswer=23232332');
list.Add('userAltMail=');
list.Add('userRegSymbols='+edit2.text);
memo1.Text:=http.post('http://www.km.ru/r/register.aspx',list);
end;
//Тут просматриваю капчу
procedure TForm1.Button3Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.km.ru/r/PictureDigitViewNet.aspx?rnd='+edit2.text);
end;