如何使用VBScript移动鼠标

时间:2015-10-08 14:47:04

标签: vbscript mouse sendkeys

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

2 个答案:

答案 0 :(得分:2)

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

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

答案 1 :(得分:0)

一种移动鼠标的方法是:

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

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

唯一的缺点是您需要Microsoft Excel才能运行此脚本...

希望我能帮助您