怎么用BAT设置IE浏览器代理

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 "127.0.0.1:1080" /f

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d "" /f

@echo off

set ipport=127.0.0.1:9666

::设置代理服务器IP地址和端口

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f>nul

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d %ipport% /f>nul

pause

@echo off&title IP 代理、DNS 服务器配置 By 依梦琴瑶

::设置IP代理地址

set ProxyServer=192.168.1.2:8001

::设置首先DNS服务器

set DNS_1=202.96.128.86

::设置备用DNS服务器

set DNS_2=8.8.8.8

::设置网络连接名称

set NetName=本地连接

::以下代码请勿乱动，以免运行出错！

set Key=HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings

:Main

cls&echo 1、启用 IP 代理     2、禁用 IP 代理     3、启用 DNS     4、禁用 DNS

echo,&set Choice=&set /p Choice=请输入编号后回车：

if "%Choice:~,1%"=="1" goto EnableProxy

if "%Choice:~,2%"=="2" goto DisableProxy

if "%Choice:~,3%"=="3" goto EnableDNS

if "%Choice:~,4%"=="4" goto DisableDNS

goto Main

:EnableProxy

echo,&echo 正在启用 IP 代理，请耐心等待。。。

reg add "%Key%" /v ProxyServer /t REG_SZ /d %ProxyServer% /f >nul 2>nul

reg add "%Key%" /v ProxyEnable /t REG_DWORD /d 1 /f >nul 2>nul

reg add "%Key%" /v ProxyOverride /t REG_SZ /d "<local>" /f >nul 2>nul

set msg=启用 IP 代理

goto CheckIE

:DisableProxy

echo,&echo 正在删除 IP 代理，请耐心等待。。。

reg add "%Key%" /v ProxyEnable /t REG_DWORD /d 0 /f >nul 2>nul

reg delete "%key%" /v ProxyOverride /f >nul 2>nul

reg delete "%key%" /v ProxyServer /f >nul 2>nul

set msg=删除 IP 代理

goto CheckIE

:EnableDNS

call :CheckUAC

echo,&echo 正在配置 DNS 服务器，此过程稍微耗时，请耐心等待。。。

netsh interface ip set dns name="%NetName%" source=static addr=%DNS_1% >nul 2>nul

netsh interface ip add dns name="%NetName%" addr=%DNS_2% index=2 >nul 2>nul

set msg=配置 DNS 服务器

goto CheckIE

:DisableDNS

call :CheckUAC

echo,&echo 正在删除 DNS 服务器，请耐心等待。。。

netsh interface ip del dns name="%NetName%" all >nul 2>nul

set msg=删除 DNS 服务器

goto CheckIE

:CheckIE

cls&echo 已成功%msg%。

ipconfig /flushdns >nul

tasklist|find /i "iexplore.exe">nul&&(echo,

echo 为了更好的实现效果，建议重启 IE 浏览器。)

ping 127.0.0.1 -n "4">nul

goto Main

:CheckUAC

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

if '%errorlevel%' NEQ '0' (

    cls&echo,

    echo  配置或删除 DNS 服务器需要管理员权限。

    echo  请在脚本上右键选择“以管理员身份运行”

    ping 127.0.0.1 -n "4">nul

    exit

)

goto :eof

---