Question

批处理弹窗判断并自动关闭

写了一个批处理执行某程序，具体代码如下：
现在机制是：检测网络，如果网络不通则弹窗警告，如果网络通畅则执行程序，而在弹窗警告出现之后网络通畅了则必须手动关掉弹窗之后才能运行程序。
我现在需要它自动检测并关闭弹窗执行程序，机制需要变为：检测网络，如果网络不通则弹窗警告，如果网络通畅则执行程序，如果出现弹窗警告之后网络通畅了则弹窗警告自动关掉执行程序。
@echo off
if "%1"=="h" goto begin
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
:1

:retry

ping /n 2 192.168.1.1 >nul
IF ERRORLEVEL 1 ( goto eee ) else (goto ooo)
:ooo

cls
start "" "D:\1\1.exe"
goto 2
:eee

mshta vbscript:CreateObject("Wscript.Shell").popup("无网络连接，请检查！！！",,"网络判断",64)(window.close)

goto retry

:2

ping -n 1800 127.0.1>nul
goto 1

Answer 1

Dos批处理命令bat文件运行完以后自动关闭dos窗口的方法：
　　很多人运行完批处理命令发现dos窗口不能自动关闭，那是因为你在bat文件中直接执行了需要运行的某些外部程序，如果希望dos窗口自动关闭，那么，你可以使用start命令来执行该外部程序，而不是直接写上一行来执行。例子说明：
　　start "CS" "c:\programme files\cs\half-life.exe" "/m"
　　上面只是一个使用格式的例子，即 start "给窗口随便命个名" "带完整路径的程序程序" "程序需要传递的参数串（可省略）"
　　当然，在的批处理文件末尾，最好不要忘记加上一行： EXIT

Answer 2

@echo off
:head
:1
ping /n 2 192.168.1.1 >nul
if %errorlevel%==1 (goto :eee) else (goto :ooo)
goto :2
:eee
mshta vbscript:CreateObject("Wscript.Shell").popup("无网络连接，请检查！！！",,"网络判断",64)(window.close)
ping /n 2 192.168.1.1 >nul
if %errorlevel% neq 1 tskill mshta & goto :ooo
tskill mshta >nul 2>nul
goto:eee
:ooo
cls
start "" "D:\1\1.exe"

追问

你好，这个不能执行，我拔掉网线它弹出网络异常的警告，插上网线之后并没有自动关闭，软件也不运行，还请你帮忙再看看，如果可以的话还请贴出完整语句，谢谢了

追答

@echo off:head:1ping /n 2 192.168.1.1 >nulif %errorlevel%==1 (goto :eee) else (goto :ooo):eeestart "网络判断" mshta vbscript:CreateObject("Wscript.Shell").popup("无网络连接，请检查！！！",,"网络判断",64)(window.close)ping /n 2 192.168.1.1 >nulif %errorlevel% neq 1 tskill mshta & goto :oootskill mshta >nul 2>nulgoto:eee:oooclsstart "" "D:\1\1.exe"