AboutSyed Rizwan Muhammad Rizvi Expertise I can answers questions regarding web based and desktop based programming in VB.Net. Which can include SOAP, XML, Custom Controls, COM Interoperability etc.
Experience Have been working in this specific area for last 2 years previously I was a VB 6 Developer with experties in other languages as well. Total 10 years of programming experience.
Can you help me validate this code because even i tried to type the wrong password still it open my main form.
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okbutton.Click
Dim ReadUsername As System.IO.StreamReader = New System.IO.StreamReader("C:\Accounts\Usernames.txt")
Dim Uline As String
Dim ReadPassword As System.IO.StreamReader = New System.IO.StreamReader("C:\Accounts\Passwords.txt")
Dim Pline As String
Do
Pline = ReadPassword.ReadLine()
Uline = ReadUsername.ReadLine()
Console.WriteLine(Pline)
Console.WriteLine(Uline)
Loop Until Uline Is Nothing
If usernametextbox.Text = "" Then
MsgBox("Please enter a valid username")
Exit Sub
End If
If passwordtextbox.Text = "" Then
MsgBox("Please enter a valid password")
Exit Sub
End If
If Uline = ReadUsername.ReadLine() = True Then
MsgBox("Enter a Username")
End If
If Pline = ReadPassword.ReadLine() = False Then
MsgBox("Enter a Password")
Else
MainFormApplication.Show()
Me.Close()
End If
End Sub
Answer Do
Pline = ReadPassword.ReadLine()
Uline = ReadUsername.ReadLine()
Console.WriteLine(Pline)
Console.WriteLine(Uline)
If usernametextbox.Text = "" Then
MsgBox("Please enter a valid username")
Exit Sub
End If
If passwordtextbox.Text = "" Then
MsgBox("Please enter a valid password")
Exit Sub
End If
if Uline = usernametextbox.text and pline=passwordtextbox.text Then
ReadPassword.close()
ReadUsername.close()
MainFormApplication.Show()
Me.Close()
exit do
End If
Loop Until Uline Is Nothing
ReadPassword.close()
ReadUsername.close()
