对于系统底层模拟鼠标操作,请问有人写过这样的程序吗?

[xiaolong83]

网上有人写过这样的程序,如下:

procedure TForm1.btnLClickClick(Sender: TObject);
begin
　SetCursorPos(10,10);
　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

　　首先需要通过SetCursorPos函数来设置需要单击的坐标。然后通过mouse_event (MOUSEEVENTF_LEFTDOWN,0,0,0,0)语句在(10,10)坐标处按下鼠标左键。最后不要忘了通过mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)语句释放鼠标左键。

　　双击的操作可以通过两个连续的单击来实现；鼠标移动的操作可以通过指定mouse_event 函数的第1个参数MOUSEEVENTF_MOVE，第2个和第3个参数为左边来实现；右键单击和左键单击的原理一致，只不过mouse_event函数中的参数分别替换为MOUSEEVENTF_RIGHTDOWN和MOUSEEVENTF_RIGHTUP。

　　程序代码如下：





unit Unit1;
interface

uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;
type
　TForm1 = class(TForm)
　btnMove: TButton;
　btnLClick: TButton;
　btnLDClick: TButton;
　btnRClick: TButton;
　procedure btnMoveClick(Sender: TObject);
　procedure btnLClickClick(Sender: TObject);
　procedure btnLDClickClick(Sender: TObject);
　procedure btnRClickClick(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;

var
　Form1: TForm1;
　implementation
　{$R *.dfm}

　procedure TForm1.btnMoveClick(Sender: TObject);
　begin
　　mouse_event(MOUSEEVENTF_MOVE,100,100,0,0);
　end;

　procedure TForm1.btnLClickClick(Sender: TObject);
　begin
　　SetCursorPos(10,10);
　　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
　end;

　procedure TForm1.btnLDClickClick(Sender: TObject);
　begin
　　SetCursorPos(200,200);
　　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
　　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
　end;

　procedure TForm1.btnRClickClick(Sender: TObject);
　begin
　　SetCursorPos(200,200);
　　mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
　　mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
　end;
end.

　　保存文件，然后按F9键运行程序，

但我现在想让鼠标自动模拟点击,而不是要依靠人工去点击.