Aplikasi Menghidupkan dan Mematikan Firewall Dengan VB6

[You must be registered and logged in to see this link.]

Code:: Dim Windows_Firewall

Dim DigitalCat

Private Sub Command1_Click()

Set Windows_Firewall = CreateObject("HNetCfg.fwMgr")

Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile

DigitalCat.FIREWALLENABLED = False

MsgBox "Firewall OFF", vbInformation

End Sub

Private Sub Command2_Click()

Set Windows_Firewall = CreateObject("HNetCfg.fwMgr")

Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile

DigitalCat.FIREWALLENABLED = True
MsgBox "Firewall ON", vbInformation
End Sub

Aplikasi ini di gunakan untuk mematikan dan menghidupkan Firewall komputer anda..

Credit: Saya Lagi

Admin Jumlah posting : 98 Join date : 2011-01-06

mantep om aaa123
sharenya keren2 Aplikasi Menghidupkan dan Mematikan Firewall Dengan VB6 53243

thanks om