function AddProcessFwauthor()
STRING szCServer,szFServer,szTmp;
OBJECT objFirewall, objProfile, objCS, objFS;
begin
SdShowMsg(
"
將服務器添加到Windows防火墻例外程序中，請稍后...
"
, TRUE);
//
要添加到防火墻程序的應用程序的完整路徑：安裝目錄\WinClient.exe
szCServer = TARGETDIR ^ (
"
WinClient
"
+
"
.exe
"
);
try
set
objFirewall = CoCreateObject(
"
HNetCfg.FwMgr
"
);
catch
endcatch;
try
set
objProfile =
objFirewall.LocalPolicy.CurrentProfile;
set
objCS = CoCreateObject(
"
HNetCfg.FwAuthorizedApplication
"
);
szTmp
=
szCServer;
LongPathToQuote(szTmp, FALSE);
objCS.ProcessImageFileName
=
szTmp;
//
要添加到防火墻例外程序的顯示名稱
objCS.Name =
"
WinClient
"
;
objCS.Scope
=
0
;
objCS.RemoteAddresses
=
"
*
"
;
objCS.IpVersion
=
2
;
objCS.Enabled
=
TRUE;
objProfile.AuthorizedApplications.Add(objCS);
catch
endcatch;
SdShowMsg(
"
將服務器添加到Windows防火墻例外程序中，請稍后...
"
, FALSE);
return
TRUE;
end;
測試通過，yeah!
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
