|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите написать програмку
Нужна небольшая програмка, по подобию заполнения форм на сайте ЛОГИН и ПАРОЛЬ с автоматическим нажиманием на кнопку вход.
Интерфейс программы не волнует. Готов управлять прогой по необходимости через исходный код. Кто готов написать подобную прогу за небольшое вознагрождение? |
#2
|
|||
|
|||
Задачу ставь подробнее.
Где заполнение, что выдать в итоге? |
#3
|
|||
|
|||
подробности
есть сайт со статистикой, авторизация проходит примерно так:
Код:
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: Не забываем про оформление!!! |
#4
|
|||
|
|||
Если используешь встроенный Web-browser, то все просто:
Взято из проекта, который логинится на сайт автоматом: Код:
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; |
#5
|
|||
|
|||
*
пардонте за не верное оформление.
Поясните, пожалуйста где вписывать логин и пароль в этом коде и нужно ли какие либо объекты помещать на саму прогу? з.ы. я делфи занимался лет пять назад, так что я особо вообще не шарю |