成人视屏在线观看-国产99精品-国产精品1区2区-欧美一级在线观看-国产一区二区日韩-色九九九

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

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

瀏覽:133日期: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系統
主站蜘蛛池模板: 国产一级特黄aa级特黄裸毛片 | 成人国产亚洲欧美成人综合网 | 国产精品精品国产一区二区 | 97欧美精品一区二区三区 | 亚洲国产成a人v在线观看 | 男人的天堂在线免费视频 | 国产91色综合久久免费 | 国产真人毛片一级视频 | 国产高清在线 | www欧美在线观看 | 成人在线播放视频 | 欧美日韩国产免费一区二区三区 | 7799国产精品久久久久99 | 在线免费看一级片 | 农村寡妇女人一级毛片 | 久久亚洲视频 | 性欧美精品 | 亚洲天堂黄 | 成年人免费视频观看 | 一级做a爰片久久毛片免费看 | 日韩中文字幕在线观看 | 亚洲精品第一区二区三区 | 三级午夜三级三点在看 | 免费一区在线观看 | 欧美俄罗斯一级毛片激情 | 久cao在线观看视频 久爱免费观看在线网站 | 手机在线成人精品视频网 | 一级黄色香蕉视频 | 久久成人免费观看草草影院 | 亚洲综合久久综合激情久久 | 在线国产一区二区三区 | 中国女警察一级毛片视频 | 亚洲国产一区在线二区三区 | 一级免费看片 | 成人看的一级毛片 | 透逼视频 | 无内丝袜透明在线播放 | avove旗袍丝袜高跟啪啪 | 在线观看免费黄视频 | 日韩一级欧美一级 | 欧美日韩中文国产一区二区三区 |