[ppwake]

Нужна небольшая програмка, по подобию заполнения форм на сайте ЛОГИН и ПАРОЛЬ с автоматическим нажиманием на кнопку вход.
Интерфейс программы не волнует. Готов управлять прогой по необходимости через исходный код.
Кто готов написать подобную прогу за небольшое вознагрождение?

[lmikle]

Задачу ставь подробнее.
Где заполнение, что выдать в итоге?

[ppwake]

есть сайт со статистикой, авторизация проходит примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

tr align="center">             <td colspan="2" valign="top">               <span class="style6">                </span>            </td>           </tr>           <tr>             <td align="left">логин</td>             <td>               <input name="login" type="text" size="16"></td>           </tr>           <tr>             <td align="left">пароль</td>             <td>               <input name="pass" type="password" size="16"></td>           </tr>           <tr align="center">             <td colspan="2"><input type="submit" name="Submit" value="Submit"></td>           </tr>           <tr align="right" valign="bottom">

хотел бы что бы статистика с этого сайта появлялась прям в окне проги, ну или если это нереально во фрейме проги (стата будет показываться как страничка во внутреннем браузере)

Moderatorial: Не забываем про оформление!!!

[lmikle]

Если используешь встроенный Web-browser, то все просто:

Взято из проекта, который логинится на сайт автоматом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

procedure TMainForm.Login(ASilent : Boolean); var   I : Integer;   ALogin, APass : String;   ALoginData : OleVariant;   ALoginDataStr : String;   AHeaders : OleVariant; begin   FEnableRobot := False;     If ASilent     Then       Begin         ALogin := FUserName;         APass := FPassword;       End     Else       With TLoginForm.Create(Application) Do         Begin           GetLoginInfo(FUserName, FPassword, FSavePassword);           UserName := FUserName;           Password := FPassword;           SavePassword := FSavePassword;           If Not Execute Then Application.Terminate;             ALogin := UserName;           APass := Password;             Free;         End;     ALoginDataStr := Format('name=%s&pass=%s',[HTTPEncode(ALogin),HTTPEncode(APass)]);   ALoginData := VarArrayCreate([0, Length(ALoginDataStr) - 1], varByte);   For I := 1 To Length(ALoginDataStr) Do     ALoginData[I-1] := Ord(ALoginDataStr[i]);     AHeaders := 'Content-Type: application/x-www-form-urlencoded' + #10#13;     MainWnd.Navigate('http://******.ru/game/login.php',EmptyParam,EmptyParam,ALoginData,AHeaders); end;

[ppwake]

пардонте за не верное оформление.
Поясните, пожалуйста где вписывать логин и пароль в этом коде и нужно ли какие либо объекты помещать на саму прогу?
з.ы. я делфи занимался лет пять назад, так что я особо вообще не шарю