VBScript 模拟鼠标点击代码示例

以下是模拟鼠标点击的 VBScript 代码示例：

Set objShell = CreateObject("WScript.Shell")

' 模拟左键单击
objShell.SendKeys "{LEFT}"
WScript.Sleep 100

' 模拟右键单击
objShell.SendKeys "{RIGHT}"
WScript.Sleep 100

' 模拟双击
objShell.SendKeys "{LEFT 2}"
WScript.Sleep 100

说明：

• 通过创建 WScript.Shell 对象，可以使用 SendKeys 方法来模拟键盘和鼠标事件。
• 使用 SendKeys 方法时，需要将模拟事件的字符串作为参数传递给该方法。
• 在上面的示例中，使用了以下模拟事件的字符串：
  • "{LEFT}"：模拟左键单击
  • "{RIGHT}"：模拟右键单击
  • "{LEFT 2}"：模拟左键双击
• 在模拟完鼠标点击事件后，建议使用 WScript.Sleep 方法来等待一段时间，以确保之前的操作已经完成。