Bot base

Private Function OpenUrl (ByVal Url As String, ByVal indexCodice As Integer) As Boolean
    Try
        WebBrowser1.Navigate(Url)
        WaitForPageLoad()
        Dim TextBox1 As HtmlElement = WebBrowser1.Document.All.Item(ID_CAMPO_DI_TESTO_NEL_SITO)
        TextBox1.InnerText = CodiciDataTable.Rows(indexCodice).Item(0)
        WebBrowser1.Document.All("button").InvokeMember("click")
        WaitForPageLoad()
        Return True
    Catch ex As Exception
        Return False
    End Try
End Function

Private Sub WaitForPageLoad()
        AddHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        While Not pageready
            System.Windows.Forms.Application.DoEvents()
        End While
        pageready = False
    End Sub

    Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            pageready = True
            RemoveHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        End If
    End Sub

Private Sub EstraiDati()
    While OpenUrl(Url, indexCodice)
        req = WebRequest.Create(WebBrowser1.Url.ToString())
        Using resp As WebResponse = req.GetResponse()
            Using reader As New StreamReader(resp.GetResponseStream())
                source = reader.ReadToEnd()
            End Using
        End Using
        'Istruzioni per estrarre il codice dalla stringa source.
    End While
End Sub