随手写的
改了一下 看得更加舒服一点（虽然还是没有缩进
谷歌和CF好像国内都不是很稳定 都有丢包现象 丢包时间不定
另外CF延迟还比较高，将近200ms，谷歌倒只有20ms左右
广州的网络阿里云和百度云有时候也ping不通
总之选之前先ping一下总是没错的啦
@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit cd /d "%~dp0"%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit cd /d "%~dp0"
setlocal enabledelayedexpansion
set name[2]=Google
set ip[2]=8.8.8.8
set reserve[2]=8.8.4.4
set name[3]=Cloudflare
set ip[3]=1.1.1.1
set reserve[3]=1.0.0.1
set name[4]=Tencent
set ip[4]=119.29.29.29
set reserve[4]=182.254.116.116
set name[5]=Aliyun
set ip[5]=233.5.5.5
set reserve[5]=223.6.6.6
set name[6]=Baidu
set ip[6]=180.76.76.76
set name[7]=114
set ip[7]=114.114.114.114
set reserve[7]=114.114.115.115
set name[8]=SDNS
set ip[8]=1.2.4.8
set reserve[8]=210.2.4.8
:BEGIN
netsh interface ip show dns interface="Wi-Fi"
echo 0: PingTest
echo 1: Auto
for /l %%i in (2,1,8) do (
echo %%i: !name[%%i]! ^<!ip[%%i]!^>
)
set /p choice=
if !choice!==0 (
for /l %%i in (2,1,8) do (
ping !ip[%%i]! -w 200
)
goto BEGIN
) else if !choice!==1 (
netsh interface ip set dns name="Wi-Fi" source=dhcp
) else (
for /l %%i in (2,1,8) do (
if !choice!==%%i (
echo Changing to !name[%%i]! ^<!ip[%%i]!^>
netsh interface ip set dns name="Wi-Fi" source=static addr=!ip[%%i]!
if defined reserve[%%i] (
netsh interface ip add dns name="Wi-Fi" addr=!reserve[%%i]!
)
ipconfig /flushdns
goto END
)
)
echo Invalid option
)
:END
pause