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

ie设置代理服务器  时间:2021-04-26  阅读:()

因为最近闲的要命.所以总喜欢去些BB S聊天室之类的地方打发时间可是.突然发现这些地方总是喜欢记录IP真是麻烦.别人一跟踪马上就查出你的位置.实在是不爽.所以.就只好设置代理服务器.IE的设置是带这个功能的.所以很简单.只要设置就可以了.不过,实在觉得.那样太简单了.所以就想自己做一个程序实现.

可是没什么眉目.不过突然想到腾讯的浏览器也有类似功能.可是.整个程序才916K,所以不用说肯定是有动态连接库的协助的.既然如此.那么只用导出来看看就知道了.于是.使用dumpbin这个PE工具Imports一下就全明白了象其他程序一样.通常USER32,Kernel32.GDI32. . . .这些都不是今天的主角.Wininet.Dll才是今天的主角.这里导出了.三个函数.其中Interne tse tOptio n才是关键因素.在MS DN中很快查到了.所以一切都很顺利.该函数的重点参数在第二个参数上面dwO pt ion.所以继续参考MSDN就知道了INTERNET_OPTION_PROXY和

INTERN ET_OP TION_SETTINGS_CHANGED.第一个看名字也知道是设置代理.第二个是负责切换设置的.OK有了这些是否就OK了呢.是的基本OK不过不要忘记了这样做必须重启IE.因为IE也是依赖注册表地.所以去注册表找找.很快就明了.HKEY_CURRENT_USER\So ftware\M icrosoft\Windows\C urrentVers io n\InternetS ettings几乎谁都知道的Interne t设置键.没什么可说的.知道了这些下面程序来实现就简单了.因为根本没什么技术.只是调用API和写注册表.

首先用Delphi来实现.delphi实现很简单.因为delphi的单元WinInet中就封装了该API调用的所有文档所以就简单多了.首先做一级面向对象的封装.一个对象TsetProxy,然后定义两个数据分别是代理主机和代理端口.然后一个负责调用的函数.unit Unit 1;interfac euses

Registry,WinInettype

TS etProxy=classp r ivate

{Private declarations }procedure SetRe g(FMProxy:string);pub lic

{Public declarations }

Proxy: str ing;port:string;constructor Create(Proxy,P ort:string);procedure S etProxy();

// procedure S etProxy(const fProxy,fPort:string);end;imp le mentatio n

//实际设置代理

procedure TSetProxy.S etProxy;var FProxy:string;

Pinfo:INTERNET_PROXY_INFO;begin

FProxy:=Format('%s:%s',[s elf.Proxy,self.port]);

Pinfo.dwAccessT=ype :=INTERNET_OPEN_TYPE_PROXY;

Pinfo.lps zPro xy: p char(proxy);

InternetSetOption(nil, IN TERNET_OPTION_PROXY,@Pinfo,SizeO f(PInfo));Internet S etOptio n(nil, INTERNET_O PTION_SETTINGS_CHANGED,nil,0);self.SetReg(FProxy);end;

//SetRe g负责读写注册表procedure TSetProxy.SetReg(FMProxy:string);varreg:Tregistry;begi=nreg: T re gis try.C re ate;tryreg.RootKey:=H'KEY_CURRENT_USER;i'f reg.Op enKey(\Software\Microso ft\Win dows\CurrentVersion\InternetSettings,True) thenbeginreg.Write str ing('P'r oxyS e rve r',F'Mp roxy);reg.WriteInte ge r(ProxyEnab le, integer(true));endfin allyreg.C loseKey;re g.fre e;end;end;constructor TSetPro xy.Create(Proxy,P ort:string);beginself.Pr ox=y:=Proxy;self.port: Port;end;end.

VPSDime7美元/月,美国达拉斯Windows VPS,2核4G/50GB SSD/2TB流量/Hyper-V虚拟化

VPSDime是2013年成立的国外VPS主机商,以大内存闻名业界,主营基于OpenVZ和KVM虚拟化的Linux套餐,大内存、10Gbps大带宽、大硬盘,有美国西雅图、达拉斯、新泽西、英国、荷兰机房可选。在上个月搞了一款达拉斯Linux系统VPS促销,详情查看:VPSDime夏季促销:美国达拉斯VPS/2G内存/2核/20gSSD/1T流量/$20/年,此次推出一款Windows VPS,依然是...

raksmart:香港机房服务器实测评数据分享,告诉你raksmart服务器怎么样

raksmart作为一家老牌美国机房总是被很多人问到raksmart香港服务器怎么样、raksmart好不好?其实,这也好理解。香港服务器离大陆最近、理论上是不需要备案的服务器里面速度最快的,被过多关注也就在情理之中了。本着为大家趟雷就是本站的光荣这一理念,拿了一台raksmart的香港独立服务器,简单做个测评,分享下实测的数据,仅供参考!官方网站:https://www.raksmart.com...

小欢互联19元/月起, 即日起至10月底 美国CERA 促销活动 美国/香港八折

小欢互联成立于2019年10月,主打海外高性价比云服务器、CDN和虚拟主机服务。近期上线了自营美国CERA机房高速VPS,进行促销活动,为客户奉上美国/香港八折优惠码:Xxc1mtLB优惠码适用于美国CERA一区/二区以及香港一区/二区优惠时间:即日起至10月底优惠码可无限次使用,且续费同价!官网:https://idc.xh-ws.com购买地址:美国CERA一区:https://idc.xh-...

ie设置代理服务器为你推荐
Telewizjamedia伺服器win7支持ipadgoogle图片搜索谁能教我怎么在手机用google的图片搜索啊!!!icloudiphone没开启icloud的iphone怎么用find my iphone找回micromediamacromedia的中文名css选择器CSS的常见选择器有哪几种联通合约机iphone5联通合约机iphone5和电信合约机Iphone5哪个好fastreport2.5GPA2.5相当于什么水平搜狗浏览器2.2搜狗浏览器打开跳出两个上网导航怎么办
租服务器价格 virpus 精品网 美国主机论坛 css样式大全 linux空间 百度云1t 卡巴斯基免费试用 hkt 四核服务器 根服务器 下载速度测试 德隆中文网 东莞主机托管 qq金券 网页加速 测速电信 域名和主机 广东服务器托管 香港博客 更多