'先测试注册表项是否存在，如果不存在则先建立
If sdaTestKeyExist("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile") = False Then
Call sdaCreateKey("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile")
End If
'修改注册表，打开Windows防火墙
Call sdaSetRegValue("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile", "EnableFirewall", 1)