Keykode

ini adalah buah dari keisengan Ane bermain main dengan VB 6.0. Ane bosen dengan masuk sesuatu (log in makasudnya) dengan username dan password nah disini ane mau bikin sesuatu yang beda, lebih dari sekedar log in, tp dengan menggunakan keykode seperti brankas. he he, tp secara prinsip sih sama sebenarnnya, cuma biar keren aja. ha ha 

 cara buatny cukup sederhana, sediakan air, mentega, tepung terigu dan gula. lho??? sediakan 4 buah ComboBox, 6 TextBox dan dua label.  pada form load, beri kode seperti di bawah ini

_____________________

Private Sub Form_Load()
For i = 0 To 9
Combo1.AddItem i
Combo2.AddItem i
Combo3.AddItem i
Combo4.AddItem i
Next i
End Sub

_____________________

maksud dari perintah tersebut adalah pada  gambar disamping

Jadi kita tidak usah memasukkan satu-satu list angka angkanya. dan agar setiap ComboBox tidak bisa dituliasi maka diakali dengan car seperti ini.

________________________

Private Sub Combo1_Change()
Combo1.Text = ""
End Sub
________________________
Private Sub Combo2_Change()
Combo2.Text = ""
End Sub
________________________
Private Sub Combo3_Change()
Combo3.Text = ""
End Sub
________________________
Private Sub Combo4_Change()
Combo4.Text = ""
End Sub

________________________

Jika salah sebanyak tiga kali, maka keykode akan tertutup dan Ente tidak bisa masuk yaitu dengan membatsi jumlah login yang bisa dipencet yaitu dengan menggunakan jasa label yang sengaja disembunyikan.

______________________________

Private Sub Label2_change()
If Val(Label2.Caption) = 3 Then
MsgBox "Hangus", vbCritical, "Hangus"
End
End If
End Sub

______________________________

dan untuk perintah agar bisa masuk, tp ini sifantya permanen, jadi Kodenya tidak bisa dirubah

__________________________________________________________________

Private Sub Command1_Click()
On Error GoTo a
If Combo1.Text & Combo2.Text & Combo3.Text & Combo4.Text & Text1 & Text2 & Text3 & Text4 & Text5 & Text6 = 2409100061# Then
Form2.Show
Form1.Hide
End If
a:
Label2.Caption = Val(Label2.Caption) + 1
End Sub

__________________________________________________________________

dan setelah itu, Ente akan dibawa ke form kedua yang hanya bisa keluar kalau di klik kanan di salah tiga dari sembilan tombol

 ____________________________________________________

 Private Sub Command1_Click()
MsgBox "Clik kanan aja deh!!!", vbCritical, "Cari Sampai Ketemu!!!"
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
_____________________________________________________
Private Sub Command10_Click()
MsgBox "Cari Tombol unttuk keluar", vbCritical, "Cari Sampai Ketemu!!!"
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
___________________________________________
Private Sub Command2_Click()
MsgBox "Cari Tombol unttuk keluar", vbCritical, "Cari Sampai Ketemu!!!"
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
___________________________________________
Private Sub Command3_Click()
If vbRightButton = True Then
Else
MsgBox "Cari Tombol unttuk keluar", vbCritical, "Cari Sampai Ketemu!!!"
End If
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
_________________________________________________________
Private Sub Command4_Click()
MsgBox "Cari Tombol unttuk keluar", vbCritical, "Cari Sampai Ketemu!!!"
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
___________________________________________________________
Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
End
Else
MsgBox "Coba pake klik kanan!!!", vbCritical, "Cari Sampai Ketemu!!!"
End If
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
_________________________________________________________________
Private Sub Command6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
End
Else
MsgBox "Cari Tombol unttuk keluar", vbCritical, "Cari Sampai Ketemu!!!"
End If
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
__________________________________________________________________
Private Sub Command7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
End
Else
MsgBox "Kalau gak ketemu pakai klik kanan!!!", vbCritical, "Cari Sampai Ketemu!!!"
End If
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
_________________________________________________________________
Private Sub Command8_Click()
MsgBox "Cari Tombol unttuk keluar", vbCritical, "Cari Sampai Ketemu!!!"
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
______________________________________________________________
Private Sub Command9_Click()
MsgBox "Cari Tombol unttuk keluar", vbCritical, "Cari Sampai Ketemu!!!"
Form2.Top = Rnd * 12000
Form2.Left = Rnd * 12000
End Sub
___________________________________________________________

kalau Ente perhatikan, semua kode di form kedua ini seakan, sama. (emang sama). Tp ada beberapa yang beda. yang beda inilah perintah keluar dengan menggunakan klik kanan.

Posted in: Programing