Разобрался где была проблема с авто заполнением.
Теперь когда все поля заполняются, Delphi как на зло не нажимает на кнопку.
Код кнопки такой:
Код:
1 | <input class ="nl_loginbtn" type ="submit" name="login" value="Login" />
|
Код нажатия у меня такой:
Код:
1 2 3 4 | 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 по полученным координатам мышкой. Код этой процедуры вышел такой:
Код:
1 2 3 4 | 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.