Cercare testo in una pagina web

[sharpy]

Salve,
sono un neofita vbnet e avrei bisogno di un aiuto x cercare del testo in una pagina web, il massimo sarebbe se MsgBox visualizzasse anche la posizione del testo trovato, grazie

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Process.Start("www.google.com")
        Dim wb As WebBrowser
        If wb.DocumentText.ToLower.Contains("Cerca con Google") Then
            MsgBox("SI")
        Else
            MsgBox("NO")
        End If
    End Sub
End Class

[Pamela72]

Scusa qual'è la domanda?
E poi se tu converti tutto il testo in ToLower, cioè tutto minuscolo e poi gli dici di cercare "Cerca con Google" che contiene maiuscole non ti comparirà mai la msgbox("SI")

[sharpy]

Pamela grazie della risposta, ho fatto qualche passo avanti e ora finalmente trova il testo, se è meglio tolgo tolower, vorrei che msgbox oltre a trovare il testo mi indichi la posizione del testo così poi gli sposto il cursore sopra, questo dovrei riuscire a fare

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wb As New WebBrowser
        WebBrowser1.Navigate("www.google.it")
        If WebBrowser1.DocumentText.ToLower.Contains(TextBox1.Text.ToLower) Then
            MsgBox("SI")
        Else
            MsgBox("NO")
        End If
    End Sub

[sharpy]

Ho aggiunto qualche istruzione per attendere il caricamento della pagina e trovare il testo.
Vorrei riuscire a calcolare la posizione del testo trovato, posizionare il cursore sopra e cliccarvi

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wb As New WebBrowser
        WebBrowser1.Navigate(New Uri("http://www.google.it"))
        While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        End While
        If WebBrowser1.DocumentText.ToLower.Contains("cerca") Then
            MsgBox("SI")
        Else
            MsgBox("NO")
        End If
    End Sub
End Class

[Pamela72]

Non so se ho capito bene, ma puoi fare così:

TextBox1.Select() 'necessario per selezionare la txtbox o il WB
TextBox1.Select(A, B) 'seleziona la parola trovata, dovrai cercarlo con un .indexOf

[sharpy]

ho provato con indexof ma ora dice si anche quando non c'è

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.DocumentText.ToLower.IndexOf(TextBox1.Text.ToLower) Then
           MsgBox("SI")            
           WebBrowser1.Select()
        Else
            MsgBox("NO")
        End If
    End Sub


    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(New Uri("http://www.google.it"))
    End Sub

[oregon]

Leggi cosa restituisce la IndexOf e correggi la If

http://www.dotnetperls.com/indexof-vbnet