Cara Membuat Injector Berpassword Dengan VB 6.0

Buat sebuah form baru dengan nama : "frmLogin"
Form utama / injector yg agan maksud ubah nama nya menjadi "frmMain"
Pada "frmLogin" tambahkan komponen ,sbb:
- Label dengan caption "&Password"
- TextBox dengan nama "txtUserName" dan caption nya di kosongkan
- CommandButton dengan nama "cmdLogin" dan caption "Login"
- CommandButton dengan nama "cmdCancel" dan caption "Cancel"
- Untuk accesories dan tampilan design silahkan berkreasi masing2
- Kemudian isikan code berikut pada "frmLogin"


code;

    Option Explicit
    Dim hitung As Byte
    Private Sub cmdLogin_Click()
    If Trim(txtUserName.Text) = vbNullString Then
    GoSub hitungLog
    MsgBox "Upss... Password nya masih kosong bro !!" + vbCrLf + "Tolong di benerin", _
    vbInformation, "Konfirmasi"
    txtUserName.SetFocus
    ElseIf Trim(txtUserName.Text) = vbNullString Then
    GoSub hitungLog
    MsgBox "Upss... Password nya masih kosong bro !!" + vbCrLf + "Tolong di benerin", _
    vbInformation, "Konfirmasi"
    txtUserName.SetFocus
    ElseIf Trim(txtUserName.Text) = "Fiqih[ RPL²]" Then
    frmMain.Show
    Unload Me
    Else
    GoSub hitungLog
    txtUserName = vbNullString
    txtUserName.SetFocus
    MsgBox "upss... maaf password nya salah bro !!" + vbCrLf + "Coba Di Benarkan !!", vbExclamation, "Informasi"
    End If
    Exit Sub
    hitungLog:
    hitung = hitung + 1
    If hitung = 3 Then
    MsgBox "Duh kacian dari tadi salah mulu .. dah lah gw kasih tau password nya " + vbCrLf + "Password nya : Fiqih RPL2", vbExclamation, "Informasi"
    Unload Me
    Else
    Return
    End If
    End Sub

    Private Sub cmdCancel_Click()
    End
    End Sub

    Private Sub cmd1_click()
    frmAbout.Show 1 'misalnya adalah about tutor
    End Sub






Silahkan Edit2 code diatas ^_^

- Setelah selesai ,, ikuti langkah berikut :
* klik menu project , - ###Properties ,-pada "StartUpObject" pilih "frmLogin" ,-OK
* Project selesai , tinggal save project dan COMPILE KE EXE (Make EXE)


Credit; Saya Sendiri
Thanks To Guru Visual Basic