如何使用VBScript移动鼠标

Question

我正在尝试使用VBScript移动鼠标。我试图使用Sendkeys "{CLICK LEFT , x , y}"和Sendkeys "{MOVETO, 10 , 20}"但它不工作我也尝试使用鼠标键，所以我可以用键盘移动它，因此使用Sendkeys激活它但它也没有工作（鼠标键盘不移动鼠标）。我已经尝试了我所知道的一切以及我可以在别处研究的东西，所以现在我希望你们中的一个能为我解答这个问题。 thxs

Answer 1

VBScript本身不能这样做。您必须对Windows API或其他可以为您执行此操作的库进行一些调用。

作为替代方案，您可能需要考虑使用不同的脚本语言，例如AutoHotKey，它可以在一行简单的代码中为您执行此操作。

Answer 2

移动鼠标的一种可能方法是：

Dim Excel: Set Excel = WScript.CreateObject("Excel.Application") 
Excel.ExecuteExcel4Macro "CALL(""user32"",""SetCursorPos"",""JJJ"",""xxx"",""yyy"")"

- > xxx = X位置| yyy = y位置

唯一的缺点是你需要Microsoft Excel才能运行这个脚本......

希望我能帮助你