全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1527
推到 Plurk!
推到 Facebook!

如何加入防火牆例外(WIN7)?

缺席
blue
中階會員


發表:113
回覆:99
積分:52
註冊:2002-04-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2014-12-31 14:24:54 IP:125.227.xxx.xxx 訂閱
Hi,各位先進大家好:
因需讓程式可以通過防火牆,
小弟使用如下程式,
是順利在防火牆的例外清單加入了,
但是,卻只有公用的部份打勾,
私人的部份未打勾,
請問,如何讓私人及公用的部份都能打勾?
謝謝!

Const
NET_FW_IP_VERSION_ANY = 2;
NET_FW_SCOPE_ALL = 0;

procedure TForm1.Button1Click(Sender: TObject);
var
FwMgr,Profile,FwApp: variant;
begin
FwMgr := CreateOLEObject('HNetCfg.FwMgr');
Profile := FwMgr.LocalPolicy.CurrentProfile;
FwApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication');
FwApp.Name :='Firewall_TEST';
FwApp.ProcessImageFileName := 'C:\Temp\Test.exe'; //要通過的程序
FwApp.Scope := NET_FW_SCOPE_ALL;
FwApp.IpVersion := NET_FW_IP_VERSION_ANY;
FwApp.Enabled := True;
Profile.AuthorizedApplications.Add(FwApp);
end;
系統時間:2017-10-22 5:27:10
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!