VB模拟鼠标键盘动作

如何用vb实现模拟鼠标中键滚动如何用vb实现模拟鼠标中键滚动！Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)dwFlags：标志位集，指定点击按钮和鼠标动作的多种情况。

此参数里的各位可以是下列值的任何合理组合：MOOSE_EVENTF_ABSOLOTE：表明参数dX，dy含有规范化的绝对坐标。

如果不设置此位，参数含有相对数据：相对于上次位置的改动位置。

此标志可被设置，也可不设置，不管鼠标的类型或与系统相连的类似于鼠标的设备的类型如何。

要得到关于相对鼠标动作的信息，参见下面备注部分。

MOOSEEVENTFMOVE：表明发生移动。

M00SEEVENTF_LEFTDOWN：表明接按下鼠标左键。

M00SEEVENTF_LEFTUP：表明松开鼠标左键。

MOOSEEVENTF_RIGHTDOWN：表明按下鼠标右键。

MOOSEEVENTF_RIGHTUP：表明松开鼠标右键。

MOOSEEVENTF_MIDDLEDOWN：表明按下鼠标中键。

MOOSEEVENTF_MIDDLEUP：表明松开鼠标中键。

MOOSEEVENTF_WHEEL：在Windows NT中如果鼠标有一个轮，表明鼠标轮被移动。

移动的数量由dwData给出。

dx：指定鼠标沿x轴的绝对位置或者从上次鼠标事件产生以来移动的数量，依赖于MOOSEEVENTF_ABSOLOTE的设置。

给出的绝对数据作为鼠标的实际X坐标；给出的相对数据作为移动的mickeys数。

一个mickey表示鼠标移动的数量，表明鼠标已经移动。

dy：指定鼠标沿y轴的绝对位置或者从上次鼠标事件产生以来移动的数量，依赖于MOOSEEVENTF_ABSOLVTE的设置。

利用VB建立鼠标键盘操作回放很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用了Windows的Hook函数。

本文介绍如何通过使用VB来实现鼠标键盘操作的纪录和回放。

Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows消息，函数语法为：Public Declare Function SetWindowsHookEx Lib "user32" _Alias "SetWindowsHookExA" _(ByVal idHook As Long, _ByVal lpfn As Long, _ByVal hmod As Long, _ByVal dwThreadId As Long) As Long其中参数idHook指定建立的监视函数类型。

通过Windows MSDN帮助可以看到，SetwindowsHookEx函数提供15种不同的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。

参数lpfn 指定消息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。

函数的一般形式为：Hookproc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。

只要在程序中建立这样一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。

在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。

WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠标键盘消息。

VB模拟⿏标移动和单击VB模拟⿏标移动和单击这⾥要⽤到SetCursorPos（指定⿏标坐标）和mouse_event(综合⿏标击键和⿏标动作)两个API函数。

例：单击Command1时⿏标会到（500,500）这个点作⿏标左键单击动作。

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPrivate Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Const MOUSEEVENTF_LEFTDOWN = &H2Private Const MOUSEEVENTF_LEFTUP = &H4Private Sub Command1_Click()SetCursorPos 500, 500mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0End Sub关于Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)参数：dwFlags：标志位集，指定点击按钮和⿏标动作的多种情况。

VB程序设计键盘与鼠标事件过程11.1 键盘事件在Visual Basic中，窗体和接受键盘输入的控件都能识别这三种键盘事件：一是KeyPress，按下对应某ASCII字符的键；二是KeyDown，按下键盘的任意键；三是KeyUp，释放键盘的任意键。

只有获得焦点的对象才能接受键盘事件。

11.1.1 KeyPress事件当按下某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyPress事件，返回“所按字符”的ASCII码。

语法格式：Sub Object_KeyPress(KeyAscii As Integer)或Sub Object_KeyPress([index As Integer,]KeyAscii As Integer) 说明：1、Object：是指窗体或控件对象名；2、index：一个整数，它用来惟一标识一个控件数组中的控件；3、KeyAscii：是指KeyAscii参数返回对应ASCII字符代码的整型数值；KeyPress事件带有一个参数，这个参数有两种形式。

