不用插拔网线鼠标点击自动切换网线和WIFI

因为之前在zf单位工作,政务内网需要插网线,而访问外网又需要连wifi,切换就需要拔掉网线插上网线很麻烦,旁边老哥教我了一手.bat程序自动切换方法, .bat文件代码如下:

以下代码的.bat文件执行后会切换到以太网,同时关闭掉wifi和以太网4 

@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"


if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin



taskkill /f /im VRC_ClientGUI.exe
taskkill /f /im VRC_Pluto.exe



netsh interface set interface "以太网 4" disabled
netsh interface set interface "WLAN" disabled

netsh interface set interface "以太网" enabled



exit

 以下代码的.bat文件执行后会切换到wifi,同时关闭掉以太网 

@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"


if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin



taskkill /f /im VRC_ClientGUI.exe
taskkill /f /im VRC_Pluto.exe



netsh interface set interface "以太网 4" enabled
netsh interface set interface "WLAN" enabled

netsh interface set interface "以太网" disabled 



exit