'显示Windows防火墙状态
  If Val(sdaGetRegEntry("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile", "EnableFirewall")) = 0 Then

      LblFireWallInfo.Caption = "Windows防火墙已被关闭!"
    
  Else
  
    LblFireWallInfo.Caption = "Windows防火墙已经正确开启!"
    
  End If





Logo

腾讯云面向开发者汇聚海量精品云计算使用和开发经验,营造开放的云计算技术生态圈。

更多推荐