Admin Scanner Source

Public Class Form1
    Private Sub adminscan()
        WebBrowser1.Navigate(TextBox1.Text & ListBox2.SelectedItem)
        If WebBrowser1.DocumentText.Contains("input") Then
            ListBox2.SelectedIndex += -1
            ListBox1.Items.Add(TextBox1.Text & ListBox2.SelectedItem)

        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            ListBox2.SelectedIndex += 1
            adminscan()

        Catch ex As Exception
            Timer1.Stop()
        End Try
    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

   
End Class