老楊的貓

@echo off
color f5
echo.

:main
echo.
echo.
echo ======= 請(qǐng)按數(shù)字鍵選擇（1-5）:=======
echo.
choice /c 12345 /m "(1)=切換內(nèi)網(wǎng) (2)=切換外網(wǎng) (3)=測(cè)試網(wǎng)絡(luò)  (4)=退出"

if errorlevel 4 goto end
if errorlevel 3 goto pingin
if errorlevel 2 goto out
if errorlevel 1 goto in

:in
setlocal enabledelayedexpansion
set a=0 
set b=0 
set c=0 
set d=0 
set e=0
for /f %%i in (內(nèi)網(wǎng)IP.txt) do set /a a+=1 & if !a!==1 set ip=%%i
for /f %%i in (內(nèi)網(wǎng)IP.txt) do set /a b+=1 & if !b!==2 set mask=%%i
for /f %%i in (內(nèi)網(wǎng)IP.txt) do set /a c+=1 & if !c!==3 set gateway=%%i
for /f %%i in (內(nèi)網(wǎng)IP.txt) do set /a d+=1 & if !d!==4 set dns1=%%i
for /f %%i in (內(nèi)網(wǎng)IP.txt) do set /a e+=1 & if !e!==5 set dns2=%%i
echo %ip%
echo %mask%
echo %gateway%
echo %dns1%
echo %dns2%
goto runin %ip% %mask% %gateway% %dns1% %dns2%


:out
setlocal enabledelayedexpansion
set a=0 
set b=0 
set c=0 
set d=0 
set e=0
for /f %%i in (外網(wǎng)IP.txt) do set /a a+=1 & if !a!==1 set ip=%%i
for /f %%i in (外網(wǎng)IP.txt) do set /a b+=1 & if !b!==2 set mask=%%i
for /f %%i in (外網(wǎng)IP.txt) do set /a c+=1 & if !c!==3 set gateway=%%i
for /f %%i in (外網(wǎng)IP.txt) do set /a d+=1 & if !d!==4 set dns1=%%i
for /f %%i in (外網(wǎng)IP.txt) do set /a e+=1 & if !e!==5 set dns2=%%i
echo %ip%
echo %mask%
echo %gateway%
echo %dns1%
echo %dns2%
goto runin %ip% %mask% %gateway% %dns1% %dns2%


:pingin
ping %dns1%
goto main

:end
exit

:runin
rem netsh interface ip set address name="本地連接" source=dhcp
rem ipconfig/flushdns
netsh interface ip set dns name="本地連接" source=dhcp
echo 正在更改IP地址為%1......請(qǐng)稍后
netsh interface ip set address "本地連接" static %ip% %mask% %gateway% 1
echo IP地址修改成功?。?！ 
echo 正在更改DNS地址為%4......請(qǐng)稍后

netsh interface ip set dns name="本地連接" source=dhcp
netsh interface ip set dns name="本地連接" source=static addr=%dns1%
netsh interface ip add dns 本地連接 %dns2%
echo DNS地址修改成功！?。?goto main