Rocket X|Komunitas Cyber Indonesia

Silahkan klik login

Games Online Comunity

Selamat datang dan selamat menikmati fitur forum ini

Login

Lupa password?

login FB

Get Free Music at www.divine-music.info
Get Free Music at www.divine-music.info

Free Music at divine-music.info

Latest topics

» Membuat Postingan Berhubungan
Sat Jan 07, 2012 7:15 am by Admin

» Cara Mempercepat Loading Blog
Sat Jan 07, 2012 7:14 am by Admin

» Empire Earth III-RELOADED
Thu Jan 05, 2012 8:44 am by Admin

» Cheat Point Blank 5-1-2012
Thu Jan 05, 2012 8:28 am by Admin

» Cheat lost saga 5-1-2012
Thu Jan 05, 2012 8:26 am by Admin

» [VB6] Belajar Mengenai File Pendukung (*.ocx,*.dll,&More)
Thu Jan 05, 2012 8:14 am by Admin

» Template Blogspot Only
Thu Jan 05, 2012 8:07 am by Admin

» Peraturan RX (Rocket X)
Wed Jul 13, 2011 8:58 am by aku orang gila

» 1 hit SG Kosong And Spass
Thu Jul 07, 2011 9:55 pm by aku orang gila


    Berikut Cara Membuat Form Login / Berpassword Menggunakan VB6

    Share
    avatar
    Admin
    RX Special 1
    RX Special 1

    Jumlah posting : 50
    Points : 2147483647
    Reputation : 0
    Join date : 29.06.11

    Berikut Cara Membuat Form Login / Berpassword Menggunakan VB6

    Post by Admin on Sat Jul 02, 2011 11:57 am

    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"
    SC:

    Option Explicit
    Dim hitung As Byte
    Private Sub cmdLogin_Click()
    If Trim(txtUserName.Text) = vbNullString And Trim(txtPassword.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) = "Nstars.Net" Then
    frmMain.Show
    Unload Me
    Else
    GoSub hitungLog
    txtUserName = vbNullString
    txtPassword = 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 : Nstars.Net", 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)



    .:::::::::::::THX:::::::::::.

      Waktu sekarang Fri Dec 14, 2018 7:45 pm