因为最近闲的要命.所以总喜欢去些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.
PhotonVPS 服务商我们是不是已经很久没有见过?曾经也是相当的火爆的,我们中文习惯称作为饭桶VPS主机商。翻看之前的文章,在2015年之前也有较多商家的活动分享的,这几年由于服务商太多,乃至于有一些老牌的服务商都逐渐淡忘。这不有看到PhotonVPS商家发布促销活动。PhotonVPS 商家七月份推出首月半价Linux系统VPS主机,首月低至2.5美元,有洛杉矶、达拉斯、阿什本机房,除提供普...
香港服务器多少钱一个月?香港服务器租用配置价格一个月多少,现在很多中小型企业在建站时都会租用香港服务器,租用香港服务器可以使网站访问更流畅、稳定性更好,安全性会更高等等。香港服务器的租用和其他地区的服务器租用配置元素都是一样的,那么为什么香港服务器那么受欢迎呢,香港云服务器最便宜价格多少钱一个月呢?阿里云轻量应用服务器最便宜的是1核1G峰值带宽30Mbps,24元/月,288元/年。不过我们一般选...
sharktech怎么样?sharktech (鲨鱼机房)是一家成立于 2003 年的知名美国老牌主机商,又称鲨鱼机房或者SK 机房,一直主打高防系列产品,提供独立服务器租用业务和 VPS 主机,自营机房在美国洛杉矶、丹佛、芝加哥和荷兰阿姆斯特丹,所有产品均提供 DDoS 防护。此文只整理他们家10Gbps专用服务器,此外该系列所有服务器都受到高达 60Gbps(可升级到 100Gbps)的保护。...