回复 1# tonyabbs
最简单的复制代码 各类型弹提示框集合- @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
复制代码
|