Belajar VB6 Membuat Registrasi Program Sederhana - Hallo sahabat Emboh Gakro, Pada Artikel yang anda baca kali ini dengan judul Belajar VB6 Membuat Registrasi Program Sederhana, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Belajar VB6 Membuat Registrasi Program Sederhana
link : Belajar VB6 Membuat Registrasi Program Sederhana

Belajar VB6 Membuat Registrasi Program Sederhana

Program ini request dari anggota Grup FB Belajar VB6 Pembriyan Ashter

Tampilan awal register sebagai berikut

 
 Tampilan landing formnya seperti ini

Jika batas uji coba terpenuhi, maka program tidak dapat dipakai lagi kecuali mengisi nomor registrasi dengan benar, dan tampilannya akan seperti ini

Ok, Langsung saja buat form di VB6

Ketik coding berikut

 'Iki mek contoh, asline sak karep e di gawe brapa kotak nomer register, karna ini paling sederhana dadi gampang dibobol
Private Sub Command1_Click()
If Text1.Text = "2000" And Text2.Text = "1234567" And Text3.Text = "2001" Then
SetStringValue "HKEY_LOCAL_MACHINE", "String Value", (Text1) & (Text2) & (Text3) 'nyimpen nomor
nextstep 'tambah sub baru untuk menangani sisa kode yang seharusnya ada di sub ini, tapi saya perlu menggunakan handler error untuk memicu event lain
Exit Sub
Else 'pengguna memasukkan kata sandi yang salah
MsgBox "Nomer sing mbok lebokno salah doel! hayoo ate mbobol yo.", vbCritical, "Peringatan kesalahan!"
End If
End Sub
Private Sub nextstep() 'ini adalah kode yang harus ada dengan command1_click tapi karena saya menggunakan handler kesalahan untuk memicu acara lain saya harus pergi rute ini
On Error GoTo err
'Jika ziggypop.dll ada di sana, program ini tidak terdaftar dan mereka telah menggunakan uji coba mereka maka program tersebut tidak akan membiarkan mereka melangkah lebih jauh sampek kode sing bener di lebokno
Kill ("c:\windows\system\" & "ziggypop.dll") 'nek kode ne bener ziggypop bakal di pateni
Form2.Show
Unload Me
Exit Sub
err: 'iki  gawe nangani kesalahan yang akan Anda dapatkan setiap kali program ini dijalankan sebelum mereka menggunakan cobaan mereka
Form2.Show
Unload Me
End Sub
Private Sub Form_Load()
On Error GoTo err
Open "c:\windows\system\" & "ziggypop.dll" For Input As #1 'iki gawe golek i opo sing gawe program ate curang mek gawe uji coba tok, mari ngunu di uninstall trus di install maneh
Line Input #1, ttt
Close #1
MsgBox "Sampean wes gawe program iki secara uji coba, ra mungkin gawe maneh mestipun di reinstall. saiki wayah e sampean tuku program iki.", vbCritical, "Penjaga Program"
Label6.Visible = False
Shape1.Visible = False
Label9.Visible = True
Label8.Visible = True
Form1.Caption = "Waktu uji cobane wes entek!"
Exit Sub
err:
finishloading 'iki di gawe nangane wong sing ate curang
End Sub
Private Sub finishloading()
status.Caption = GetStringValue("HKEY_LOCAL_MACHINE", "String Value") 'membaca registri untuk nomor reg
If status.Caption = "200012345672001" Then ' masukkan no reg yang Anda inginkan
Form2.Show
Unload Me
Exit Sub 'ini berhenti dari melakukan kode lagi dalam form ini adalah nomor reg yang sudah masuk
Else 'Karena nomor reg belum masuk maka akan dilakukan langkah selanjutnya dalam kode
retvalue = GetSetting("A", "0", "Runcount") 'programe ole jalan
gd$ = Val(retvalue) + 1
SaveSetting "A", "0", "runcount", gd$
End If

If gd$ > 20 Then 'pengguna hanya boleh mencoba program 20 kali
Open "c:\windows\system\" & "ziggypop.dll" For Output As #1 'menulis ziggypop.dll sehingga mereka tidak bisa uninstall kemudian menginstal ulang untuk mendapatkan lebih banyak percobaan
Print #1, ttt
Close #1
Label6.Visible = False
Shape1.Visible = False
Label9.Visible = True
Label8.Visible = True
Form1.Caption = "waktu nyoba sudah habis!"
Exit Sub
End If
Form1.Caption = "Trial use mode . . . . . . . .Trial #" & gd$
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &HFF0000
Shape2.BorderColor = &HFF0000 'hanya berurusan dengan mouse di atas acara tombol saya
Label6.ForeColor = &HFF0000
Shape1.BorderColor = &HFF0000
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &HFF0000
Shape2.BorderColor = &HFF0000 'hanya berurusan dengan mouse di atas acara tombol saya
Label6.ForeColor = &HFF0000
Shape1.BorderColor = &HFF0000
End Sub
Private Sub Label5_Click()
MsgBox "sampean kudu moco lan setuju karo kabeh ketentuan penggunaan program iki. sampean kudu setuju gak oleh ngedol maneh program iki, nek sampean ngelanggar, bakal duso sampean akhire melbu neroko. nek sampean setuju, langsung ae sampean klik [OK ] terus hubungi sing gawe program.  Contact info:  E-mail  maspri@embohgakro.com", vbOKOnly, "Ketentuan penggunaan."
End Sub
Private Sub Label6_Click()
MousePointer = vbHourglass 'pengguna ngeklik continue unregister
Form2.Show
Unload Me
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &H8000&
Shape1.BorderColor = &H8000&
Label7.ForeColor = &HFF0000
Shape2.BorderColor = &HFF0000
End Sub
Private Sub Label7_Click() 'user clicked cancel BUT THEY STILL LOOSE A TRIAL TIME
MsgBox "If you would like to obtain the registration code you must read the (TOU), agree the to statement, then contact the program vendor.", vbOKOnly, "Thank you for trying our program!"
End
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &HFF&
Shape2.BorderColor = &HFF&
Label6.ForeColor = &HFF0000
Shape1.BorderColor = &HFF0000
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &HFF0000
Shape2.BorderColor = &HFF0000
Label6.ForeColor = &HFF0000
Shape1.BorderColor = &HFF0000
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1.Text >= "" Then
Text2.Enabled = True
End If
If Text1.Text = "" Then
Text2.Enabled = False
End If
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Text2.Text >= "" Then
Text3.Enabled = True
End If
If Text2.Text = "" Then
Text3.Enabled = False
End If
End Sub
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If Text3.Text >= "" Then
Command1.Enabled = True
End If
If Text3.Text = "" Then
Command1.Enabled = False
End If
End Sub

Buat Form lagi untuk landing program Utama

ketik coding berikut

Private Sub Command1_Click()
SetStringValue "HKEY_LOCAL_MACHINE", "String Value", "GGG" 'ggg can be anything this just makes sure it does not say "Registered"
End Sub
di form landing program isinya cuman 1 command button untuk unreg program

kalau gak mau repot, silakan download saja contoh project program nya disini

Demikianlah Artikel Belajar VB6 Membuat Registrasi Program Sederhana

Sekianlah artikel Belajar VB6 Membuat Registrasi Program Sederhana kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Belajar VB6 Membuat Registrasi Program Sederhana dengan alamat link https://menjadiembohgakro.blogspot.com/2017/09/belajar-vb6-membuat-registrasi-program.html

Tweet