.NET ADFLY bot Need Help - Printable Version

Code
Public Class Form1

    Dim done = False

    Dim navigating = False



    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        done = True

    End Sub



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



        WebBrowser1.Navigate(TextBox1.Text)

      

    End Sub



    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating

        navigating = True

    End Sub

    Private Sub WebBrowser1_NewWindow2(ByVal ppDisp As Object, ByVal Cancel As Boolean)

        Cancel = True

    End Sub

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

        Do

            WebBrowser1.Document.GetElementById("skip_ad_button").InvokeMember("Click")

            WebBrowser1.Navigate(TextBox1.Text)





            MsgBox("youhavelooped")

        Loop



    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub