Регистрация на сайте.

[Alest]

Всем доброе время суток!
Я новенький на вашем форуме, спасибо большое Квэнди за его прекрасную статью, она поменяла во мне взляд на сетевое программирование..

Я только начинаю работать с сетью, прошу помогать мне по возможности..
Выбрал сайт vten.ru пишу под него регистрацию.. Вообщем вот открыл код формы:

<form action="../;jsessionid=59AA7CFC09AB80E7A31940CBFFAA4569?wicket:interface=:0:registrationForm::IFormSubmitListener::" id="id1" method="post">
 
<input type="hidden" name="id1_hf_0" id="id1_hf_0" />
 
Имя персонажа
<input id="login" type="text" style="width:12em;" value="" name="login"/>
 
Сторона
<select id="side" style="width:12em;" name="side">
<option selected="selected" value="2">Тёмный</option>
<option value="1">Светлый</option>
</select>
 
Класс
<select id="type" style="width:12em;" name="type">
<option value="1">Маг</option>
<option value="2">Монах</option>
<option selected="selected" value="3">Воин</option>
</select>
 
Пол
<select id="sex" style="width:12em;" name="sex">
<option selected="selected" value="m">Мужской</option>
<option value="f">Женский</option>
</select>
 
Я изучил и принимаю условия Пользовательского соглашения
<input type="checkbox" checked="checked" name="agreementAccepted"/> 
 
Зарегистрироваться
<input type="submit" value="Зарегистрироваться" style="width:12em;" name=":submit" id="id2"/>
</form>

Потом я прошелся сниффером по кнопке, получил URL:

http://vten.ru/?wicket:interface=:3:registrationForm::IFormSubmitListener::

PostData:

id3_hf_0=&login=qwerty&side=1&type=3&sex=m&agreementAccepted=on&%3Asubmit=%D0%97%D0%B0%D1%80%D0%B5%D0%B3%D0%B8%D1%81%D1%82%D1%80%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D1%82%D1%8C%D1%81%D1%8F
// и Referer: 
http://vten.ru/registration/

Сдесь я набросал сам POST запрос:

procedure TForm1.RegButtonClick(Sender: TObject);
var
  Header,Structure : TStringList;
begin
  Structure := TStringList.Create;
  Header := TStringList.Create;
try
  Structure.Add('Login='+LoginEdit.Text+'side='+SideComboBox.Text
  +'type='+TypeComboBox.Text+'sex='+SexComboBox.Text+
  'agreementAccepted=checked');
  Header.Text := idhttp1.Post('http://vten.ru/?wicket:interface=:2:registrationForm::IFormSubmitListener::', Structure);
if Pos('Поздравляем, регистрация завершена!', Header.Text)<>0 then
    ShowMessage('Вы зарегестрированы!')
  else
    ShowMessage('Регистрация не удалась!');
finally
  Structure.Free;
  Header.Free;
end;
end;

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

[spl1nter]

для начала, непавильный адрес отправки данных, нужно парсить его из form action.
Для каждого параметра нужна отдельная строчка в списке, то есть

Structure.Add('Login='+LoginEdit.Text);
Structure.Add('side='+SideComboBox.Text);
и тд.

[Alest]

var
Header,Structure : TStringList;
Http: TIdHTTP;
begin
Http := IdHTTP1.Create(nil);
Structure := TStringList.Create;
Header := TStringList.Create;
Http.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; DigExt)';
try
Structure.Add('Login='+LoginEdit.Te xt);
Structure.Add('side='+SideComboBox. Text);
Structure.Add('type='+TypeComboBox. Text);
Structure.Add('sex='+SexComboBox.Te xt);
Structure.Add('agreementAccepted=on ');
Header.Text := idhttp1.Post('http://vten.ru/?wicket:interface=:2:registrationFo rm::IFormSubmitListener::', Structure);
if Pos('Ïîçäðàâëÿåì, ðåãèñòðàöèÿ çàâåðøåíà!', Header.Text)<>0 then
ShowMessage('Âû çàðåãåñòðèðîâàíû!')
else
ShowMessage('Ðåãèñòðàöèÿ íå óäàëàñü!');
finally
Structure.Free;
Header.Free;
end;

Так тоже не регеструрует, пробовал..

[Alest]

//ой, сообщение 2 раза отправилось..

