Aplikasi Hacking VISUAL BASIC

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

1. Program Visual Basic (disini saya menggunakan Visual Basic 6.0 Enterprise Edition)
2. PC atau lain sebagainya yang bisa mengakses program ini(Visual Basic).

Cara Membuat Aplikasi sederhana ini :

1. Buka Program Visual Basic, lalu pilih Standard EXE.
2. Buat Form baru, (otomatis muncul Sendiri sebuah form baru)
3. 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

http://ardi212.wordpress.com/2009/11/01/tutorial-membuat-aplikasi-dengan-visual-basic/