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