IE 代理服务器设置程序实现

可是没什么眉目.不过突然想到腾讯的浏览器也有类似功能.可是.整个程序才916K,所以不用说肯定是有动态连接库的协助的.既然如此.那么只用导出来看看就知道了.于是.使用dumpbin这个PE工具Imports一下就全明白了象其他程序一样.通常USER32,Kernel32.GDI32....这些都不是今天的主角.Wininet.Dll才是今天的主角.这里导出了.三个函数.其中InternetsetOption才是关键因素.在MSDN中很快查到了.所以一切都很顺利.该函数的重点参数在第二个参数上面dwOption.所以继续参考MSDN就知道了INTERNET_OPTION_PROXY和INTERNET_OPTION_SETTINGS_CHANGED.第一个看名字也知道是设置代理.第二个是负责切换设置的.OK有了这些是否就OK了呢.是的基本OK不过不要忘记了这样做必须重启IE.因为IE也是依赖注册表地.所以去注册表找找.很快就明了.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings几乎谁都知道的Internet设置键.没什么可说的.知道了这些下面程序来实现就简单了.因为根本没什么技术.只是调用API和写注册表.

　　首先用Delphi来实现.delphi实现很简单.因为delphi的单元WinInet中就封装了该API调用的所有文档所以就简单多了.首先做一级面向对象的封装.一个对象TsetProxy,然后定义两个数据分别是代理主机和代理端口.然后一个负责调用的函数.
　　
　　代码如下:
　　unit Unit1;
　　interface
　　uses
　　Registry,WinInet
　　type
　　 TSetProxy=class
　　 private
　　{ Private declarations }
    　　procedure SetReg(FMProxy:string);
 　　 public
  　　  { Public declarations }
  　　  Proxy: string;
  　　  port:string;
  　　  constructor Create(Proxy,Port:string);
  　　  procedure SetProxy();
　　//    procedure SetProxy(const fProxy,fPort: string);
　　end;
　　implementation

　　//实际设置代理
　　procedure TSetProxy.SetProxy;
　　var FProxy: string;
　　    Pinfo: INTERNET_PROXY_INFO;
　　begin
　　FProxy:=Format('%s:%s',[self.Proxy,self.port]);
　　Pinfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
　　Pinfo.lpszProxy := pchar(proxy);
　　InternetSetOption(nil, INTERNET_OPTION_PROXY, @Pinfo, SizeOf(PInfo));
　　InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
　　self.SetReg(FProxy);
　　end;
　　
　　//SetReg负责读写注册表
　　procedure TSetProxy.SetReg(FMProxy:string);
　　var
　　reg: Tregistry;
　　begin
　　reg:=Tregistry.Create;
　　  try
　　    reg.RootKey := HKEY_CURRENT_USER;
 　　   if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
 　　   begin
 　　     reg.Writestring('ProxyServer', FMproxy);
 　　     reg.WriteInteger('ProxyEnable', integer(true));
 　　&nb