Buitenzorg

saya aka share code untuk membuat pasword injector

Buat sebuah form baru dengan nama : "frmLogin"
Form utama / injector yg agan maksud ubah nama nya menjadi "frmMain"
Pada "frmLogin" tambahkan komponen ,sbb:

• Buat 1 form, 1 label, 1 textbox
  
• buat 2 command button
  ubah caption command button yang pertama menjadi "OK" yang ke2 menjadi "cancel"
  
• letakan label di sebelah textbox dan ubah captionnya menjadi "masukan password :"
  
• kosongkan text pada textbox
  
• ubah nama command button ke1 jadi "Command1" dan command button yang ke 2 menjadi "Command2"
  
• ubah nama textbox menjadi "TextBox1"

Private Sub Form_Load()
TextBox1.passwordchar = "*"
End Sub
Private Sub Command1_Click()
 If TextBox1.text = "Snutz" Then
    Unload Me
    Form2.Show
Else
    Msgbox("Password salah...!!!",vbInformation+vbOKOnly,"snutz")
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

jika selalu terjadi error di sini ..

Coba diganti dengan code

MsgBox "Password Salah...!!!", vbInformation , "snutz"