如何在VBScript中模拟鼠标单击？

Question

我正在尝试创建一个VBScript来自动执行两次左键单击和一次右键单击，它们之间的延迟时间为0.2秒，以自动化Minecraft种植。 我使用了这段代码，但它在第5行给出了一个错误：

Dim x
Set x = CreateObject("WScript.Shell")
Do
    WScript.Sleep 200
    x.SendKeys "{CLICK LEFT,960,540}"
    WScript.Sleep 200
    x.SendKeys "{CLICK LEFT,960,540}"
    WScript.Sleep 200
    x.SendKeys "{CLICK RIGHT,960,540}"
Loop

我做错了什么？

Answer 1

我不知道你从哪里获得了这种语法，但是WScript.Shell SendKeys method没有办法发送鼠标点击。

VBScript无法模拟鼠标点击。您需要找到或创建一个这样做的COM组件，或者使用其他语言来实现您尝试的自动化。