BAT 设置内网代理
::admin运行 %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit cd /d "%~dp0" :: 设置代理 color 2 set /p choice=请选择设置类型(1:H代理 / 2:M代理/3:取消:) echo. if "%choice%"=="1" goto daili1 if "%choice%"=="2" goto daili2 if "%choice%"=="3" goto daili3 goto main :daili1 echo 设置H代理开始... echo. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "10.10.10.10:8080" /f color 2 echo Set the proxyserver successfully ! pause exit if errorlevel 2 goto main if errorlevel 1 goto end :daili2 echo 设置M代理开始.... echo. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t