尝试
Dim x
set x=createobject("wscript.shell")
x.sendkeys"{CLICK LEFT,50,60}"
Run Code Online (Sandbox Code Playgroud)
或者
x.SendKeys("+{F10}") 'for a right click
Run Code Online (Sandbox Code Playgroud)
如果这些都不适合您,我建议使用Autoit或autohotkey之类的东西,使用 AutoHotKey 您可以编写一个宏来执行单击操作,然后从 VBScript 调用脚本。