'-------------------------------------------
' 模拟鼠标的左键单击和右键单击
'-------------------------------------------
' 洪恩在线 求知无限
'-------------------------------------------
'程序说明:
'本例采用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_ABSOLUTE
' dx和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,通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序
- '对API变量的定义
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10 - ''鼠标模拟
- 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)
- ''鼠标位置
- Public Type POINTAPI
- x As Long
- y As Long
- End Type
- Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
- '如果同时要模拟两个鼠标事件,可以用 Or 将两个参数连接
- '调用了mouse_event函数,其参数的设置见前面说明
- '1单击,2右单击,3左双击,4上滚,5,下滚,0移动
- ''参数:动作,X,Y,返回?
- Public Sub set_mouse(Clk_type As Long, Optional x As Variant = 0, Optional y As Long = 0, Optional isBack As Boolean = False)
- Dim mouseven As Long
- Dim msP As POINTAPI, newMsp As POINTAPI
- mouseven = 0
- newMsp.x = x
- newMsp.y = y
- Debug.Print TypeName(x)
- If x > 0 Or y > 0 Then mouseven = MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE
- ''如果需要返回,则记录原位置
- If isBack Then GetCursorPos msP
- If Clk_type = 1 Then '这里是 鼠标左键按下 和松开两个事件的组合即一次单击
- mouse_event mouseven Or MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, newMsp.x, y, 0, 0
- ElseIf Clk_type = 2 Then '模拟鼠标右键单击事件,
- mouse_event mouseven Or MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, newMsp.x, y, 0, 0
- ElseIf Clk_type = 3 Then '两次连续的鼠标左键单击事件 构成一次鼠标双击事件
- mouse_event mouseven Or MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, newMsp.x, y, 0, 0
- mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, newMsp.x, y, 0, 0
- ElseIf Clk_type = 4 Then '上滚
- mouse_event mouseven Or MOUSEEVENTF_MIDDLEUP, newMsp.x, y, 0, 0
- ElseIf Clk_type = 5 Then '下滚
- mouse_event mouseven Or MOUSEEVENTF_MIDDLEDOWN, newMsp.x, y, 0, 0
- Else
- mouse_event mouseven, newMsp.x, y, 0, 0
- End If
- ''如果需要返回,则记录原位置
- If isBack Then set_mouse 0, msP.x, msP.y, False
- End Sub
- Public Sub getMsPos(msPos As POINTAPI)
- GetCursorPos msPos
- End Sub