Pas browsing, dapet deh cara ini, sebarnya cara ini gampang lho, asalkan kamu ngerti isi perut VB6 aja .. bakal ngerti semanya kok. mau tau ga tutorial nya?? ada disini kok.. liat yuk ..
1. Download VB6 nya, banyak di 4shared
2. Buka VB6
3. Pilih standard.exe
4. Ganti nama form dulu menjadi Key Generator (contoh)
5. Lalu buat 1 textbox, & 1 command button
6. ganti bacaan text1 dengan kosongkan text. (maksudnya text1. itu di hapus), dan command 1 manjadi generate
7. Klik tombol generate, maka anda akan di arahkan ke kotak coding.
8. Masukkan coding ini dalam form generate! :
Private Sub Command1_Click()
Dim Key As Integer
Key = Int (Rnd()*3)
Select Case Key
Case 0
text1.text = "ABCD-EFGH-IJKL-MNOPQ"
Case 1
text1.text = "PEE-WEE-GASKINS"
Case 2
text1.text = "KILLING-ME-INSIDE"
End Select
End Sub
9. Sehingga hasil nya seperti ini
10. Klik kanan lalu klik hide
11. Lalu coba.
[!] SELAMAT MENCOBA [!]
