Question

vbs 或dat 检测判断电脑能够上网 就结束A进程

1.检测电脑是否连通网络，若没有连通网络，则隔3秒继续检测，超过3分钟仍无法连通网络，结束脚本程序，若能连通网络则执行第2步
2.检测进程A是否正在运行，若是则强制结束A进程
3.结束

Answer 1

@echo off
set /a tim1=%time:~0,2%*60*60+%time:~3,2%*60+%time:~6,2%
:step1
echo 正在测试网络连通性...
ping www.baidu.com > nul
if %errorlevel%==0 (goto step2
) else (goto step3)

:step2
echo 网络正常,正关闭进程A...
ping /n 2 127.1 > nul
tskill A
echo 3秒后自动退出...
ping /n 3 127.1 > nul
exit

:step3
echo 网络连接异常,3秒后重新测试...
ping /n 4 127.1 > nul
set /a tim2=%time:~0,2%*60*60+%time:~3,2%*60+%time:~6,2%
set /a tim=%tim2%-%tim1%
if /i %tim% gtr 180 (
echo 测试结束,请检查网络!
ping /n 3 127.1 > nul
exit
) else (
goto step1)
保存成BAT运行即可,已通过测试,有什么不对的地方可以HI我

Answer 2

vbs 代码

Set ws = WScript.CreateObject("WScript.Shell")
for i=1 to 10
m=ws.run("ping baidu.com -n 2",0,true)
if m=0 then
set mi=getobject("winmgmts:Win32_Process").instances_
for each p in mi
if ucase(p.name)=ucase("A..exe") then '把A..exe改成你的程序
p.terminate
wscript.quit
end if
next
end if
next