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

稳爱云(26元),香港云服务器 1核 1G 10M带宽

稳爱云(www.wenaiyun.com)是创建于2021年的国人IDC商家,主要目前要出售香港VPS、香港独立服务器、美国高防VPS、美国CERA VPS 等目前在售VPS线路有三网CN2、CN2 GIA,该公司旗下产品均采用KVM虚拟化架构。机房采用业内口碑最好香港沙田机房,稳定,好用,数据安全。线路采用三网(电信,联通,移动)回程电信cn2、cn2 gia优质网络,延迟低,速度快。自行封装的...

Digital-VM暑期全场六折优惠,8个机房

Digital-VM商家目前也在凑热闹的发布六月份的活动,他们家的机房蛮多的有提供8个数据中心,包括日本、洛杉矶、新加坡等。这次六月份的促销活动全场VPS主机六折优惠。Digital-VM商家还是有一点点特点的,有提供1Gbps和10Gbps带宽的VPS主机,如果有需要大带宽的VPS主机可以看看。第一、商家优惠码优惠码:June40全场主机六折优惠,不过仅可以月付、季付。第二、商家VPS主机套餐1...

Tudcloud(月付7.2美元),香港VPS,可选大带宽或不限流量

Tudcloud是一家新开的主机商,提供VPS和独立服务器租用,数据中心在中国香港(VPS和独立服务器)和美国洛杉矶(独立服务器),商家VPS基于KVM架构,开设在香港机房,可以选择限制流量大带宽或者限制带宽不限流量套餐。目前提供8折优惠码,优惠后最低每月7.2美元起。虽然主机商网站为英文界面,但是支付方式仅支付宝和Stripe,可能是国人商家。下面列出部分VPS主机套餐配置信息。CPU:1cor...

ie设置代理服务器为你推荐
询价安卓4上海工程技术大学清华大学经济管理学院centrescss支持ipadphotoshop技术photoshop技术对哪些工作有用?ipad上网为什么ipad网速特别慢重庆电信网速测试电信100M下载速度多少M,为什么我家里电信100M下载速度最快5M美妙,是不是严重缩水fusionchartsfusioncharts曲线图怎么默认显示数量iphonewifi苹果手机怎么扫二维码连wifi
singlehop 域名转向 日本bb瘦 ntfs格式分区 刀片式服务器 秒杀汇 亚马逊香港官网 上海服务器 drupal安装 linode支付宝 免费ftp cdn网站加速 杭州电信宽带优惠 ssl加速 双十二促销 hdroad forwarder 美国服务器 web服务器有哪些 g6950 更多