TWebBrowser.Navigate рандом

[ClMlD]

Сообщение от eval

клик по элементу делается так <element>.Click; все просто, только вам это не поможет..

А как мне найти именно тот элемент что мне нужен то есть ссылку

[eval]

а в #4 что делали?

[ClMlD]

а понял щас попробую

[Alex11223]

Что поняли-то? eval же честно предупредил что это не поможет да и вы сами пробовали!

вы что то подобное имели ввиду?

var
BrowserH:HWND;
begin
BrowserH:=Webbrowser1.handle;
PostMessage(BrowserH,WM_LBUTTONDOWN,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
PostMessage(BrowserH,WM_LBUTTONUP,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONUP));
end;

Наверно. Попробовать не? И курсор вероятно двигать до нажатия надо, может быть еще паузу добавить перед кликом.

[ClMlD]

Сообщение от Alex11223

Что поняли-то? eval же честно предупредил что это не поможет да и вы сами пробовали!

Так я пробовал Navigate а он предложил Click так я не пробовал

[ClMlD]

Ув. Форумчане PostMessage тоже не помог , он всеровно определяет что клик был не настоящим , что можно придумать?

[ClMlD]

Ура ! ! ! я это сделал , но опять же новая проблема: Иногда случается так что выскакивает ошибка сценария продолжить выполнения скрипта ? как от это избавиться?

[Alex11223]

Ув. Форумчане PostMessage тоже не помог , он всеровно определяет что клик был не настоящим , что можно придумать?

Дык PostMessage какой? С задержкой после движения тоже не работает?

Ну всегда есть вариант посмотреть что делает этот js скрипт и сделать тоже самое. Или может быть запустить его, вроде же есть в TWebBrowser что-то типа ExecuteJavascript("...").

[ClMlD]

Ошибку скрипта убрал выставив Silent на true . Все всем спасибо вопрос решен , тему можно закрыть