IE代理切换工具

最新推荐文章于 2022-10-16 18:42:53 发布

weixin_30500289

最新推荐文章于 2022-10-16 18:42:53 发布

阅读量437

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sephil/archive/2007/03/22/DynamicProxy.html

本文介绍了一个简单的工具，用于解决公司内外网切换时手动更改浏览器代理设置的问题。该工具通过一个图形界面提供一键开关代理的功能，并支持创建快捷方式以便快速启用预设的代理配置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

公司上外网需要用代理，在家ASDL又不需要，每次都要通过Internet选项->连接来切换，麻烦
上午找了个时间搜了些资料，随便写了个工具玩玩

点击下载

2009-02-04

[*]在线版本检查功能修改了版本比较方式，并将提示更改为中文
[+]增加了"创建快捷方式"按钮，可以将常用设置组织为快捷方式放置在桌面，并可设置图标和快捷键
图为快捷方式显示的代理设置信息，只要将鼠标移动到快捷方式上就可以看到

2008-01-14
[*] 修正了版本显示部分
[+] 添加了在线版本检查功能

核心代码：
procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
    begin
      Reg.WriteString('ProxyServer', Addr);
      Reg.WriteInteger('ProxyEnable', Integer(Enabled));

      if Bypass then
        Reg.WriteString('ProxyOverride', '<local>')
      else
      Reg.DeleteValue('ProxyOverride');
    end;
finally
    Reg.CloseKey;
    Reg.Free;
end;

Info.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
Info.lpszProxy := PChar(Addr);
InternetSetOption(nil, INTERNET_OPTION_PROXY, @Info, 1000);
InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
end;

转载于:https://www.cnblogs.com/sephil/archive/2007/03/22/DynamicProxy.html