使用 VBA 控制 VBScript

Question

为了实现多线程，我使用 VBA 编写 VBScript 代码 (VBStr) 并即时写入文件，然后异步启动这些帮助脚本：

Dim VBFile As Object
Dim VBPath As String
VBPath = CurrentProject.Path & "\" & GUID() & ".vbs"
Set VBFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(VBPath)
VBFile.WriteLine VBStr
VBFile.Close

Dim Shell As Object
Set Shell = CreateObject("Wscript.Shell")

Shell.Run """" & VBPath & """"

但是，如何在 VBA 中控制这些脚本？我似乎无法得到它们的句柄或参考。假设我想在 60 秒后终止挂起/停滞的脚本 - 如何执行此操作？

Answer 1

使用 .Exec 而不是 .Run。返回的WshScriptExec Object 具有监控进程状态和终止进程的方法/属性。