2024年4月5日发(作者：)
不止一个人问过我怎样用VBS控制鼠标操作，比如：怎么用VBS获取鼠标指针的坐
标位置？怎么用VBS移动鼠标
怎么用VBS模拟鼠标左键单击、左键双击、右键单击？……
网上搜到的答案普遍是VBS无法实现，或者是要用第三方COM（ActiveX？）组件。
我对第三方组件是很反感的，使用第三方组件毫无可移植性可言，因为别人的系统中不一
定注册了这个组件。我的建议是，尽量不要在VBS代码中调用第三方组件，除非你的程序
只是写来自己用。（顺便说一下，也尽量不要用不靠谱的Sendkeys方法，原因不解释）
好了，废话就说这么多，现在说说用VBS控制鼠标的方法。我以前写过一篇《VBS调
用Windows API函数》，本以为既然都能调用API了，用VBS控制鼠标还不是很简单是
事？事实证明我错了，不明真相的同学永远是大多数，不知道API是什么的VBSer大有人
在。不贴出实实在在的代码，他们根本不会自己写！
使用此代码的前提是你的系统上安装了Excel，因为要用到ation对象（如
果你偏要认为这算第三方组件我也没话说）：
代码如下:
Option Explicit
Dim WshShell
Dim oExcel, oBook, oModule
Dim strRegKey, strCode, x, y
Set oExcel = CreateObject("ation") '创建 Excel 对象
set WshShell = CreateObject("")
strRegKey =
"HKEY_CURRENT_USERSoftwareMicrosoftOffice$ExcelSecurityAccessVBOM"
strRegKey = Replace(strRegKey, "$", n)
te strRegKey, 1, "REG_DWORD"
Set oBook = '添加工作簿
Set oModule = (1) '添加模块
strCode = _
"'Author: Demon" & vbCrLf & _
"'Website: " & vbCrLf & _
"'Date: 2011/5/10" & vbCrLf & _
"Private Type POINTAPI : X As Long : Y As Long : End Type" & vbCrLf
& _
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal
y As Long) As Long" & vbCrLf & _
"Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI)
As Long" & vbCrLf & _
"Private 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)" & vbCrLf & _
"Public Function GetXCursorPos() As Long" & vbCrLf & _
"Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X" & vbCrLf
& _
"End Function" & vbCrLf & _
"Public Function GetYCursorPos() As Long" & vbCrLf & _
"Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y" & vbCrLf
& _
"End Function"
mString strCode '在模块中添加 VBA 代码
'Author: Demon
'Website:
'Date: 2011/5/10
x = ("GetXCursorPos") '获取鼠标 X 坐标
y = ("GetYCursorPos") '获取鼠标 Y 坐标
x, y
"SetCursorPos", 30, 30 '设置鼠标 X Y 坐标
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_ABSOLUTE = &H8000
'模拟鼠标左键单击
"mouse_event",
MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'模拟鼠标左键双击（即快速的两次单击）
"mouse_event",
MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
"mouse_event",
MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'模拟鼠标右键单击
"mouse_event",
MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
'模拟鼠标中键单击
MOUSEEVENTF_LEFTDOWN
MOUSEEVENTF_LEFTDOWN
MOUSEEVENTF_LEFTDOWN
+
+
+
MOUSEEVENTF_RIGHTDOWN +
"mouse_event", MOUSEEVENTF_MIDDLEDOWN +
MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
'关闭 Excel
yAlerts = False
注释已经够详细了，要知道我很少写注释的，如果还看不懂，说明你的水平有待提高！
发布评论