[其他] 【已解决】BAT批处理中如何静默执行，在完成后调用MSGBOX？

tonyabbs

ＢＡＴ处理时是静默执行，在完成后，希望能跳出对话框，告知完成情况。请问如何做到？

tonyabbs

太感谢了！

pcl_test

回复 4# tonyabbs
批处理隐藏运行的11种思路
http://bbs.bathome.net/thread-3271-1-1.html

tonyabbs

那么如何静默执行呢？

pcl_test

回复 1# tonyabbs
问题得到解决后请在标题最前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html

pcl_test

回复 1# tonyabbs
最简单的

msg * 呵呵
复制代码

各类型弹提示框集合

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin

start mshta vbscript:msgbox("测试提示框之一    ",,"提示")(window.close)
ping 0 /n 3 >nul
taskkill /f /im mshta.exe >nul

start mshta vbscript:msgbox("测试提示框之二（此提示框能保持前端显示） ",vbSystemModal,"提示")(window.close)
ping 0 /n 6 >nul
taskkill /f /im mshta.exe >nul

start mshta vbscript:msgbox("测试提示框之三    ",vbInformation,"提示")(window.close)
ping 0 /n 6 >nul
taskkill /f /im mshta.exe >nul

start mshta vbscript:msgbox("测试提示框之四    ",VbExclamation,"警告!")(window.close)
ping 0 /n 6 >nul
taskkill /f /im mshta.exe >nul

start mshta vbscript:msgbox("测试提示框之五    ",VbQuestion,"询问?")(window.close)
ping 0 /n 6 >nul
taskkill /f /im mshta.exe >nul

start mshta vbscript:msgbox("测试提示框之六    ",VbCritical,"错误!")(window.close)
ping 0 /n 6 >nul
taskkill /f /im mshta.exe >nul

mshta vbscript:CreateObject("Wscript.Shell").popup("测试提示框之七（6秒后自动退出）",6,"提示",vbOKOnly)(window.close)

mshta vbscript:msgbox("测试提示框之八（请点击任意一个按扭退出）",vbOKCancel,"选择")(window.close)

mshta vbscript:msgbox("测试提示框之九（请点击任意一个按扭退出）",vbRetryCancel,"选择")(window.close)

mshta vbscript:msgbox("测试提示框之十（请点击任意一个按扭退出）",vbAbortRetryIgnore,"选择")(window.close)

mshta vbscript:msgbox("测试提示框之十一 （请点击任意一个按扭退出）",vbYesNo,"选择")(window.close)

mshta vbscript:msgbox("测试提示框之十二（请点击任意一个按扭退出）",3,"选择")(window.close)

msg %username% /time:5 "全部完成，5秒后自动退出！"

exit
复制代码