Arkadaşlar Sizde Programınıza Şifre Koymak İstiyorsanız Doğru Yere Geldiniz.
Bu işlem Çok basittir.
Bu işlem Çok basittir.
Nesneler:
1) 2 Adet Text Box
2) 1 Adet Command Button
Bunları Ekledikten Sonra Aşağıdaki Kodu Olduğu Gibi Forma Yapıştırın.
1) 2 Adet Text Box
2) 1 Adet Command Button
Bunları Ekledikten Sonra Aşağıdaki Kodu Olduğu Gibi Forma Yapıştırın.
Kod:
Dim a
Private Sub Command1_Click()
If Text1.Text = "[COLOR=Lime][B]TurkHackTeam[/B][/COLOR]" And Text2.Text = "[COLOR=Lime][B]tht[/B][/COLOR]" Then
Form1.Hide
Form2.Show
Else
a = a + 1
MsgBox "Kullanıcı adı ve Şifreyi Kontrol Edin", , "HATA"
End If
If a = 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "3 sefer hatalı giriş yaptınız", , "UYARI"
MsgBox "Güle Güle", , "Güle Güle"
Form1.Hide
Form2.Hide
End If
End Sub
Private Sub Form_Load()
a = 0
End Sub