么意思博客

昨天接了个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;