国产成人精品久久免费动漫-国产成人精品天堂-国产成人精品区在线观看-国产成人精品日本-a级毛片无码免费真人-a级毛片毛片免费观看久潮喷

您的位置:首頁技術文章
文章詳情頁

如何透過程序來控制 Windows XP防火墻的開關

瀏覽:126日期:2023-07-02 15:28:57

Dim;objFW;As;Object;;;Set;objFW;=;CreateObject('HNetCfg.FwMgr').LocalPolicy.CurrentProfileWith;objFW.FirewallEnabled;=;True;';True;開啟;,;False;關閉.ExceptionsNotAllowed;=;True;';[;不允許例外;];選項;,;True;勾;,;反之則不勾End;With或procedure;Set_WindowsXP_FireWall(Enable:;boolean);//;需引用;winsvc,;shellapi//;Set_WindowsXP_FireWall(false);;//;關閉Windows;Xp;防火//varSCM,;hService:;LongWord;sStatus:;TServiceStatus;beginif;Enable;=;false;thenbeginSCM;:=;OpenSCManager(nil,;nil,;SC_MANAGER_ALL_ACCESS);hService;:=;OpenService(SCM,;PChar('SharedAccess'),;SERVICE_ALL_ACCESS);ControlService(hService,;SERVICE_CONTROL_STOP,;sStatus);CloseServiceHandle(hService);end;end;設定Port;的部份,不過還沒測試!不過我還是希望寫成簡單形式的函數庫呼叫方式,大家一起測試吧!出處:http://www-new.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_22122056.htmlExample;of;both;adding;and;removing;a;tcp;port;from;the;globaly;open;ports;list;(in;Windows;XP;firewall)Regards,Russell//;Include;ActiveX;and;ComObj;in;uses;clause;(also;Variants;for;D6;and;up)constNET_FW_PROFILE_DOMAIN;;;;;;=;;0;NET_FW_PROFILE_STANDARD;;;;=;;1;constNET_FW_IP_PROTOCOL_TCP;;;;;=;6;NET_FW_IP_PROTOCOL_UDP;;;;;=;17;constNET_FW_SCOPE_ALL;;;=;;0;constNET_FW_IP_VERSION_ANY;;;;;;=;;2;implementation{$R;*.DFM}procedure;TForm1.Button1Click(Sender:;TObject);var;;ovMgr:;OleVariant;ovProfile:;;;;;OleVariant;ovPort:OleVariant;begin//;Create;manager;interfaceovMgr:=CreateOleObject('HNetCfg.FwMgr');//;Resource;protectiontry//;Get;local;profile;interfaceovProfile:=ovMgr.LocalPolicy.CurrentProfile;//;Resource;protectiontry//;Create;new;port;interfaceovPort:=CreateOleObject('HNetCfg.FwOpenPort');try//;Set;port;propertiesovPort.Port:=81;ovPort.Name:='Whatever';ovPort.Scope:=NET_FW_SCOPE_ALL;ovPort.IpVersion:=NET_FW_IP_VERSION_ANY;ovPort.Protocol:=NET_FW_IP_PROTOCOL_TCP;ovPort.Enabled:=True;//;Resource;protectiontry//;Add;to;globally;open;portsovProfile.GloballyOpenPorts.Add(ovPort);//////;....;do;whatever;....////finally//;Remove;from;globally;open;portsovProfile.GloballyOpenPorts.Remove(81,;NET_FW_IP_PROTOCOL_TCP);end;finally//;Release;interfaceovPort:=Unassigned;end;finally//;Release;interfaceovProfile:=Unassigned;end;finally//;Release;interfaceovMgr:=Unassigned;end;end;

標簽: Windows系統
主站蜘蛛池模板: 亚洲精品精品一区 | 三级毛片在线看 | 玖玖精品国产 | 日黄网站| 国产啪在线 | 亚洲色色色图 | 日本三级2021最新理论在线观看 | 久久久久欧美国产精品 | 国产亚洲一区二区三区在线观看 | 九九在线精品视频播放 | 欧美性夜欢 | 狠狠色丁香婷婷综合小时婷婷 | 日本亚洲欧美高清专区vr专区 | 成人国产精品免费视频不卡 | 天天摸天天爽视频69视频 | 免费在线观看一区二区 | 中文字幕亚洲一区二区三区 | 国产精彩视频在线 | 国产精品一区在线播放 | 成人a影片在线观看 | 国产成人精品午夜免费 | 亚洲高清毛片 | 啪啪一级片 | 亚州视频一区 | 国产欧美日韩精品第二区 | 91b站| 日韩欧美一区二区三区不卡视频 | 尤蜜网站在线进入免费 | 亚洲一区二区三区四区在线观看 | 91香蕉网| 毛片1毛片2毛片3毛片4 | 国产一级做a爰片在线 | 久久久久久久久久免费视频 | 无毛片 | 手机看片久久高清国产日韩 | 男女性关系视频免费观看软件 | 亚洲素人在线 | 久久精品免观看国产成人 | 久久网在线 | 欧美一区二区三区久久久人妖 | 在线播放高清国语自产拍免费 |