求助! IE的代理自动配置批处理 - 中国DOS联盟论坛

@goto start

==============================================================
功能：

修改代理服务器地址及端口
本程序运行于Windows 98/2000/2003/xp
==============================================================
:start
@color 1e
@echo.
@echo ☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※
@echo ※ ☆
@echo ☆　　　　　　欢迎使用上网自动设置程序 ※
@echo ※ ☆
@echo ☆　　　注意：如果您没有申请上网，请勿使用本程序， ※
@echo ※　否则可能导致您无法打开内部网。 ☆
@echo ☆ ※
@echo ☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※
@color 1f
@echo REGEDIT4>c:\ChangProxyServer.reg

@echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]>>c:\ChangProxyServer.reg
@echo. >>c:\ChangProxyServer.reg
@echo "ProxyEnable"=hex:01,00,00,00>>c:\ChangProxyServer.reg

@echo "ProxyServer"="192.168.3.88:808">>c:\ChangProxyServer.reg

@echo. >>c:\ChangProxyServer.reg
@echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]>>c:\ChangProxyServer.reg
@echo. >>c:\ChangProxyServer.reg

@echo "ProxyOverride"="192.168.3.88">>c:\ChangProxyServer.reg

@regedit /s c:\ChangProxyServer.reg
@del c:\ChangProxyServer.reg
@echo #
@echo #设置成功！

:ENDE
@echo.
@echo #现在您可以关闭本程序了。谢谢使用。
@echo #请按任意键退出。
@pause>nul 2>nul
－－－－－－－－－－－－－－－－－－.

将以上内容复制到文本文档，另存为×.BAT即可使用

备注：

需修改内容部份

1.@echo "ProxyServer"="192.168.3.88:808">>c:\ChangProxyServer.reg 其IP地址及端口可由管理员自行修改

2.@echo "ProxyOverride"="192.168.3.88">>c:\ChangProxyServer.reg 其IP地址更改为代理上网服务器地址

第1楼　zhjipt	发表于 2007-02-15 05:30
初级用户　发帖 16　积分 40
求助! IE的代理自动配置批处理 IE的代理自动配置批处理.

第2楼　winxxp	发表于 2007-04-25 09:41
新手上路　发帖 1　积分 2　来自中国
@goto start ============================================================== 功能：修改代理服务器地址及端口本程序运行于Windows 98/2000/2003/xp ============================================================== :start @color 1e @echo. @echo ☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※ @echo ※ ☆ @echo ☆　　　　　　欢迎使用上网自动设置程序 ※ @echo ※ ☆ @echo ☆　　　注意：如果您没有申请上网，请勿使用本程序， ※ @echo ※　否则可能导致您无法打开内部网。 ☆ @echo ☆ ※ @echo ☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※☆※ @color 1f @echo REGEDIT4>c:\ChangProxyServer.reg @echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]>>c:\ChangProxyServer.reg @echo. >>c:\ChangProxyServer.reg @echo "ProxyEnable"=hex:01,00,00,00>>c:\ChangProxyServer.reg @echo "ProxyServer"="192.168.3.88:808">>c:\ChangProxyServer.reg @echo. >>c:\ChangProxyServer.reg @echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]>>c:\ChangProxyServer.reg @echo. >>c:\ChangProxyServer.reg @echo "ProxyOverride"="192.168.3.88">>c:\ChangProxyServer.reg @regedit /s c:\ChangProxyServer.reg @del c:\ChangProxyServer.reg @echo # @echo #设置成功！ :ENDE @echo. @echo #现在您可以关闭本程序了。谢谢使用。 @echo #请按任意键退出。 @pause>nul 2>nul －－－－－－－－－－－－－－－－－－. 将以上内容复制到文本文档，另存为×.BAT即可使用备注：需修改内容部份 1.@echo "ProxyServer"="192.168.3.88:808">>c:\ChangProxyServer.reg 其IP地址及端口可由管理员自行修改 2.@echo "ProxyOverride"="192.168.3.88">>c:\ChangProxyServer.reg 其IP地址更改为代理上网服务器地址

第3楼　bjsh	发表于 2007-04-25 10:16
银牌会员　发帖 621　积分 2,000
如果经常需要更改代理的话用vbs写吧; 一个设置代理. 一个取消代理. 这个是设置代理 Set wshshell=WScript.CreateObject("WScript.Shell") ProxyEnable="HKCU\software\microsoft\windows\currentversion\internet settings\ProxyEnable" ProxyServer="HKCU\software\microsoft\windows\currentversion\internet settings\ProxyServer" call EnableProxy Sub EnableProxy wshshell.RegWrite ProxyEnable,1,"REG_DWORD" ProSer=InputBox ("请输入代理ip及端口以:隔开","设置代理") If ProSer="" Then WScript.Quit Else End If wshshell.RegWrite ProxyServer,ProSer End Sub 这个是取消代理 Set wshshell=WScript.CreateObject("WScript.Shell") ProxyEnable="HKCU\software\microsoft\windows\currentversion\internet settings\ProxyEnable" wshshell.RegWrite ProxyEnable,0,"REG_DWORD" 在设置代理的脚本里弹出要求输入代理对话框时;如果直接回车默认使用最后一次设置的代理. 在IE上通过. 其他没测试过. [ Last edited by bjsh on 2007-4-24 at 09:18 PM ]