Vbscript 弹出窗口显示并关闭目标进程

我正在尝试使用代码，并对HTA进行了一些调整。它在一定程度上起作用：

Set wshShell = WScript.CreateObject( "WScript.Shell" ) 

更改为：

Set wshShell = CreateObject( "WScript.Shell" )

弹出窗口出现，但在我单击它之前它不会消失。我需要它在进程运行时出现，然后在进程结束时消失。为什么我的死刑没有做到这一点

ProgressMsg "Copying, Please wait.", "File Being Copied" 
strCMD = "cmd.exe /c robocopy " & strLocalSemesterCourse & " " & strServerSemesterCourse &" " & strFileName & " /LOG+:" & strLogName & " /V /FP /TEE" 
nReturn = objShell.Run(strCMD, 1, true) 
ProgressMsg "", "Finished"

您需要将objProgressMsg定义为全局变量，以使其工作：

Dim objProgressMsg
...
ProgressMsg "Copying, Please wait.", "File Being Copied" 
strCMD = "cmd.exe /c robocopy " & strLocalSemesterCourse & " " _
  & strServerSemesterCourse &" " & strFileName & " /LOG+:" & strLogName _
  & " /V /FP /TEE" 
nReturn = objShell.Run(strCMD, 1, true) 
ProgressMsg "", "Finished"

---

如果没有全局变量，ProgressMsg将使用局部变量objProgressMsg。局部变量在函数退出后不会保留其值，因此每次调用函数时，该变量都将为空。

HI-谢谢您的帮助。在你的帮助下，我能让它工作。