2024年3月11日发(作者：甄翼)

vbs实现鼠标点击

展开全文

使用此代码的前提是你的系统上安装了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_LEFTDOWN

MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

'模拟鼠标左键双击（即快速的两次单击）

"mouse_event", MOUSEEVENTF_LEFTDOWN

+

+

MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

"mouse_event",

MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

'模拟鼠标右键单击

"mouse_event",

MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

'模拟鼠标中键单击

"mouse_event",

MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0

'关闭 Excel

yAlerts = False

MOUSEEVENTF_LEFTDOWN

MOUSEEVENTF_RIGHTDOWN

MOUSEEVENTF_MIDDLEDOWN

+

+

+

2024年3月11日发(作者：甄翼)

vbs实现鼠标点击

展开全文

使用此代码的前提是你的系统上安装了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_LEFTDOWN

MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

'模拟鼠标左键双击（即快速的两次单击）

"mouse_event", MOUSEEVENTF_LEFTDOWN

+

+

MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

"mouse_event",

MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

'模拟鼠标右键单击

"mouse_event",

MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

'模拟鼠标中键单击

"mouse_event",

MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0

'关闭 Excel

yAlerts = False

MOUSEEVENTF_LEFTDOWN

MOUSEEVENTF_RIGHTDOWN

MOUSEEVENTF_MIDDLEDOWN

+

+

+