VBS ShellExecute运行外部程序时判断执行成功与否的技巧

2023-12-31 00:57:07

判断和获取 VBS ShellExecute 执行的外部程序状态

引言

VBS ShellExecute 函数提供了一种简便的方法来运行外部程序。但是，有时我们需要了解程序的执行状态，以便采取适当的措施。本文将指导你如何使用 VBS ShellExecute 函数判断外部程序的执行成功与否，以及如何获取其详细状态信息。

ShellExecute 函数简介

ShellExecute 函数的语法如下：

ShellExecute(hwnd, Operation, Command, Parameters, Directory)

其中：

hwnd ：指定要运行程序的窗口句柄。
Operation ：指定要执行的操作，例如“open”、“print”或“explore”。
Command ：指定要运行的程序路径和文件名。
Parameters ：指定要传递给程序的参数。
Directory ：指定要运行程序的目录。

判断外部程序执行成功与否

有多种方法可以判断外部程序是否成功执行：

1. 返回值

ShellExecute 函数返回一个整数，指示程序的执行状态。如果返回值为 0，则表示程序成功执行；否则，表示执行失败。

2. 错误代码

如果程序执行失败，ShellExecute 函数会返回一个错误代码。可以使用 Err.Number 属性获取此代码。

3. 状态码

某些程序会在执行后返回一个状态码，指示其执行状态。可以使用 WshShell.Exec() 方法获取此状态码。

4. 退出代码

某些程序会在退出时返回一个退出代码，指示其退出状态。可以使用 WshShell.Run() 方法获取此退出代码。

获取外部程序执行的详细状态信息

除了判断执行成功与否，我们还可以获取外部程序执行的更详细信息，例如：

1. 运行时间

使用 WshShell.Exec() 方法，可以获取程序运行的时间，单位为秒。

2. 内存使用情况

也可以获取程序执行期间的内存使用情况，单位为字节。

代码示例

以下是使用 ShellExecute 函数判断外部程序执行成功与否和获取其详细状态信息的示例代码：

Dim lngRet, objShell, objExec

' 判断执行成功与否
lngRet = ShellExecute(0, "open", "notepad.exe", "", "")
If lngRet = 0 Then
    MsgBox "记事本成功启动！"
Else
    MsgBox "记事本启动失败！"
End If

' 获取详细状态信息
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("notepad.exe")
MsgBox "运行时间：" & objExec.RunTime & "秒"
MsgBox "内存使用情况：" & objExec.MemoryUsage & "字节"