maxuploader
Gebruiker
- Lid geworden
- 18 sep 2008
- Berichten
- 316
Ik schrijf een programma dat gebruikersnamen en wachtwoord kan testen op een website met een http authencation. Dit gaat goed als ik 1 gebruikersnaam en wachtwoord test. (TextBox1 = Gebruikersnamen TextBox2 = Wachtwoorden
Nu is het me all gelukt om voor elke username (each line) een string te maken (Eerste twee lines van de code hier onder) Maar nu moet het programma elke gebruikersnaam en wachtwoord testen totdat ie ze allemaal heeft gehad. Hoe doe ik dat?
Btw gebruikersnaam wordt hier ingevuld:
http.Login = GEBRUIKERSNAAM
http.Password = WACHTWOORD.
btw probeer de code niet te testen ik gebruik een bepaalde reference.
Nu is het me all gelukt om voor elke username (each line) een string te maken (Eerste twee lines van de code hier onder) Maar nu moet het programma elke gebruikersnaam en wachtwoord testen totdat ie ze allemaal heeft gehad. Hoe doe ik dat?
Btw gebruikersnaam wordt hier ingevuld:
http.Login = GEBRUIKERSNAAM
http.Password = WACHTWOORD.
Code:
Dim usrs As String() = TextBox1.Text.Split(New [Char]() {CChar(vbCrLf)})
Dim pass As String() = TextBox2.Text.Split(New [Char]() {CChar(vbCrLf)})
http.Login = TextBox1.Text
http.Password = TextBox2.Text
response = http.GetHead(TextBox3.Text)
If (response Is Nothing) Then
lb_Code.Text = response.StatusCode
ElseIf response.StatusCode = 200 Then
lb_Code.Text = response.StatusCode
TextBox6.Text += Environment.NewLine + "Password Is working!"
Else
lb_Code.Text = response.StatusCode
End If
ProgressBar1.PerformStep()
btw probeer de code niet te testen ik gebruik een bepaalde reference.