Pertama- tama, bahan – bahan yang kita butuhkan antara lain :

Cara Membuat Aplikasi sederhana ini :

Dengan kriteria sebagai berikut :

OBJECT   |   PROPERTI      |   NILAI

Form1     |   Caption             | jebol Firewall

                      Border Style     | 3 Fixed Dialog

                      Max Button      |  false

                      Min Button       |  False

                      Name               |  Form1

                      Windows State |  0 – Normal

                      Picture             |  (Bitmap)

Commandbutton1 |  Name      |    Command1

                                      Caption   | Matikan Firewall

Commandbutton2  |  Name      |  Command2

                                       Caption    | Aktifkan Firewall

Setelah semuanya selesai, sekarang kita kasih source kodenya

Ini scriptnya…

Dim Windows_Firewall

Dim DigitalCat

Private Sub Command1_Click()

Set Windows_Firewall = CreateObject(“HNetCfg.fwMgr”)

Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile

DigitalCat.FIREWALLENABLED = False

End Sub

Private Sub Command2_Click()

Set Windows_Firewall = CreateObject(“HNetCfg.fwMgr”)

Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile

DigitalCat.FIREWALLENABLED = True

End Sub

Private Sub Form_Load()

End Sub

Terimakasih