第一种形式为：Index As Integer，这种形式只用于控件数组；第二种形式为：KeyAscii As Integer，这种形式只用于单个控件。

11.1.2 KeyDown事件和KeyUp事件当按下或松开某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyDown事件或者KeyUp事件，返回键盘的直接状态。

KeyDown事件和KeyUp事件的参数也有两种形式：（1）Index As Integer 只用于控件数组。

（2）KeyCode As Integer，Shift As Integer 用于单个控件，本章只讨论这种形式。

语法格式为：Sub Object_KeyDown(KeyCode As Integer，Shift AsInteger)Sub Object_KeyUp(KeyCode As Integer，Shift As Integer)说明：1．KeyCode参数KeyCode表示按下的物理键，以“键”为准，而不是以“字符”为准。

按键精灵封装函数实例
在编写按键精灵脚本时，我们经常需要使用一些重复的代码片段，例如模拟鼠标点击、键盘输入等。

为了方便使用和提高代码复用率，我们可以将这些代码封装为函数。

下面是一个简单的按键精灵封装函数的实例：
```vb
Function MouseClick(x, y, button)
' 模拟鼠标点击
' x: 鼠标点击的横坐标
' y: 鼠标点击的纵坐标
' button: 鼠标按钮（0: 左键，1: 右键，2: 中键）
Call MoveTo x, y
Call LeftClick
If button = 1 Then ' 右键
Call RightClick
ElseIf button = 2 Then ' 中键
Call MiddleClick
End If
End Function
Function KeyInput(key)
' 模拟键盘输入
' key: 要输入的字符或键位码
Call KeyDown key
Call KeyUp key
End Function
```
以上两个函数分别用于模拟鼠标点击和键盘输入，具体用法如下： ```vb
' 模拟鼠标左键点击(100, 200)
Call MouseClick(100, 200, 0)
' 模拟键盘输入'Hello, World!'
Call KeyInput 'Hello, World!'
```
通过封装这些常用的操作，我们可以使代码更加简洁、易读，同时也方便了代码的复用和维护。

模拟鼠标操作全局级模拟GetCursorPos/GetCursorPos两个重要函数，获取光标位置与设置光标位置，详细说明请参考本站另一篇文章-经典API函数。

mouse_event模拟鼠标操作的主函数。

涉及API函数列表：Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpstring As String, ByVal cch As Long) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Type POINTAPIx As Longy As LongEnd TypeDim lpPoint As POINTAPI，sp as LongSub leftdown() '左键单击Dim lpstr As Stringlpstr = Space(255)GetCursorPos lpPointsp = WindowFromPoint(lpPoint.x, lpPoint.y)GetWindowText sp, lpstr, 255ShowWindow sp, SW_NORMALOn Error Resume NextAppActivate RTrim(lpstr)mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0End Sub先来看这个封装的leftdown()过程:第一句，声明一个字符串型变量；第二句，预置缓冲区为255个空字符，因为下面的函数需要将窗口标题字符串放入该缓冲区；第三句，获得光标当前位置，该位置信息被置入POINTAPI型变量lpPoint中，这是一个结构体，其中两个成员变量x,y分别为光标的横坐标，纵坐标；第四句，WindowFromPoint()函数返回光标下目标的句柄，赋给Long型变量sp,很有用的一个函数;第五句，ShowWindow()函数，显示一个窗口，其参数分别为目标窗口的句柄（第四句已获得）和显示样式，常用函数；第六句，容错，因为操作系统运行的不确定性，加容错语句以防万一；第七句，AppActivate()函数，激活一个窗口为活动窗口，其参数为窗口标题字符串（第四句已获得），刚才缓冲区被置了很大，所以需要去串的右端空格；第八句和第九句，关键所在，mouse_event()函数，左键单击只需设置第一个参数，其它参数用途请参考MSDN。

模拟鼠标的操作方法
模拟鼠标的操作方法通常可以使用编程语言提供的相关函数或库来实现。

下面是一些常见的操作方法：
1. 鼠标移动：可以使用`MouseMove`函数来模拟鼠标的移动操作。

