|
发表于 2014-4-17 11:29:50
|
显示全部楼层
江苏省盐城市
- .版本 2
- .子程序 系统_设置IE代理地址, 逻辑型, 公开, 成功返回真,失败返回假;
- .参数 上网方式, 字节型, , 0=用路由器上网 1=用ADSL拨号上网
- .参数 代理IP_端口, 文本型, 可空, 可空。留空为取消设置。要代理的IP地址和端口,如:127.0.0.1:8080
- .参数 立即更新设置, 逻辑型, 可空, 默认为真,为假时需要手动重启IE浏览器
- .局部变量 拨号连接数, 整数型
- .局部变量 计次, 整数型
- .局部变量 长度, 整数型
- .如果真 (是否为空 (立即更新设置))
- 立即更新设置 = 真
- .如果真结束
- .判断开始 (上网方式 = 0)
- 写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\proxyserver”, 代理IP_端口)
- .如果 (删首尾空 (代理IP_端口) = “”)
- 写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\proxyenable”, 0)
- .否则
- 写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\proxyenable”, 1)
- .如果结束
- .判断 (上网方式 = 1)
- 拨号连接数 = _取连接数量 () ' 先取得你的电脑上有几个ADSL连接
- 长度 = 取文本长度 (删全部空 (代理IP_端口)) ' 取得代理IP地址文本的长度,以便写入注册表用,这个长度不正确的话会不能正常设置
- .如果 (长度 = 0) ' 假如代理地址这个参数为空
- .计次循环首 (拨号连接数, 计次)
- 删除注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\” + _取连接名称 (计次 - 1)) ' 取消所有ADSL连接的http代理设置
- .计次循环尾 ()
- .否则
- .计次循环首 (拨号连接数, 计次) ' 否则代理地址参数有内容
- 写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\” + _取连接名称 (计次 - 1), { 60, 0, 0, 0, 1, 0, 0, 0, 3, 0, 0, 0 } + 字节集_还原 (取十六进制文本 (长度)) + { 0, 0, 0 } + 到字节集 (代理IP_端口) + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }) ' 则将所有ADSL连接的http代理设置成该地址
- .计次循环尾 ()
- .如果结束
- .默认
- .判断结束
- .如果真 (立即更新设置)
- InternetSetOptionA (0, 39, 0, 0)
- .如果真结束
- 返回 (InternetSetOptionA (0, 37, 0, 0))
复制代码 参照精易模块里面设置 IE代理的源代码,发现是分2种情况分别在注册表中写入代理的,楼主可以参照此代码,来获取IE代理,俺就不再赘述了
|
|