启动VBS MsgBox，但继续执行脚本
启动VBS MsgBox，但继续执行脚本
提问于 2019-03-02 02:26:12
我已经尝试了多种不同的方法来使下面的方法成为可能，但找不到一种方法。我有一个根据退出代码输出VBS消息框的ROBOCOPY脚本。但是，我希望批处理脚本即使在消息框出现后也能继续运行并退出。到目前为止，我必须单击Ok让VBS消息框关闭，然后命令行也会关闭。
下面是我的代码：
@ECHO OFF
::Delete DB File
CD "C:\Program Files (x86)\SAP\Agentry Client"
DEL "Agentry.db"
CLS
::Copy new DB file from Fil003
2>nul PUSHD "\\sampleserver\123\123" >nul
ROBOCOPY /ZB /IS /IT /R:3 "\\sampleserver\123\123" "C:\Program Files (x86)\SP\AClient" "AClient.db" /log:"C:\Program Files (x86)\SP\AClient\Acleint.txt" /tee
if %ERRORLEVEL% EQU 16 GOTO ER16
if %ERRORLEVEL% EQU 1 GOTO ER1
if %ERRORLEVEL% EQU 0 GOTO ER0
:ER0
2>nul POPD >nul
PUSHD "\\sampleserver\123\123\"
Start /b "" cscript "NoCopy.vbs"
TIMEOUT /T 3
POPD
exit
:ER1
2>nul POPD >nul
PUSHD "\\sampleserver\123\123\"
Start "" cmd /c cscript "Success.vbs"
TIMEOUT /T 3
POPD
exit
:ER16
2>nul POPD >nul
PUSHD "\\sampleserver\123\123\"
Start /b "" cscript "FatalError.vbs"
TIMEOUT /T 3
POPD
exit回答 1
Stack Overflow用户
发布于 2019-03-05 23:16:50
可以在vbs中使用mshta，而不是msgbox。
Function mshta(ByVal MessageText, ByVal Title, ByVal PauseTimeSeconds)
Set WScriptShell = CreateObject("WScript.Shell")
ConfigString = "mshta.exe vbscript:close(CreateObject(""WScript.Shell"")." & "Popup(""" & MessageText & """," & PauseTimeSeconds & ",""" & Title & """))"
WScriptShell.Run ConfigString
End Function'PauseTimeSeconds‘将关闭该消息，或者您可以将其设置为0，以便在用户单击“确定”之前保持打开状态。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/54950314
复制相关文章
相似问题
腾讯云开发者