该函数接受两个参数，分别是鼠标移动到的目标位置的横坐标和纵坐标。

例如，
`MouseMove(x, y)`可以将鼠标移动到坐标为(x, y)的位置。

2. 鼠标点击：可以使用`MouseClick`函数来模拟鼠标的点击操作。

该函数接受一个参数，表示点击的按钮。

例如，`MouseClick("left")`表示模拟鼠标左键的点击操作。

3. 鼠标双击：可以使用`MouseDoubleClick`函数来模拟鼠标的双击操作。

该函数接受一个参数，表示双击的按钮。

例如，`MouseDoubleClick("left")`表示模拟鼠标左键的双击操作。

4. 鼠标拖动：可以使用`MouseDown`、`MouseMove`和`MouseUp`等函数来模拟鼠标的拖动操作。

首先使用`MouseDown`函数按下鼠标按钮，然后使用`MouseMove`函数移动鼠标到目标位置，最后使用`MouseUp`函数释放鼠标按钮。

例如，`MouseDown("left")`、`MouseMove(x, y)`和`MouseUp("left")`可以模拟鼠标左键的拖动操作。

需要注意的是，具体的操作方法可能因编程语言和操作系统的不同而有所差异。

VB模擬按鍵終極教程`有了它`啥游戏都不怕全局級模擬你會發現，用上面的方法類比按鍵並不是對所有程式都有效的，有的程式啊，你向它發了一大堆消息，可是它卻一點反應也沒有。

這是怎麼回事呢？這就要看具體的情況了，有些程式(特別是一些遊戲)出於某些原因，會禁止用戶對它使用類比按鍵程式，這個怎麼實現呢？比如可以在程式中檢查一下，如果發現自己不是活動視窗，就不接受鍵盤消息。

或者仔細檢查一下收到的鍵盤消息，你會發現真實的按鍵和類比的按鍵消息總是有一些小差別，從這些小差別上，目的程式就能判斷出：這是假的！是偽造的！！因此，如果用PostMessage發送局部消息類比按鍵不成功的話，你可以試一試全局級的鍵盤消息，看看能不能騙過目的程式。

類比全局鍵盤消息常見的可以有以下一些方法：(1) 用API函數keybd_event，這個函數可以用來類比一個鍵盤事件，它的VB聲明為：Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags A s Long, ByVal dwExtraInfo As Long)參數bVk表示要類比的按鍵的虛擬碼，bScan表示該按鍵的掃描碼(一般可以傳0)，dwFlags表示是按下鍵還是釋放鍵(按下鍵為0，釋放鍵為2)，dwExtraInfo是擴展標誌，一般沒有用。

比如要模擬按下A鍵，可以這樣：Const KEYEVENTF_KEYUP = &H2keybd_event VK_A, 0, 0, 0'按下A鍵keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0'釋放A鍵注意有時候按鍵的速度不要太快，否則會出問題，可以用API函數Sleep來進行延時，聲明如下：Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)參數dwMilliseconds表示延時的時間，以毫秒為單位。

VB模拟鼠标键盘动作(转)2011-03-31 15:16来自网址：/share/detail/16221474VB模拟鼠标键盘动作有些时候，一些重复性的，很繁琐的键盘操作总会让人疲惫，于是就有了用程序来代替人们按键的方法，这样可以把很多重复性的键盘操作交给程序来模拟，省了很多精力，按键精灵就是这样的一个软件。

那么我们怎样才能用VB来写一个程序，达到与按键精灵类似的功能呢？那就让我们来先了解一下windows中响应键盘事件的机制。

当用户按下键盘上的一个键时，键盘内的芯片会检测到这个动作，并把这个信号传送到计算机。

如何区别是哪一个键被按下了呢？键盘上的所有按键都有一个编码，称作键盘扫描码。

当你按下一个键时，这个键的扫描码就被传给系统。

扫描码是跟具体的硬件相关的，同一个键，在不同键盘上的扫描码有可能不同。

键盘控制器就是将这个扫描码传给计算机，然后交给键盘驱动程序。

