フリーソフト

« [Delphi] WebBrowserからHTMLソースを取得する | トップページ | [Delphi] WebBrowserをスクロールする »

[Delphi] WebBrowser上をプログラムからクリックする

「次へ」のリンクをプログラム内からクリックする場合などに使える方法です。クリックする座標は、WebBrowserの左上を(0,0)としたときの座標で指定します。

uses mshtml;

procedure TForm1.Button1Click(Sender: TObject);
var
  hWB:HWND;
begin
  hWB := FindWindowEx(WebBrowser1.Handle,0,'Shell DocObject View',nil);
  hWB := FindWindowEx(hWB,0,'Internet Explorer_Server',nil);
  if hWB <> 0 then begin 
    //指定した座標をクリック
    SendMessage(hWB,WM_LBUTTONDOWN,0,MakeLParam(570,70)); 
    SendMessage(hWB,WM_LBUTTONUP,0,MakeLParam(570,70));
  end;
end;

« [Delphi] WebBrowserからHTMLソースを取得する | トップページ | [Delphi] WebBrowserをスクロールする »

Delphi」カテゴリの記事

TWebBrowser」カテゴリの記事

コメント

この記事へのコメントは終了しました。