Programınıza Şifre Koyun •• pHisLicq0FDaLqa

pHisLicq0FDaLqa' Alıntı:

Arkadaşlar Sizde Programınıza Şifre Koymak İstiyorsanız Doğru Yere Geldiniz.​

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.​

Kod:

Dim a

Kod:

[CENTER][LEFT]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[/LEFT]

[/CENTER]

Genişletmek için tıkla ...