vbscript宏缩短了代码行

Question

就像在C ++中你可以将行转换成一个单词（宏，是吗？），有没有办法在vbscript中执行此操作？

e.g。而不是

Set shell = WScript.CreateObject("WScript.Shell")
Set sh = WScript.CreateObject("WScript.Shell").Exec("Firefox")

我可以缩短到像

这样的东西

Set shell = MACRO.Exec("Firefox")

如果它就像制作一个函数一样简单，有人可以举例说明如何在向它添加“.Exec”时这样做吗？

Answer 1

CreateObject("Wscript.Shell").exec("firefox")

按照点点。有一个隐式（未命名）变量，仅存在于行的生命周期中，并保存wscript.shell个对象。然后在该隐式变量上调用exec方法。

Exec是错误的命令。您需要Run。

下载帮助以查看差异http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe。

Answer 2

您可以缩短创建辅助功能的代码：

Dim WshExec

Set WshExec = WshShell.Exec("notepad")

Function WshShell()

    Set WshShell = CreateObject("WScript.Shell")

End Function