能否模拟鼠标跟踪点击？

myboor 2005-03-15 12:38:21

打射击游戏的时候突发奇想，能否设计一个程序，判断屏幕上的物体，并移动鼠标点击它。我想模拟点击是没有任何问题，关键是怎么判断屏幕上的物体，况且物体又是动来动去的。我开始想先建一个相同的物体图像，然后逐点移动，如果与屏幕上某块区域异或为0，就模拟点击，但是觉得效率太低了，大家有什么好点子，不妨畅所欲言，这以后再打游戏就是百战百胜了，呵呵！

...全文

221 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

Blakhawk 2005-04-30

打赏
举报

我现在把示列代码贴出来，不晓得对你有没有用，它里头模拟鼠标点击事件。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Memo1: TMemo;
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.Add('mouse:left click me');
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
//按下的是鼠标左键
begin
memo1.Lines.Add('mouse on button:left down at '+inttostr(x)+':'+inttostr(y));
end;
if button=mbRight then
//按下的是鼠标右键
begin
memo1.Lines.Add('mouse on button:right down at '+inttostr(x)+':'+inttostr(y));
end;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
//弹起的是鼠标左键
begin
memo1.Lines.Add('mouse on button:left up at '+inttostr(x)+':'+inttostr(y));
end;
if button=mbRight then
//弹起的是鼠标右键
begin
memo1.Lines.Add('mouse on button:right up at '+inttostr(x)+':'+inttostr(y));
end;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
memo1.Lines.Add('mouse on button:move to '+inttostr(x)+':'+inttostr(y));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
point:TPoint;
rnd:real;
begin
randomize;
point.x:=button1.left+3;
point.y:=button1.Top+3;
windows.ClientToScreen(form1.handle,point);
//在两个坐标系中转换坐标
Application.BringToFront;
//将程序放到前台，确保不会因发生误动作而执行了其它程序
setcursorpos(point.x,point.y);
//将光标移动到特定点
rnd:=random(6);
//产生随机数，后面的随机动作以此随机数为依据
case trunc(rnd) of
//根据产生随机数的不同而产生不同的鼠标动作
0:
begin
mouse_event(MOUSEEVENTF_LEFTUP,point.x,point.y,0,0);
//在点point处产生鼠标左键弹起动作
end;
1:
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,point.x,point.y,0,0);
//在点point处产生鼠标左键按下动作
end;
2:
begin
mouse_event(MOUSEEVENTF_RIGHTUP,point.x,point.y,0,0);
//在点point处产生鼠标右键弹起动作
end;
3:
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN,point.x,point.y,0,0);
//在点point处产生鼠标右键按下动作
end;
4:
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,point.x,point.y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,point.x,point.y,0,0);
//在点point处产生鼠标左键单击动作（单击实质就是鼠标先按下后弹起）
end;
5:
begin
mouse_event(MOUSEEVENTF_MOVE,trunc(rnd),trunc(rnd),0,0);
//在点point处产生鼠标移动动作
end;
end;// end case
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
timer1.Enabled:=false; //结束鼠标事件的产生
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

end.