Авторизация на сайтах..

[extrimportal]

Здраствуйте. Нужно пройти авторизацию на некоторых сайтах, но я слабо говоря ламер так что на некоторых сам сделал а на этих немогу. помогите плиз:
вот они кстати liex.ru popunder.ru popuptraf.ru mainlink.ru
буду благодарен если поможете хотя бы с одним сайтом. Думаю что сам немогу справиться из-за додатковых значений которые генерируються.
Использую инди на делфи 7. вот собственно код.

procedure TForm1.Button1Click(Sender: TObject);
var params,responseres:tstringlist;
THURL, st, p, s: string; i, j: integer;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('Sign1$ctl00$login=**********');
params.Add('Sign1$ctl00$password=********');
responseres.Text:=Idhttp1.Post('http://mainlink.ru/',params);
if Pos('logout',responseres.Text)>0 then
ShowMessage('Авторизовались!');

Большое спасибо за помощь юзеру.

 

[kalombo]

А в чем проблема? Берешь какой-нибудь сниффер CommView, Fiddler например или какой-нибудь удобный для себя сам находишь, который может отлавливать http-запросы. Сначала авторизируешься вручную в браузере, смотришь http-заголовки, потом пробуешь своей программой, сравниваешь заголовки программы с заголовками браузера - делаешь выводы. Если что-то не получается конкретное - спрашиваешь. А так... Делфи давно уже изучал, инди вообще не трогал, да и всё равно всё в http-запросы упрётся.

 

[Ratko]

Если на TWebBrowser делать, возможно так:

Form1.Webbrowser1.Navigate(http://your_adress);
  while Form1.Webbrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
  Form1.Webbrowser1.OleObject.document.GetElementsByName('login').value:=your_login;
Form1.Webbrowser1.OleObject.document.GetElementsByName('password').value:=your_password;
Form1.Webbrowser1.OleObject.document.GetElementsByName('submit').submit();