国产成人精品久久免费动漫-国产成人精品天堂-国产成人精品区在线观看-国产成人精品日本-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系統
主站蜘蛛池模板: 国产在线观看成人免费视频 | 免费观看一级成人毛片 | 黄色毛片免费 | 视频一区二区三区在线 | 国产高清精品一级毛片 | 欧美大片在线播放 | 成年大片免费视频播放二级 | 欧美最新的精品videoss | 手机看片1024久久精品你懂的 | a级毛片免费观看网站 | 久久国产影视免费精品 | 国产精品99久久99久久久看片 | 在线精品国产一区二区 | 国产激情久久久久影 | 日本美女高清在线观看免费 | 日本高清专区一区二无线 | 国产一区二区三区在线看 | 亚洲色欧美 | 久久免费精品一区二区 | 日本精品一在线观看视频 | 成人一级免费视频 | 三级高清 | 国产毛片一区二区三区精品 | 免费看欧美一级特黄a毛片 免费看片aⅴ免费大片 | 一区二区三区免费观看 | 欧美成在线| 朝鲜美女免费一级毛片 | 一区二区三区在线观看视频 | 天堂影院jav成人天堂免费观看 | 99九九视频 | 91福利网| 久久伊人精品热在75 | 美女黄页在线观看 | 5388国产亚洲欧美在线观看 | 日韩看片 | 亚洲视频国产 | 黄色成人在线观看 | 506rr亚洲欧美 | 久久久久琪琪精品色 | 女在床上被男的插爽叫视频 | 亚洲美女在线观看播放 |