![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
| Результаты опроса: Сколько будет стоить такая программа у фрилансера | |||
| 100$ |
|
2 | 28.57% |
| 75$ |
|
1 | 14.29% |
| 65$ |
|
1 | 14.29% |
| 50$ |
|
2 | 28.57% |
| 40$ |
|
1 | 14.29% |
| 15$ |
|
2 | 28.57% |
| Напишу за бессплатно |
|
4 | 57.14% |
| Опрос с выбором нескольких Голосовавшие: 7. Вы еще не голосовали в этом опросе | |||
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Разобрался где была проблема с авто заполнением.
Теперь когда все поля заполняются, Delphi как на зло не нажимает на кнопку. Код кнопки такой: Код:
<input class="nl_loginbtn" type="submit" name="login" value="Login" /> Код:
if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'INPUT' ) then
if ( AnsiUpperCase( ovElements.Item( i ).name ) = 'login' ) then
if ( AnsiUpperCase( ovElements.item( i ).Value ) = 'Login' ) then
ovElements.Item( i ).Click;Еще я кинул на WebBrowser, на то место где находиться эта кнопка дельфийскую кнопку Button1, сделал Visible := false; После чего программно получаю местоположение этой кнопки и кликаю в WebBrowser по полученным координатам мышкой. Код этой процедуры вышел такой: Код:
x:=Button1.Left;
y:=Button1.Top;
postmessage(findwindow('Form1',nil),WM_LBUTTONDOWN,0,(x shl 16)+ y);
postmessage(findwindow('Form1',nil),WM_LBUTTONUP,0, (x shl 16)+ y);Может есть здесь человек знающий как еще можно кликнуть по кнопке Login в WebBrowser. Последний раз редактировалось m1sclick, 06.07.2011 в 14:43. |