有什么办法可以给TWebBrowser的某处坐标发送模拟点击。(200分)

  • 主题发起人 主题发起人 孔明.net
  • 开始时间 开始时间

孔明.net

Unregistered / Unconfirmed
GUEST, unregistred user!
而且要在后台完成。所以不能用HOOK。

或者能在TWebBrowser的正正中间点击也行,我控制流动务把目标移动过去,关键是能在后台运行。
 
应该有几种方法,其中一种方法是模拟鼠标事件,以下为示例代码,
另外还可以使用SendMessage发送消息WM_LBUTTONDOWN以及WM_LBUTTONUP消息,
然而不知什么原因,测试不成功。
var
pt:TPoint;
begin
GetCursorPos(pt);
SetCursorPos(200,200);
mouse_event(MOUSEEVENTF_LEFTDOWN ,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
SetCursorPos(pt.X,pt.Y);
end;
 
楼上的方法是针对屏幕的,如果程序最小化就不行了。
我要的效果是程序不显示在前面,在后台运行也可以点击 。
 
用BHO取得IHTMLDocument2以后想怎么操作就怎么操作
http://www.euromind.com/iedelphi/index.htm
 

Similar threads

D
回复
0
查看
839
DelphiTeacher的专栏
D
D
回复
0
查看
845
DelphiTeacher的专栏
D
D
回复
0
查看
679
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部