[VB.NET] controllo WebBrowser

[bmw]

Ciao, sto cercando automatizzare l'inserimento di alcuni dati in una pagina internet. L'applicazione carica la pagina con un webbrowser, inserisce i valori e preme sul bottone che li invia.

Il problema è questo: nell'evento "DocumentCompleted" vado in cerca dei campi da riempire e funziona solo uno dei campi per volta.... io però vorrei inserire più valori....


questo è il codice:

Dim doc As HtmlDocument = (CType(sender, WebBrowser)).Document
            Dim elementi As HtmlElementCollection
            Dim elemento As HtmlElement

            ' seleziono select
            elementi = doc.GetElementsByTagName("SELECT")
            For i As Integer = 0 To elementi.Count
                elemento = elementi.Item(i)
                If elemento.GetAttribute("name") = "ConoscenzaAllState" Then
                    elemento.SetAttribute("value", "06        ")
                End If
            Next


            ' seleziono radio
            'elementi = doc.GetElementsByTagName("input")
            'For i As Integer = 0 To elementi.Count
            '    If elementi.Item(i).GetAttribute("type") = "radio" Then
            '        elementi.Item(i).SetAttribute("checked", "checked")
            '    End If
            'Next

            ' inserisco text
            'elementi = doc.GetElementsByTagName("INPUT")
            'For i As Integer = 0 To elementi.Count
            '    elemento = elementi.Item(i)
            '    If elemento.GetAttribute("name") = "dataInizioValidita" Then
            '        elemento.SetAttribute("value", "30/10/2008")
            '    End If
            'Next

in pratica sia "seleziono select" che "seleziono radio" che "inserisco text" funzionano singolarmente ma se ne decommento più di uno allora finita l'esecuzioen di un blocco si ferma anche l'esecuzione del programma....

[bmw]

...autorisolto il problema.... che vergogna, meglio che non dico nemmeno dov'era il problema...!

[Stoicenko]

Forse è meglio postare la soluzione, sia mai che qualcuno abbia il tuo stesso problema

[bmw]

....era tutto giusto, solo che i cicli for sforavano.... anzichè

To elementi.Count 

andava

To elementi.Count - 1