设置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.

日本CN2独立物理服务器 E3 1230 16G 20M 500元/月 提速啦

提速啦的来历提速啦是 网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑 由赣州王成璟网络科技有限公司旗下赣州提速啦网络科技有限公司运营 投资1000万人民币 在美国Cera 香港CTG 香港Cera 国内 杭州 宿迁 浙江 赣州 南昌 大连 辽宁 扬州 等地区建立数据中心 正规持有IDC ISP CDN 云牌照 公司。公司购买产品支持3天内退款 超过3天步退款政策。提速啦的市场定位提速啦主...

Friendhosting四五折促销,VPS半年付7.5欧元起

Friendhosting发布了针对“系统管理日”(每年7月的最后一个星期五)的优惠活动,针对VPS主机提供55%的优惠(相当于四五折),支持1-6个月付款使用,首付折扣非永久,优惠后最低套餐首半年7.18欧元起。这是一家保加利亚主机商,成立于2009年4月,商家提供VDS和独立服务器租用等,数据中心目前可选美国洛杉矶、保加利亚、乌克兰、荷兰、拉脱维亚、捷克和波兰等8个地区机房。下面以最低套餐为例...

香港服务器促销:香港华为云混合服务器、高防服务器首月半价,普通110M大带宽服务器月付799,付5用6,付10用13

博鳌云是一家以海外互联网基础业务为主的高新技术企业,运营全球高品质数据中心业务。自2008年开始为用户提供服务,距今11年,在国人商家中来说非常老牌。致力于为中国用户提供域名注册(国外接口)、免费虚拟主机、香港虚拟主机、VPS云主机和香港、台湾、马来西亚等地服务器租用服务,各类网络应用解決方案等领域的专业网络数据服务。商家支持支付宝、微信、银行转账等付款方式。目前香港有一款特价独立服务器正在促销,...

ie设置代理服务器为你推荐
徐州发布官方微信atmosphereios11单击mediahttp://www.huajinsc.cn/支持ipadgetIntjava图书馆学、情报学期刊投稿指南iphone连不上wifi我的苹果手机连不上无线,其它手机能,怎么回事?只是家里的连不上360chromechrome是什么文件夹?是360急速浏览器吗?但是怎么没有卸载掉?谷歌sbSb是什么意思?
域名查询工具 北京主机租用 安云加速器 免备案空间 免费ftp空间 主机合租 浙江独立 cdn加速是什么 ftp免费空间 免费dns解析 raid10 宏讯 个人免费邮箱 免费网络 卡巴斯基试用版下载 网络速度 godaddyssl 美国代理服务器 gotoassist ubuntu安装教程 更多