Вот переписал

procedure TForm1.Button1Click(Sender: TObject);
var
  Header, Structure: TStringList;
begin
  Structure := TStringList.Create;
  Header := TStringList.Create;
try
  Structure.Add('login=b7068');
  Structure.Add('side=1');
  Structure.Add('type=3');
  Structure.Add('sex=m');
  Structure.Add('agreementAccepted=on');
  Header.Text := idhttp1.Post('http://vten.ru/?wicket:interface=:11:registrationForm::IFormSubmitListener::', Structure);
if Pos('Поздравляем, регистрация завершена!', Header.Text)>0 then
  ShowMessage('Вы зарегестрированы!')
else
  ShowMessage('Регистрация не удалась!');
finally
  Structure.Free;
  Header.Free;
end;
end;

ошибся в side=1, 3.. параметрах , но все равно не регистрирует

[Alest]

Вставил мемо , на struсtura увидел ожидаемый текст
login=b7068
side=1
type=3
sex=m
agreementAccepted=on

PostData немного другая

id3_hf_0=&login=qwerty&side=1&type=3&sex=m&agreementAccepted=on&%3Asubmit=%D0%97%D0%B0%D1%80%D0%B5%D0%B3%D0%B8%D1%81%D1%82%D1%80%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D1%82%D1%8C%D1%81%D1%8F

еще заметил что interface=:11: , число меняется при каждой регистрации

[Пепел Феникса]

еще заметил что interface=:11: , число меняется при каждой регистрации

значит делаем так, сначало Get страницы регистрации, там берем значения скрытых полей, потом уже используя их постим.

[Alest]

Вставил

  s:=idhttp1.Get('http://vten.ru/registration/');
  s:=copy(s,pos('<form action="../?wicket:interface=:2:registrationForm::IFormSubmitListener::"',s)+35,2);
  s1:=copy(s,pos('<form action="http://vten.ru/?wicket:interface=:'+s+':registrationForm::IFormSubmitListener::" id="id3"',s1)+97,1);
  Memo1.Lines.Add(s);
  Structure.Add('id'+s1+'_hf_0=');
  Structure.Add('login=b7068');
  Structure.Add('side=1');
  Structure.Add('type=3');
  Structure.Add('sex=m');
  Structure.Add('agreementAccepted=on');
  Header.Text := idhttp1.Post('http://vten.ru/?wicket:interface=:'+s+':registrationForm::IFormSubmitListener::', Structure);

сделал так , но вроде с копированием ошибся, как правильно скопировать только цифры не затрагивая значки?

[kangreon]

procedure TForm1.Button1Click(Sender: TObject);
var
  sl, sl1:TStringList;
  url:string;
  i : Integer;
begin
  sl:= TStringList.Create;
  sl1 := TStringList.Create;
  IdHTTP1.HandleRedirects := True;
  sl.Text := IdHTTP1.Get('http://vten.ru/registration/');
  url := Copy(sl.Text,Pos('<form action="',sl.Text)+17,PosEx('"',sl.Text,Pos('<form action="',sl.Text)+18)-Pos('<form action="',sl.Text)-17);
  i := Pos('<input type="hidden" name="',sl.Text)+27;
  sl1.Add(Copy(sl.Text,i,PosEx('"',sl.Text,i)-i) + '=');
  sl1.Add('login=dsgfhhi');
  sl1.Add('side=2');
  sl1.Add('type=1');
  sl1.Add('sex=m');
  sl1.Add('agreementAccepted=on');
  sl1.Add(':submit=Зарегистрироваться');

  Memo1.Text := UTF8Decode(IdHTTP1.Post('http://vten.ru/' + url,sl1));
  if Pos(''Поздравляем',Memo1.Text)<>0 then
  ShowMessage('Вы зарегестрированы!')
  else
    ShowMessage('Регистрация не удалась!');
  sl1.Free;
  sl.Free;
end;

Как-то так

[Alest]

Благодарю! Все работает остальсь только со строкой разобраться

 url := Copy(sl.Text,Pos('<form action="',sl.Text)+17,PosEx('"',sl.Text,Pos('<form action="',sl.Text)+18)-Pos('<form action="',sl.Text)-17);

эт я уж сам Спасибо большое!!!!!

[Pasha_Sh]

Эта строка копирует значение из исходного кода страницы в строку url