|ZIC|-Zona Info Community
Rules ZIC
• No Junk/Flame/Flood/SARA/S*x di ZIC
• No Direct Link selain link ke forum atau Facebook fanpage ZIC (https://www.facebook.com/groups/IndonesiaCyberTeam/ )
• Dilarang meminta tutorial apapun yg bersifat detail melalui ZIC ataupun PM ke admin/staff/moderator, harus buat postingan sesuai dengan SF dengan prefix [Tanya].
• Biasakan menggunakan bahasa indonesia di ZIC.
• Bagi member yang menemukan pelanggaran, harap di SS dan kirim SSnya sebagai bukti pelanggaran melalui report abuse.

cara buat password / form login di Injector with VB6

Topik sebelumnya Topik selanjutnya Go down

cara buat password / form login di Injector with VB6

Post by Dian Wahyu on Sun Apr 10, 2011 2:46 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"

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)

Dian Wahyu
Admin
Admin

Jumlah posting : 1093
Point sytem : 10362
Join date : 29.08.10
Age : 20
Lokasi : sidoarjo, surabaya, jawatimur.
Humor : gak ada
hobbies : Update Forum

http://zi-share.forummotion.com

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik