远程控制篇：用Delphi模拟键盘输入/鼠标点击

2024-01-12 00:13•HTML/CSS•阅读 3356

模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数.

Keybd_event函数能触发一个按键事件，也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一

次按键(按键的过程是:按下,然后弹起)，但是没有直接用这个函数方便。

Keybd_event共有四个参数:

第一个为按键的虚拟键值，如回车键为vk_return,　tab键为vk_tab;

第二个参数为扫描码，一般不用设置，用0代替就行;

第三个参数为选项标志，如果为keydown则置0即可，如果为keyup则设成“KEYEVENTF_KEYUP”;

第四个参数一般也是置0即可。

例如用以下代码即可实现模拟按下i键，其中的$49表示i键的虚拟键值：

keybd_event($49,0,0,0);

keybd_event($49,0,KEYEVENTF_KEYUP,0); 　　

mouse_event最好配合setcursorpos(x,y)函数一起使用，先定位鼠标,再产生鼠标事件.

mouse_event有五个参数:

第一个为选项标志，为MOUSEEVENTF_LEFTDOWN时表示左键按下，为MOUSEEVENTF_LEFTUP表示左键松开，向系统发送相应消息;

第二三个参数分别表示x,y相对位置，一般可设为0,0;

第四五个参数并不重要，一般也可设为0,0。

mouse_event的示例代码：

setcursorpos(20,132);

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); ...

上面的代码表示鼠标的双击，若要表示单击，用两个mouse_event即可(一次放下，一次松开)。　

注意

不管是模拟键盘还是鼠标事件，都要注意还原，即按完键要松开，一个keydown对应一个keyup；鼠标单击　完也要松开，不然可能影响程序的功能。

例子1：模拟按下'A'键

　　 keybd_event(65,0,0,0);

　　 keybd_event(65,0,KEYEVENTF_KEYUP,0);

　　例子2：模拟按下'ALT+F4'键

　　 keybd_event(18,0,0,0);

　　 keybd_event(115,0,0,0);

　　 keybd_event(115,0,KEYEVENTF_KEYUP,0);

　　 keybd_event(18,0,KEYEVENTF_KEYUP,0);

sendmessage模拟鼠标点击==============================================================

模拟鼠标点击

SendMessage(h, WM_LBUTTONDown, 1, 1);

SendMessage(h, WM_LBUTTONUP, 1, 1);

点击是一次按下和一次抬起组成的！

对鼠标的消息参数为：

SendMessage(h, WM_LBUTTONDown, X坐标, Y坐标);

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

var

x,y:integer;

begin

x:=form1.Left+webbrowser1.Left+570;

y:=form1.Top+webbrowser1.Top+210;

SetCursorPos(x,y);

Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);

Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);

end;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

PostMessage(Button2.Handle,WM_LBUTTONDOWN,0,(y shl 16)+x);

end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

PostMessage(Button2.Handle,WM_LBUTTONUP,0,(y shl 16)+x);

end;

◇[DELPHI]发送虚拟键值ctrl V

procedure sendpaste;

begin

keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);

keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);

keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);

keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);

end;

PS：如果对文章有异议或建议请联系作者，谢谢！

模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数.

Keybd_event函数能触发一个按键事件，也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一

次按键(按键的过程是:按下,然后弹起)，但是没有直接用这个函数方便。

Keybd_event共有四个参数:

第一个为按键的虚拟键值，如回车键为vk_return,　tab键为vk_tab;

第二个参数为扫描码，一般不用设置，用0代替就行;

第三个参数为选项标志，如果为keydown则置0即可，如果为keyup则设成“KEYEVENTF_KEYUP”;

第四个参数一般也是置0即可。

例如用以下代码即可实现模拟按下i键，其中的$49表示i键的虚拟键值：

keybd_event($49,0,0,0);

keybd_event($49,0,KEYEVENTF_KEYUP,0); 　　

mouse_event最好配合setcursorpos(x,y)函数一起使用，先定位鼠标,再产生鼠标事件.

mouse_event有五个参数:

第一个为选项标志，为MOUSEEVENTF_LEFTDOWN时表示左键按下，为MOUSEEVENTF_LEFTUP表示左键松开，向系统发送相应消息;

第二三个参数分别表示x,y相对位置，一般可设为0,0;

第四五个参数并不重要，一般也可设为0,0。

mouse_event的示例代码：

setcursorpos(20,132);

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); ...

上面的代码表示鼠标的双击，若要表示单击，用两个mouse_event即可(一次放下，一次松开)。　

注意

不管是模拟键盘还是鼠标事件，都要注意还原，即按完键要松开，一个keydown对应一个keyup；鼠标单击　完也要松开，不然可能影响程序的功能。

例子1：模拟按下'A'键

　　 keybd_event(65,0,0,0);

　　 keybd_event(65,0,KEYEVENTF_KEYUP,0);

　　例子2：模拟按下'ALT+F4'键

　　 keybd_event(18,0,0,0);

　　 keybd_event(115,0,0,0);

　　 keybd_event(115,0,KEYEVENTF_KEYUP,0);

　　 keybd_event(18,0,KEYEVENTF_KEYUP,0);

sendmessage模拟鼠标点击==============================================================

模拟鼠标点击

SendMessage(h, WM_LBUTTONDown, 1, 1);

SendMessage(h, WM_LBUTTONUP, 1, 1);

点击是一次按下和一次抬起组成的！

对鼠标的消息参数为：

SendMessage(h, WM_LBUTTONDown, X坐标, Y坐标);

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

var

x,y:integer;

begin

x:=form1.Left+webbrowser1.Left+570;

y:=form1.Top+webbrowser1.Top+210;

SetCursorPos(x,y);

Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);

Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);

end;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

PostMessage(Button2.Handle,WM_LBUTTONDOWN,0,(y shl 16)+x);

end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

PostMessage(Button2.Handle,WM_LBUTTONUP,0,(y shl 16)+x);

end;

◇[DELPHI]发送虚拟键值ctrl V

procedure sendpaste;

begin

keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);

keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);

keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);

keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);

end;

上一篇 »jenkins发布项目到远程主机上，配置linux使用SSH免密码登录
下一篇 »Python模拟键盘输入和鼠标操作

远程控制篇：用Delphi模拟键盘输入/鼠标点击

相关推荐

Java实现远程控制技术，附完整源代码

【转】C# 鼠标钩子控制鼠标移动与点击 C# 模拟鼠标移动与点击

Ubuntu远程控制Windows XP系统

delphi中时间控制

ASP.NET 登陆模拟鼠标点击效果

Ubuntu16.04 用Nomachine进行远程控制的配置

用Delphi模拟键盘输入/鼠标点击 - 旷野轻尘一个人

修复Window远程控制Ubuntu只显示桌面的问题