программное нажатие web кнопки
, не нажимается кнопка.
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [216.73.216.223] |
|
|
Соблюдайте общие правила форума
MSDN Library
FAQ раздела
Поиск по разделу
Как правильно задавать вопросы
программное нажатие web кнопки
, не нажимается кнопка.
|
Сообщ.
#1
,
|
|
|
|
![]() ![]() <!-- User Login Form --> <form name="login" action="http://192.168.3.97/goform/loginCGI" method="GET"> <table border="0" cellpadding="4" width="600"> <tbody><tr> <td class="h1"> Magmon3 Service Login </td> </tr> <tr> <td class="txt"> Enter a Username and Password to proceed.<br> </td> </tr> <tr> <td class="txt"> Username: <input type="text" size="16" maxlength="16" name="UserName"> </td> </tr> <tr> <td class="txt"> Password: <input type="password" size="16" maxlength="16" name="PassWord"> </td> </tr> <tr> <td> <br><input type="submit" value="Submit" class="Btn1"> </td> </tr> </tbody></table> </form> </body></html> надо программно нажать кнопку. делаю как в примере и нифига! ![]() ![]() procedure TForm1.Button1Click(Sender: TObject); begin FillForm(WebBrowser1, 'login', edit1.Text); //Логин FillForm(WebBrowser1, 'name', edit2.Text); //ФИО FillForm(WebBrowser1, 'email', edit3.Text); //Почта FillForm(WebBrowser1, 'password', edit4.Text); //Пароль FillForm(WebBrowser1, 'passwordtoo', edit5.Text); //Повторите пароль if FillForm(WebBrowser1, 'form', 'TRIALANET.RU') = False then ShowMessage('Ошибка! Поле "form" не найденно!'); FillForm(WebBrowser1, 'keystring', edit6.Text); //Каптча BClick(WebBrowser1, 'Sumbit'); //Кнопка регистрации end; end. При этом даже если мышкой щёлкнуть на кнопку, то не переходит и не нажимается. |