键盘驱动程序会完成相关的工作，并把这个扫描码转换为键盘虚拟码。

什么是虚拟码呢？因为扫描码与硬件相关，不具有通用性，为了统一键盘上所有键的编码，于是就提出了虚拟码概念。

无论什么键盘，同一个按键的虚拟码总是相同的，这样程序就可以识别了。

简单点说，虚拟码就是我们经常可以看到的像VK_A,VK_B这样的常数，比如键A的虚拟码是65，写成16进制就是&H41，注意，人们经常用16进制来表示虚拟码。

当键盘驱动程序把扫描码转换为虚拟码后，会把这个键盘操作的扫描码和虚拟码还有其它信息一起传递给操作系统。

然后操作系统则会把这些信息封装在一个消息中，并把这个键盘消息插入到消息列队。

最后，要是不出意外的话，这个键盘消息最终会被送到当前的活动窗口那里，活动窗口所在的应用程序接收到这个消息后，就知道键盘上哪个键被按下，也就可以决定该作出什么响应给用户了。

这个过程可以简单的如下表示：用户按下按键-----键盘驱动程序将此事件传递给操作系统-----操作系统将键盘事件插入消息队列-----键盘消息被发送到当前活动窗口明白了这个过程，我们就可以编程实现在其中的某个环节来模拟键盘操作了。

VB鼠标的API函数使用详解1. MouseDown(Button, Shift, X, Y)该函数用于模拟鼠标按下按钮的动作，Button参数可以是常量vbLeftButton、vbRightButton或vbMiddleButton，用于指示要模拟按下的鼠标键；Shift参数可以是常量vbShiftMask、vbCtrlMask或vbAltMask，表示按下Shift、Ctrl、Alt键的状态，如果Shift参数没有指定，则默认为不按下Shift、Ctrl、Alt键；X参数表示鼠标按下点的横坐标，Y参数表示鼠标按下点的纵坐标。

2. MouseUp(Button, Shift, X, Y)该函数用于模拟鼠标抬起按钮的动作，Button参数可以是常量vbLeftButton、vbRightButton或vbMiddleButton，用于指示要模拟抬起的鼠标键；Shift参数可以是常量vbShiftMask、vbCtrlMask或vbAltMask，表示抬起Shift、Ctrl、Alt键的状态，如果Shift参数没有指定，则默认为不抬起Shift、Ctrl、Alt键；X参数表示鼠标抬起点的横坐标，Y参数表示鼠标抬起点的纵坐标。

3. MouseMove(X, Y)该函数用于模拟鼠标移动的动作，X参数表示鼠标移动目标点的横坐标，Y参数表示鼠标移动目标点的纵坐标。

4. MouseWheel(WheelClicks)该函数用于模拟鼠标滚轮操作，WheelClicks参数表示要模拟的滚轮点击数，每次滚轮转动一次，WheelClicks参数的值就会增加或减少一；如果是向前滚动，则WheelClicks参数值应该大于0；如果是向后滚动，则WheelClicks参数值应该小于0。

5. DragPicture(Picture, X1, Y1, X2, Y2, Mode)该函数用于拖拽图形，Picture参数表示拖拽对象。

在VB程序中实现鼠标右键双击西北工业大学(710072) 况正谦在Microsoft Visual BASIC(VB)中,窗体(Form)和控件(Control)等对象的单击(Click)和双击(Double-Click)事件都是指鼠标左键而言的。

鼠标右键的单击和双击事件在VB中没有对应的事件驱动过程去响应和处理。

但是在实际应用中(特别是一些可视化的图形软件)可能对鼠标键的功能定义比较丰富,单靠鼠标左键的单击和双击难以满足复杂的需要。

因此有必要开发和扩充VB应用程序对鼠标右键的响应能力。

VB定义的鼠标事件VB定义的鼠标事件有五种:单击(Click)、双击(DblClick)、鼠标键按下(MouseDown)、鼠标键松开(MouseUp)和鼠标光标移动(MouseMove)。

其中前两种事件单击和双击是专指鼠标左键而言,后三种则适用于所有鼠标键。

