最近在项目中偶然用到了使用VBS调用“shell.application”中的ShellExecute方法。在百度搜索一圈后发现很难找到关于这个方法的详细的中文教程。最后是在微软的官方文档中才找到了这个指令的详细英文教程。现将该方法的详细描述用中文分享给各位码友。

首先，VBS中调用该方法可以用Set Shell=CreateObject("Shell.Application")来创建对象。该方法的命令格式如下：

Shell.ShellExecute "执行命令或文件的名称", "执行命令的附加参数", "执行命令或文件所在目录的绝对路径", "操作", 窗口显示类型

具体解释如下：

1.执行命令或文件的名称：就是您要执行的命令或处理文件的名称。例如您想打开一个cmd指令窗口，那么这个名称就是cmd.exe。

2.执行命令的附加参数：如果您执行的命令是需要参数的，则可以将这些参数填写在这里。

3.执行命令或文件所在目录的绝对路径：填写您要执行的命令文件或要处理的文件的存储路径。如果是空则默认为当前路径。

4.操作：本参数有六项设定值可供选择。

5.窗口显示类型：这个参数用于设定在执行第一个参数中指定的程序时，以何种方式打开程序窗口。这是一个用数字表示不同设定值的参数。具体内容如下：

应用实例：本例子是使用ShellExecute方法调用“C:\Windows\System32\cmd.exe”控制台程序来添加用户。用户名称为username,密码为password。以管理员账户运行。

Set Shell=CreateObject("Shell.Application")
Shell.ShellExecute "cmd.exe", "/k net user username password /add", "C:\Windows\System32\", "runas", 1

Shell.ShellExecute 方法官方资料

对指定文件执行指定操作。

语法
JScript：

JavaScript

iRetVal = Shell.ShellExecute(
  sFile,
  [ vArguments ],
  [ vDirectory ],
  [ vOperation ],
  [ vShow ]
);

VBScript：

iRetVal = Shell.ShellExecute( _
  sFile, _
  [ ByVal vArguments ], _
  [ ByVal vDirectory ], _
  [ ByVal vOperation ], _
  [ ByVal vShow ] _
)

VB：

Shell.ShellExecute( _
  ByVal sFile As BSTR, _
  [ ByVal vArguments As Variant ], _
  [ ByVal vDirectory As Variant ], _
  [ ByVal vOperation As Variant ], _
  [ ByVal vShow As Variant ] _
) As Integer

参数

sFile [in]

类型： BSTR

一个 字符串 ，其中包含 ShellExecute 将对其执行 vOperation 指定的操作的文件的名称。

vArguments [in， 可选]

类型： Variant

包含操作的参数值的字符串。

vDirectory [in， 可选]

类型： Variant

包含 sFile 指定的文件的目录的完全限定路径。 如果未指定此参数，则使用当前工作目录。

vOperation [in， 可选]

类型： Variant

要执行的操作。 此值设置为文件支持的谓词字符串之一。 有关谓词的讨论，请参阅“备注”部分。 如果未指定此参数，则执行默认操作。

vShow [in， 可选]

类型： Variant

最初应如何显示应用程序窗口的建议。 应用程序可以忽略此建议。 此参数的取值可为下列值之一： 如果未指定此参数，则应用程序使用其默认值。

注解

此方法等效于启动与文件快捷菜单关联的命令之一。 每个命令由谓词字符串表示。 支持的谓词集因文件而异。 最常支持的谓词是“open”，这通常是默认谓词。 其他谓词可能仅支持某些类型的文件。 有关 Shell 谓词的进一步讨论，请参阅 启动应用程序 或 扩展快捷菜单。

此方法目前在 Microsoft Visual Basic中不可用。

示例

以下示例演示如何使用 ShellExecute 打开记事本。 JScript和 VBScript 的使用情况显示。

JScript：

function ShellExecuteJS()
{
    var objShell = new ActiveXObject("Shell.Application");
    objShell.ShellExecute("notepad.exe", "", "", "open", 1);
}

VBScript：

Function ShellExecuteVB()
    Dim objShell
    Set objShell = CreateObject("Shell.Application")
    Call objShell.ShellExecute("notepad.exe", "", "", "open", 1)
End Function

要求

想了解更多的朋友可以到微软官方查看

https://learn.microsoft.com/zh-cn/windows/win32/shell/shell-shellexecute