批处理之家 - Powered by Discuz! Board

@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