当前位置: 首页 > 技术文档 > 正文
avatar

昨天接了个3000元的定单, 要求模拟点击,但我没做过啊。 只能硬着头皮接了下来,程序设计得差不多了。 该写模 […]

昨天接了个3000元的定单,
要求模拟点击,但我没做过啊。
只能硬着头皮接了下来,程序设计得差不多了。
该写模拟点击的代码了!
不知道我写的代码对不对,欢迎指正!

procedure TForm1.Button1Click(Sender: TObject);
var
xxxRect: TRect;
Temp:HWND;
procedure xxClicked(x, y: integer);
begin
PostMessage(Temp, WM_LBUTTONDOWN, MK_LBUTTON, x + y shl 16);
PostMessage(Temp, WM_LBUTTONUP, MK_LBUTTON, x + y shl 16);
end;
begin
Temp := findwindow(nil,pchar( 'IDCSTAR云防护网络加速器'));
GetWindowRect(Temp, xxxRect);
with xxxRect do xxClicked(195,149);

end;
本文固定链接: https://blog.yanhualou.com/jishu/146.html | 烟花楼博客

delphi 后台模拟点击(坐标):等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter