Kodu Tahmin Etme // Vb.NET // Dil Takımı // umix94

Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "admin" Then
Form1.Hide
Form2.Show
Else
MsgBox "Try Agin", , "password"
End If
End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Command3_Click()
MsgBox "Think basic Admin password!", , "password"
End Sub

Private Sub Form_Load()

End Sub


and then form 2

Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "password" Then
Form2.Hide
Else
MsgBox "Try agin"
End If
End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Command3_Click()
MsgBox "Think basic Admin password!", , "password"
End Sub

Private Sub Form_Load()

End Sub


Form 3

Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "" Then
Form3.Hide
Else
MsgBox "Try Agin"
End Sub

Private Sub Form_Load()
End
End Sub

Splashscreen


Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub



Private Sub Frame1_Click()
    Unload Me
End Sub

Private Sub Timer1_Timer()
Unload Me
Form1.Show
End Sub

Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "admin" Then
Form1.Hide
Form2.Show
Else
MsgBox "Tekrar Deneyin", , "Parola"
End If
End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Command3_Click()
MsgBox "Admin parolasını basit düşün!", , "Parola"
End Sub

Private Sub Form_Load()

End Sub


and then form 2

Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "parola" Then
Form2.Hide
Else
MsgBox "Tekrar Deneyin!"
End If
End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Command3_Click()
MsgBox "Admin parolasını basit düşün!", , "parola"
End Sub

Private Sub Form_Load()

End Sub


Form 3

Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "" Then
Form3.Hide
Else
MsgBox "Tekrar Deneyin!"
End Sub

Private Sub Form_Load()
End
End Sub

Splashscreen


Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub



Private Sub Frame1_Click()
    Unload Me
End Sub

Private Sub Timer1_Timer()
Unload Me
Form1.Show
End Sub