最近閑的要命.所以總喜歡去些BBS聊天室之類(lèi)的地方打發(fā)時(shí)間可是.突然發(fā)現(xiàn)這些地方總是喜歡記錄IP真是麻煩.別人一跟蹤馬上就查出你的位置.實(shí)在是不爽.所以.就只好設(shè)置代理服務(wù)器.IE的設(shè)置是帶這個(gè)功能的.所以很簡(jiǎn)單.只要設(shè)置就可以了.不過(guò),實(shí)在覺(jué)得.那樣太簡(jiǎn)單了.所以就想自己做一個(gè)程序?qū)崿F(xiàn).

　　可是沒(méi)什么眉目.不過(guò)突然想到騰訊的瀏覽器也有類(lèi)似功能.可是.整個(gè)程序才916K,所以不用說(shuō)肯定是有動(dòng)態(tài)連接庫(kù)的協(xié)助的.既然如此.那么只用導(dǎo)出來(lái)看看就知道了.于是.使用dumpbin這個(gè)PE工具Imports一下就全明白了象其他程序一樣.通常USER32,Kernel32.GDI32....這些都不是今天的主角.Wininet.Dll才是今天的主角.這里導(dǎo)出了.三個(gè)函數(shù).其中InternetsetOption才是關(guān)鍵因素.在MSDN中很快查到了.所以一切都很順利.該函數(shù)的重點(diǎn)參數(shù)在第二個(gè)參數(shù)上面dwOption.所以繼續(xù)參考MSDN就知道了INTERNET_OPTION_PROXY和INTERNET_OPTION_SETTINGS_CHANGED.第一個(gè)看名字也知道是設(shè)置代理.第二個(gè)是負(fù)責(zé)切換設(shè)置的.OK有了這些是否就OK了呢.是的基本OK不過(guò)不要忘記了這樣做必須重啟IE.因?yàn)镮E也是依賴(lài)注冊(cè)表地.所以去注冊(cè)表找找.很快就明了.HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet Settings幾乎誰(shuí)都知道的Internet設(shè)置鍵.沒(méi)什么可說(shuō)的.知道了這些下面程序來(lái)實(shí)現(xiàn)就簡(jiǎn)單了.因?yàn)楦�本沒(méi)什么技術(shù).只是調(diào)用API和寫(xiě)注冊(cè)表.

　　首先用Delphi來(lái)實(shí)現(xiàn).delphi實(shí)現(xiàn)很簡(jiǎn)單.因?yàn)閐elphi的單元WinInet中就封裝了該API調(diào)用的所有文檔所以就簡(jiǎn)單多了.首先做一級(jí)面向?qū)ο蟮姆庋b.一個(gè)對(duì)象TsetProxy,然后定義兩個(gè)數(shù)據(jù)分別是代理主機(jī)和代理端口.然后一個(gè)負(fù)責(zé)調(diào)用的函數(shù).

　　代碼如下:

　　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