中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求助! IE的代理自动配置批处理

zhjipt
初级用户

积分 40
发帖 16
注册 2006-12-3
状态离线

『楼主』: 求助! IE的代理自动配置批处理

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

2007-2-15 05:30

winxxp
新手上路

积分 2
发帖 1
注册 2007-4-11
来自中国
状态离线

『第 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地址更改为代理上网服务器地址

2007-4-25 09:41

bjsh
银牌会员

积分 2000
发帖 621
注册 2007-1-1
状态离线

『第 3 楼』:

如果经常需要更改代理的话用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 ]

2007-4-25 10:16

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: