Stasones
23.11.2010, 23:18
Привет всем. Пишу программу - авторегистратор. Нужно послать GET запрос, но при выполнении программы выдает ошибку "connection reset by peer". Продебажил - переменные все нормальные. Вот неработающий фрагмент.
procedure TForm1.ButtonRegClick(Sender: TObject);
var
id,nmail,mail,npas,pas,nrepas,nquest,notvet,otvet, nname,name,nfemely,femely,nday,day,nyear,npol,xreg id,ncap:string;
begin
id:=pos(43, 56);//pos- функция парсинга из html кода нужных значений по координатам
nmail:=pos(30, 66);
npas:=pos(34, 79);
nrepas:=pos(45, 81);
nquest:=pos(31, 106);
notvet:=pos(41, 109);
nname:=pos(30, 112);
nfemely:=pos(30, 114);
nday:=pos(28, 117);
nyear:=pos(28, 124);
npol:=pos(17, 127);
xregid:=pos(53, 144);
ncap:=pos(37, 147);
randomize;
mail:='Vasilij'+inttostr(random(1000000)+100000);
pas:=inttostr(random(10000000)+1000000)+'Mr';
otvet:=inttostr(random(100000));
name:='Mr'+inttostr(random(1000000)+100000);
femely:='Ms'+inttostr(random(1000000)+100000);
day:=inttostr(random(30));
memohtml.Lines.Text:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]*****/cgi-bin/reg?ID='+id+'&Count=1&back=%2Fcgi-bin%2Ffolders&browserData=NoJS&'+nmail+'='+mail+'&RegistrationDomain=mail.ru&'+npas+'='+pas+'&'+nrepas+'='+pas+'&Password_Question=%C4%E5%E2%E8%F7%FC%FF+%F4%E0%EC% E8%EB%E8%FF+%EC%E0%F2%E5%F0%E8&'+nquest+'&'+notvet+'='+otvet+'&'+nname+'='+name+'&'+nfemely+'='+femely+'&'+nday+'='+day+'&BirthMonth=2&'+nyear+'=1990&'+npol+'=1&x_reg_id='+xregid+'&security_image_id=&'+ncap+'='+captha.text+'&B1=%D0%E5%E3%E8%F1%F2%F0%E0%F6%E8%FF');
//короче нельзя, пост не катит на этом сайте.
end;
В [Ссылки могут видеть только зарегистрированные и активированные пользователи] все выставлено как словил в сниффере, кроме кодировки.
Самое главное, что если сгенерированую ссылку вставить в браузер то все правильно работает. Версия delphi 7. В гугле ничего толкового не нашел. Прошу дельного совета.:info:
procedure TForm1.ButtonRegClick(Sender: TObject);
var
id,nmail,mail,npas,pas,nrepas,nquest,notvet,otvet, nname,name,nfemely,femely,nday,day,nyear,npol,xreg id,ncap:string;
begin
id:=pos(43, 56);//pos- функция парсинга из html кода нужных значений по координатам
nmail:=pos(30, 66);
npas:=pos(34, 79);
nrepas:=pos(45, 81);
nquest:=pos(31, 106);
notvet:=pos(41, 109);
nname:=pos(30, 112);
nfemely:=pos(30, 114);
nday:=pos(28, 117);
nyear:=pos(28, 124);
npol:=pos(17, 127);
xregid:=pos(53, 144);
ncap:=pos(37, 147);
randomize;
mail:='Vasilij'+inttostr(random(1000000)+100000);
pas:=inttostr(random(10000000)+1000000)+'Mr';
otvet:=inttostr(random(100000));
name:='Mr'+inttostr(random(1000000)+100000);
femely:='Ms'+inttostr(random(1000000)+100000);
day:=inttostr(random(30));
memohtml.Lines.Text:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]*****/cgi-bin/reg?ID='+id+'&Count=1&back=%2Fcgi-bin%2Ffolders&browserData=NoJS&'+nmail+'='+mail+'&RegistrationDomain=mail.ru&'+npas+'='+pas+'&'+nrepas+'='+pas+'&Password_Question=%C4%E5%E2%E8%F7%FC%FF+%F4%E0%EC% E8%EB%E8%FF+%EC%E0%F2%E5%F0%E8&'+nquest+'&'+notvet+'='+otvet+'&'+nname+'='+name+'&'+nfemely+'='+femely+'&'+nday+'='+day+'&BirthMonth=2&'+nyear+'=1990&'+npol+'=1&x_reg_id='+xregid+'&security_image_id=&'+ncap+'='+captha.text+'&B1=%D0%E5%E3%E8%F1%F2%F0%E0%F6%E8%FF');
//короче нельзя, пост не катит на этом сайте.
end;
В [Ссылки могут видеть только зарегистрированные и активированные пользователи] все выставлено как словил в сниффере, кроме кодировки.
Самое главное, что если сгенерированую ссылку вставить в браузер то все правильно работает. Версия delphi 7. В гугле ничего толкового не нашел. Прошу дельного совета.:info: