|
发表于 2011-1-22 22:29:36
|
显示全部楼层
江苏省宿迁市
[e].版本 2
.子程序 _设为代理_被单击
.局部变量 proxy, 文本型
.如果真 (地址.内容 = “” 或 端口.内容 = “”)
信息框 (“代理地址、端口不能为空”, #错误图标, “提示”)
.如果真结束
proxy = 地址.内容 + “:” + 端口.内容
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 1)
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”, proxy)
信息框 (“代理设置成功,请从新运行浏览器” + #换行符 + “如果出现无法加载网页请换一个代理地址”, 0, “提示”)
.版本 2
.子程序 _取消连接_被选择
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 0)
删除注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”)
信息框 (“代理以删除,请重新运行浏览器”, 0, “提示”)[/e] |
|