后三种鼠标事件的事件驱动过程有如下的形式: Sub对象名-鼠标事件(Button As Integer,Shift As Integer, X As Single, Y As Single) 用户插入的事件响应和处理代码End Sub 传递给事件过程的参数中,整型数Button的最低三位从右到左分别对应鼠标左、右、中三个键。

事件发生时,哪个或哪些键处于被按下的状态,Button的对应位就为1,否则为0。

程序中可以用VB的位运算AND来检测鼠标键的状态。

整数Shift的最低三位从右到左分别对应事件发生时键盘的Shift、Ctrl、Alt键。

事件发生时,Shift、Ctrl、Alt中的哪个或哪些键处于被按下的状态,参数Shift 的对应位就为1,否则为0。

单精度值X和Y存放的是事件发生时鼠标光标的X-Y坐标值。

该值对于窗体对象而言是鼠标光标在窗体客户区中的坐标,对于控件对象则是鼠标光标在窗体客户区中相对于控件左上角的坐标。

鼠标右键事件的检测实际上,鼠标的单击事件可以被分解为MouseDown和MouseUp两个事件,所以我们可以用MouseDown事件来取代单击事件。

VB模拟一次鼠标事件使用API函数mouse_event可以模拟一次鼠标事件，比如左键单击、双击和右键单击等。

这个实例利用此函数产生了十分有趣的效果，无论鼠标处于屏幕的任何位置，每隔一秒程序会使鼠标在那个位置单击或双击一次，这会给我们造成什么样的混乱呢？试一试就知道了。

-------------------------------------------模拟鼠标的左键单击和右键单击-------------------------------------------程序说明：本例采用API函数实现模拟的鼠标事件，程序运行后会产生十分有趣的效果。

也来试一试。

本例中只使用了相对鼠标坐标，我们也可以使用绝对鼠标坐标来试一试。

-------------------------------------------【VB声明】Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)【说明】模拟一次鼠标事件【备注】进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度【参数表】dwFlags -------- Long，下述标志的一个组合MOUSEEVENTF_ABSOLUTEdx和dy指定鼠标坐标系统中的一个绝对位置。

在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元 -MOUSEEVENTF_MOVE 移动鼠标MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下MOUSEEVENTF_RIGHTUP 模拟鼠标右键抬起MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下MOUSEEVENTF_MIDDLEUP 模拟鼠标中键抬起dx ------------- Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动dy ------------- Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动cButtons ------- Long，未使用dwExtraInfo ---- Long，通常未用的一个值。

VB模拟按键终极教程VB（Visual Basic）是一种可视化的编程语言，在Windows操作系统中得到广泛应用。

VB可以通过模拟按键实现自动化操作，比如自动填写表单、自动点击按钮等。

本教程将详细介绍如何使用VB来模拟按键操作的终极方法。

首先，我们需要创建一个新的VB项目。

打开VB开发环境，点击“新建项目”并选择“Windows桌面向导”。

在下一步中，选择“Windows窗体应用程序”并命名项目。

点击“确定”开始创建项目。

```Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ByVal bScan As Byte, _ByVal dwFlags As Long, _ByVal dwExtraInfo As Long)Private Const KEYEVENTF_KEYUP = &H2```上述代码声明了一个名为keybd_event的函数和一个名为KEYEVENTF_KEYUP的常量。

keybd_event函数用于模拟按键操作，KEYEVENTF_KEYUP常量用于指定按键的释放事件。

然后，在Form_Load事件处理程序中添加以下代码，实现模拟按键操作：```Private Sub Form_Loadkeybd_event(VBKeyLMenu, 0, 0, 0) '按下左Alt键keybd_event(Keys.F, 0, 0, 0) '按下F键keybd_event(Keys.F, 0, KEYEVENTF_KEYUP, 0) '释放F键keybd_event(VBKeyLMenu, 0, KEYEVENTF_KEYUP, 0) '释放左Alt键End Sub```上述代码会在窗体加载时模拟按下左Alt键和F键，并在F键释放后释放左Alt键。

最后，我们需要在按钮的Click事件处理程序中添加代码来触发模拟按键操作。