Selasa, 08 November 2011
Pertama- tama, bahan – bahan yang kita butuhkan antara lain :
- Program Visual Basic (disini saya menggunakan Visual Basic 6.0 Enterprise Edition)
- PC atau lain sebagainya yang bisa mengakses program ini(Visual Basic).
Cara Membuat Aplikasi sederhana ini :
- Buka Program Visual Basic, lalu pilih Standard EXE.
- Buat Form baru, (otomatis muncul Sendiri sebuah form baru)
- Lalu buat 2 Tombol Command Button
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
Rating: 4.5
Reviewer: Unknown
ItemReviewed: Aplikasi Hacking VISUAL BASIC
