使用powershell / vbs自动模拟鼠标单击操作

我今天想在Windows上实现自动化，因此我需要模拟鼠标单击。首先考虑使用powershell实施它：

首先安装一个名为“ WASP”的免费可用Powershell扩展，下载链接：

下载并解压缩后，将其放置在C：\ Windows \ System32 \ WindowsPowerShell \ v1.0 \ Modules \下，如图所示：

然后，在“开始”->“运行”中输入powershell并以管理员身份运行，

实施Import-ModuleWASP，然后引入扩展名，

如果有一个打开的cmd窗口，并且名称为cmd，请在其中输入字符123，然后执行以下命令：

选择窗口cmd |发送键123

有关详细信息，请参阅：

英语：

中文：

有时，使用选择窗口将焦点移到窗口，但是在发送键时，无法输入输入，这意味着输入焦点不在新窗口上。这时，出现这种故障，请考虑使用vbs首先单击“输入”窗口，使输入焦点集中在新窗口上，然后执行send-keys操作。

使用vbs模拟鼠标点击的操作代码如下：

mouseckick.vbs文件的内容如下：

Option Explicit
Dim WshShell
Dim oExcel, oBook, oModule
Dim strRegKey, strCode, x, y
Set oExcel = CreateObject("Excel.Application") 创建 Excel 对象
set WshShell = CreateObject("wscript.Shell")
strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
strRegKey = Replace(strRegKey, "$", oExcel.Version)
WshShell.RegWrite strRegKey, 1, "REG_DWORD"
Set oBook = oExcel.Workbooks.Add 添加工作簿
Set oModule = obook.VBProject.VBComponents.Add(1) 添加模块
strCode = _
"Author: Demon"            & vbCrLf & _
"Website: http://demon.tw" & 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"
oModule.CodeModule.AddFromString strCode 在模块中添加 VBA 代码
Author: Demon
Website: http://demon.tw
Date: 2011/5/10
x = oExcel.Run("GetXCursorPos") 获取鼠标 X 坐标
y = oExcel.Run("GetYCursorPos") 获取鼠标 Y 坐标
WScript.Echo x, y 以对话框的形式打印出当前鼠标的坐标
oExcel.Run "SetCursorPos", 200, 300 设置鼠标要点击的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
模拟鼠标左键单击
oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
模拟鼠标左键双击（即快速的两次单击）
oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
模拟鼠标右键单击
oExcel.Run "mouse_event", MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 200, 200
模拟鼠标中键单击
oExcel.Run "mouse_event", MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
关闭 Excel
oExcel.DisplayAlerts = False
oBook.Close
oExcel.Quit

以上代码实现了鼠标左键在计算机屏幕上的（200,300）坐标处）上点击。

参考博客：

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/bofangqi/article-340943-1.html