寻找开关防火墙的案例

小旭旭

点击按钮1 开启防火墙 点击按钮2关闭防火墙求一个源码

小桥流水34

命令行最快

aipca

  

子程序名	返回值类型	公开	备 注
_选择框_关闭防火墙_被单击

判断 (选择框_关闭防火墙.选中 ＝ 真)
注册表_写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\EnableFirewall”, { 0, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())
注册表_写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\PublicProfile\EnableFirewall”, { 0, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())
注册表_写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\EnableFirewall”, { 0, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())
判断 (选择框_关闭防火墙.选中 ＝ 假)
注册表_写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\EnableFirewall”, { 1, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())
注册表_写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\PublicProfile\EnableFirewall”, { 1, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())
注册表_写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\EnableFirewall”, { 1, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())

.版本 2<br /> <br /> .子程序 _选择框_关闭防火墙_被单击<br /> <br /> .判断开始 (选择框_关闭防火墙.选中 ＝ 真)<br />     注册表_写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\EnableFirewall”, { 0, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())<br />     注册表_写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\PublicProfile\EnableFirewall”, { 0, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())<br />     注册表_写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\EnableFirewall”, { 0, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())<br /> .判断 (选择框_关闭防火墙.选中 ＝ 假)<br />     注册表_写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\EnableFirewall”, { 1, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())<br />     注册表_写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\PublicProfile\EnableFirewall”, { 1, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())<br />     注册表_写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\EnableFirewall”, { 1, 0, 0, 0 }, #REG_DWORD, 真, 系统_是否64位操作系统 ())<br /> .默认

通过注册表的方式开启和关闭系统防火墙。

samll88

https://bbs.125.la/forum.php?mod ... 2%E7%81%AB%E5%A2%99

随风而逝00

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (开关防火墙 (真))
信息框 (“执行完毕”, 0, )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

如果真 (开关防火墙 (假))
信息框 (“执行完毕”, 0, )

子程序名	返回值类型	公开	备 注
开关防火墙	逻辑型		用对象操作防火墙
参数名	类 型	参考	可空	数组	备 注
开关	逻辑型

变量名	类 型	静态	数组	备 注
wmi	对象
防火墙	对象

如果真 (wmi.创建 (“HNetCfg.FwMgr”, ))
' wmi.查看 ()
防火墙 ＝ wmi.读对象型属性 (“LocalPolicy”, ).对象型方法 (“CurrentProfile”, )
' fhq.查看 ()
如果真 (防火墙.写属性 (“FirewallEnabled”, 开关))
wmi.清除 ()
返回 (真)
wmi.清除 ()
返回 (假)

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (开关防火墙 (真))<br />     信息框 (“执行完毕”, 0, )<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果真 (开关防火墙 (假))<br />     信息框 (“执行完毕”, 0, )<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 开关防火墙, 逻辑型, , 用对象操作防火墙<br /> .参数 开关, 逻辑型<br /> .局部变量 wmi, 对象<br /> .局部变量 防火墙, 对象<br /> <br /> .如果真 (wmi.创建 (“HNetCfg.FwMgr”, ))<br />     ' wmi.查看 ()<br />     防火墙 ＝ wmi.读对象型属性 (“LocalPolicy”, ).对象型方法 (“CurrentProfile”, )<br />     ' fhq.查看 ()<br />     .如果真 (防火墙.写属性 (“FirewallEnabled”, 开关))<br />         wmi.清除 ()<br />         返回 (真)<br />     .如果真结束<br />     wmi.清除 ()<br /> .如果真结束<br /> 返回 (假)

老早的