Visual Basic 6 Programa Şifre Koyma Kod Hazır Kodda Hata Var Yardım

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
B

By Jk--*

Üye
24 Haz 2010
59
0
İstanbul/Gazi.Osman.Paşa
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
Private Sub Command1_Click()
If Text1.Text = "TurkHackTeam" And Text2.Text = "tht" 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




Form2.show da sorun var yardımmmmm.....

​
 
Tarihe göre sırala Oylara göre sırala
Z

z3r0_x

Üye
11 Haz 2010
181
0
Buyur kardeşim

Static x
x = x + 1
If Text1.Text = "z3r0_x" and Text2.Text = "123" Then
Form2.Show
Unload Me
ElseIf x = 3 Then
MsgBox "Üç hakkınızda bitti by!", vbCritical, "Malesef"
End
Else
MsgBox x & " Hakkınız Kaldı", vbInformation, "Yazık"
End If
 
Oyla 0 Downvote
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.