标题: 求助! IE的代理自动配置批处理 [打印本页]

---

作者: zhjipt     时间: 2007-2-15 05:30    标题: 求助! IE的代理自动配置批处理

IE的代理自动配置批处理.

---

作者: winxxp     时间: 2007-4-25 09:41
@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地址更改为代理上网服务器地址

---

作者: bjsh     时间: 2007-4-25 10:16
如果经常需要更改代理的话用vbs写吧;

一个设置代理.  一个取消代理.
这个是设置代理

Quote:

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

这个是取消代理

Quote:

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 ]