设置IE代理 不行哦 版主进来看看

山药丸子

Mr.Yang 发表于 2013-2-16 15:59
这是我自己写的IE代理 楼主试试

.版本 2

咳, 试了  不行哦

Mr.Yang

这是我自己写的IE代理 楼主试试

.版本 2

.子程序 Mr_网络_设置IP代理, 逻辑型, 公开, 使用一个IP地址作为代理.
.参数 代理地址, 文本型, , 格式:127.0.0.1
.参数 代理端口, 文本型, , 格式:80

.如果真 (代理地址 ＝ “”)
    返回 (假)
.如果真结束
.如果真 (代理端口 ＝ “”)
    返回 (假)
.如果真结束
.如果真 (写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”, 代理地址 ＋ “:” ＋ 代理端口) ＝ 假)
    返回 (假)
.如果真结束
.如果真 (写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 1) ＝ 假)
    返回 (假)
.如果真结束
.如果真 (设置IE (0, 39, 0, 0) ＝ 假)
    返回 (假)
.如果真结束
返回 (真)


.版本 2

.DLL命令 设置IE, 逻辑型, "wininet.dll", "InternetSetOptionA", 公开
    .参数 hInternet, 整数型
    .参数 dwOption, 整数型
    .参数 lpBuffer, 整数型
    .参数 dwBufferLength, 整数型

.版本 2

.子程序 Mr_网络_取消IP代理, 逻辑型, 公开, 取消IP代理.

.如果真 (删除注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”) ＝ 假)
    返回 (假)
.如果真结束
.如果真 (写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 0) ＝ 假)
    返回 (假)
.如果真结束
.如果真 (设置IE (0, 39, 0, 0) ＝ 假)
    返回 (假)
.如果真结束
返回 (真)

冰点

.子程序 系统_设置IE代理地址, 逻辑型, 公开, 成功返回真，失败返回假；
.参数 上网方式, 字节型,   , 0=用路由器上网  1=用ADSL拨号上网
.参数 代理IP_端口, 文本型,  可空 , 可空。留空为取消设置。要代理的IP地址和端口，如：127.0.0.1:8080

参数1的 上网方式要填对。 如果填了，仍旧没效，你看看 IE属性里面是否已经写入内容了。

这个命令原先测试都没问题的