Закрытие программы после трёх неверных вводов логина и пароля
Добавлено: 29 окт 2014, 13:58
есть программа реализации ввода логина и пароля. после трех неправильных вводов программа закрывается. Нужно сделать так,чтобы после 3 неправильных попыток, при запуске программы, она сразу же закрывалась не давай сделать никаких действий. пожалуйста,помогите. буду признательна за помощь 
Код: Выделить всё
Public Class Form1
Dim n As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
FileOpen(1, "parol.txt", OpenMode.Input, OpenAccess.Read)
Dim l, p As String
l = LineInput(1)
p = LineInput(1)
n = LineInput(1)
FileClose(1)
If n >= 3 Then
End
MsgBox("Превышено число неправильных вводов!", MsgBoxStyle.Critical, "Внимание")
End
Else
If l = TextBox1.Text And p = TextBox2.Text Then
MsgBox("Привет!", MsgBoxStyle.Critical, "Внимание")
Primer(l, p, 0)
Else
MsgBox("Логин или пароль не верные!", MsgBoxStyle.Critical, "Внимание")
n = n + 1
Primer(l, p, n)
End
End Sub
Sub Primer(ByVal ll As String, ByVal pp As String, ByVal nn As Integer)
FileOpen(1, "parol.txt", OpenMode.Output, OpenAccess.Write)
PrintLine(1, ll)
PrintLine(1, pp)
PrintLine(1, nn)
FileClose(1)
End Sub
Private Sub Lock(ByVal form1 As Form1)
Throw New NotImplementedException
End Sub
End Class