B0RU70 Se☪uЯity

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
    Private Sub tarama()

        If WebBrowser1.DocumentText.Contains("input") Then
WebBrowser1.Navigate(TextBox1.Text & ListBox2.SelectedItem)

            ListBox1.Items.Add(TextBox1.Text & ListBox2.SelectedItem)
ListBox2.SelectedIndex += -1


        End If
    End Sub


            ListBox2.SelectedIndex += 1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            tarama()
        Catch ex As Exception

        Timer1.Start()
Timer1.Stop()

        End Try
    End Sub

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


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

    End Sub