Показать сообщение отдельно
  #6  
Старый 05.07.2011, 23:29
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Разобрался где была проблема с авто заполнением.
Теперь когда все поля заполняются, 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.
Ответить с цитированием