|
|
Регистрация | << Правила форума >> | 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
|
|||
|
|||
Авторизация на сайте
Набранное сообщение слишком короткое
Последний раз редактировалось m1sclick, 18.07.2011 в 18:44. |
#2
|
|||
|
|||
Цитата:
С опросе отметился - сам сделать не смогу (времени нет), но цена вообще минимальная, там наверняка вагон булыжников. Это если прога. Если надо в принципе чет автоматизированное написать - самый простой выход - скрипты автоматизации. |
#3
|
|||
|
|||
Спасибо за подсказку.
Насчет скриптов автоматизации - здесь имеется в виду что то наподобие UoPilota? Если да то такой у меня уже есть, меня не устраивает то что нужно ждать пока загрузиться страница и для использования нужно виртуальной машиной пользоваться потому что мышка бегает. |
#4
|
|||
|
|||
скрипты - ага, типа того , про мыш - неизбежное зло в таком случае
|
#5
|
|||
|
|||
А на счет WebBrowser ничего помочь не сможешь?
Мне нужно только логин сделать остальное я сам, но понимаю почему у меня не выходит автоматически заполнить поля ввода логина и пароля. Искал в интернете вроде все правильно а Delphi вообще не хочет ничего делать, нажимаю на кнопку и ничего. |
#6
|
|||
|
|||
Разобрался где была проблема с авто заполнением.
Теперь когда все поля заполняются, 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. |