Projenize 3 adet form ekleyin

Form1 e sadece 1 adet label ekleyin, bu form ana formunuzdur.

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Private Sub Form_Load() 'Proje çalışmaya başlarken
If GetSetting("mayhem", "mayhemious", "murat") = "" Then 'regeditde bu anahtarları kontrol ediyor
Form2.Show 'Eğer bu anahtarlar BOŞ sa form2 yi gösterip
me.hide 'Bu formu kullanıcıdan saklıyor
Else 'Bu anahtar DOLU ise şifre kontrolü için form 3 açılıyor
Form3.Show
me.hide 'Bu formu kullanıcıdan saklıyor
End If
End Sub

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Gelelim Form2 ye. Bu regeditteki kayıt BOŞ ise program HİÇ kullanılmamıştır. o zaman bu formumuz görünüp bizden şifre girmemizi isteyecek. Form üzerinde 1 label,bir textbox ve bir buton var

Private Sub Command1_Click()
SaveSetting "mayhem", "mayhemious", "murat", Text1.Text 'text1 e girilen şifreyi regedite ekliyor
Form1.Show 'form1 i gösteriyor
Unload Me 'bu formu kapatıyor
End Sub


Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
Form3 ü de form 2 gibi yapıyoruz.


Private Sub Command1_Click()
If GetSetting("mayhem", "mayhemious", "murat") = Text1.Text Then 'Eğer bu anahtarın altındaki değer ile Text te yazılan değer aynı ise
Form1.Show 'Form1 i göster
Form1.Label1.Caption = "Şu Anki Şifreniz: " & GetSetting("mayhem", "mayhemious", "murat") 'Form1 deki label da ŞİFRE yazsın
Unload Me 'bu formu kapat
Else 'değilse
MsgBox "Hatalı Şifre. Tekrar Deneyin...!", vbCritical, "mayhemious" 'hata mesajı ver
Text1.Text = "" 'texti boşalt
End If
End Sub


**Tüm Hakları bana aittir

Bide Şifre Değiştirme İçin Kodları Verseydiniz Keşke

Project>Add>Ok