Программа работы с сайтом (автологин и т.д.)

[eldar]

Вот проблема!!!
Заходишь на сайт ССЫЛКА
там есть форма логин и пароль
когда введёшь пароль и логин браузер отправит POST запрос
вот такой
ССЫЛКА/cgi-bin/auth.cgi login=1234&password=1234&button.x=6 2&button.y=16
после чего выпопадаете вот на эту страницу
ССЫЛКА/cgi-bin/main.cgi
там на этой странице есть кнопка "заработать" если нажать на неё то
посылаете GET запрос вот этот
ССЫЛКА/surf.php?
одновременно загружаеться вот эта страница
ССЫЛКА/surf_frame.php-эта фрейм где показано сколько вы заработали, а также картинки для заработка
вот ссылки этих картинок

большая картинка ССЫЛКА/surf_big.php?ch=mDa3Chbjfs1BND4L его тип поле ввода

маленькая картинка ССЫЛКА/surf_small.php?ch=mDa3Chbjfs1BND4L его тип изображение

если нажать на большой картинке то посылаете POST запрос вот такой
ССЫЛКА/surf.php sbmt.x=33&sbmt.y=76&ch=1HUyzkLKtR
дальше всё повторяеться
Как теперь всё это реализовать на DELPHI, а именно программой не браузером чтобы всё выполнялось программой кроме ввода картинок
Надеюсь я понятно объяснил мою проблему

[Квэнди]

Компонент
IdHttp
метод Post
отправляется post этому скрипту: "/cgi-bin/auth.cgi"
c названиями и значениями полей

[Terran]

Можешь сделать так:

Uses
ShellAPI, Registry,...
-------------------
procedure OpenURL(Url: string);
 var
   ts: string;
 begin
   with TRegistry.Create do
     try
       rootkey := HKEY_CLASSES_ROOT;
       OpenKey('\htmlfile\shell\open\command', False);
       try
         ts := ReadString('');
       except
         ts := '';
       end;
       CloseKey;
     finally
       Free;
     end;
   if ts = '' then Exit;
   // remove quotes and commandline parameters
  ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
   ts := Copy(ts, 1, Pos('"', ts) - 1);
   ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenURL('http://programmersforum.ru/showthread.php?t=24391');
end;

[eldar]

Terran
А не можешь исходник скинуть!

[Квэнди]

Сообщение от Terran

Можешь сделать так:

Uses
ShellAPI, Registry,...
-------------------
procedure OpenURL(Url: string);
 var
   ts: string;
 begin
   with TRegistry.Create do
     try
       rootkey := HKEY_CLASSES_ROOT;
       OpenKey('\htmlfile\shell\open\command', False);
       try
         ts := ReadString('');
       except
         ts := '';
       end;
       CloseKey;
     finally
       Free;
     end;
   if ts = '' then Exit;
   // remove quotes and commandline parameters
  ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
   ts := Copy(ts, 1, Pos('"', ts) - 1);
   ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenURL('http://programmersforum.ru/showthread.php?t=24391');
end;

Это не залогинит пользователя на сайт.

[eldar]

А не подскажите подробную инструкцию работы с компонентом IdHttp или исходник работы с этим компонентом

[Terran]

Сообщение от eldar

Terran
А не можешь исходник скинуть!

Вот исходник: URL.rar

[eldar]

Terran
спасибо за исходник

[eldar]

вот вся проблем состоит что я сделал прогу верее дизайн будующей проги вот он
код её

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

Вот теперь куда нада писать код компонента idhttp

[JRcoker]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
// функции,процедуры всё здесь....
end.