如何在VBScript中自动右键单击?

时间:2009-10-05 07:36:54

标签: vbscript wsh

我想自动模拟右键单击以打开上下文菜单。菜单打开后,选择所选的操作/快捷方式。

我知道如何打开:

WshShell.SendKeys("+{F10}");

或使用AutoIt自动化语言(类似BASIC):

  ;--on right click event
    MouseClick("right")
    $count = 1
    Do
        Send("{DOWN}")
        $count = $count + 1  

    Until $count > 7
    Send("{ENTER}")
    ;---select shortcut
    WinWaitActive("xxxxk")

    ;----doing execution from the 3rd program
    ControlSend("xxxxx",  "", "Edit2", "123ABC")
    Sleep(500)
    ControlSend("xxxxx",  "", "Edit3", "123ABC")
    Sleep(500)
    Send("{ENTER}")
    Sleep(500)

    WinClose("xxxxx")
    WinWaitActive("xxxxx", "Close")
    Send("{ENTER}")

我可以在VBScript中使用这样的东西吗?我觉得太乱了。

2 个答案:

答案 0 :(得分:1)

你的答案在你的问题中

WshShell.SendKeys("+{F10}");

一旦右键菜单打开,发送另一个键's'(在大多数情况下's'用于选择/全选)

shell.Sendkeys  "s"

你已经完成了:)

这里是完整的代码

shell.Sendkeys  ("+{F10}")
shell.Sendkeys  "s"

以上代码应该在VBScript右键单击自动化中运行,

我还想提一下,标题栏中的右键单击相当于ALT + SPACE,所以如果你想通过vbscript右键单击标题栏,我建议你发送ALT+SPACE代替

来源:http://msdn.microsoft.com/en-us/library/8c6yea83%28VS.85%29.aspx

答案 1 :(得分:0)

右键点击什么?

如果您正在谈论文件/文件夹(在Windows资源管理器中),您可以使用shell自动化执行此操作:DoItInvokeVerb