[VB.NET] Problema scrittura WebBrowser

[Arjen]

Ciao ragazzi, allora io ho creato un codice abbastanza che in pratica seleziona una parola nella ListBox e in automatico la inserisce in un text (ad esempio Google, che ovviamente è nel WebBrowser) e prema il pulsante "Cerca" da solo, fin qui tutto OK.

Funziona al 98% perché il programma effettivamente in automatico seleziona la parola dalla ListBox e cerca (ad es. su Google), il problema sta che nella "text box" di google non compare scritto nulla, ma cerca solamente.. Io vorrei vedere la parola selezionata dalla ListBox..
E' un piccolo difetto che non riesco a risolvere.. Vi lascio il mio codice:

 Private Sub ElectricButton2_Click(sender As Object, e As EventArgs) Handles ElectricButton2.Click
        Dim searchBox As HtmlElement = Nothing
        Dim searchButton As HtmlElement = Nothing
        Dim keyword As String = ListBox1.SelectedItem
        searchBox = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input")
        searchButton = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search")
        Do While WebBrowser1.Document Is Nothing OrElse searchBox Is Nothing OrElse searchButton Is Nothing
            Application.DoEvents()
            searchBox = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input")
            searchButton = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search")
        Loop
        WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input").InnerText = (keyword)
        searchBox.SetAttribute("value", keyword)
        searchButton.InvokeMember("click")
        WebBrowser1.Refresh()
        For i As Integer = ListBox1.SelectedItems.Count - 1 To 0 Step -1
            Dim k As Integer = ListBox1.SelectedIndices(i)
            ListBox1.Items.RemoveAt(k)
        Next
        Timer1.Enabled = True

Lo so che potevo fare tutto comodamente con

 Dim asd = ListBox1.SelectedItem
 WebBrowser1.Document.GetElementById("txtSearch").InnerText = (asd)

Ma io voglio quello mio..
Grazie per le risposte!

[Arjen]

Una mano?

[Arjen]

upp

[MItaly]

Ma se vuoi implementare una casella di ricerca, perché non ti limiti semplicemente a mandare il webbrowser a:
https://www.google.com/s?q=parole da cercare
(dove parole da cercare vanno prima passate in un URL encoder)
?
Fare tutti quei pasticci con il DOM di una pagina non è una buona idea, la prima volta che Google cambia layout della pagina il tuo codice non funziona più...

[Arjen]

Nono a me serve il mio codice..

[Arjen]

upp

[MItaly]

Non ha senso uppare un thread prima che finisca in seconda pagina, evitiamo grazie.

[Arjen]

Non ho ancora trovato una soluzione, vi prego qualcuno mi aiuta?

[oregon]

Ma è tipo un blurum bot ... ?

[Arjen]

Una specie, ma solo per interesse