Ti ringrazio per la risposta. Credo di aver capito, anche se appena si avvia mi dà un errore.
Ho preso la combobox "Sesso" della pagina di Hotmail come esempio. Ho creato un button e un webbrowser e ho dato questo codice:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.Navigate("https://signup.live.com/signup.aspx?wa=wsignin1.0&rpsnv=11&ct=1353967486&r ver=6.1.6206.0&wp=MBI&wreply=http%3a%2f%2fmail.liv e.com%2fdefault.aspx&id=64855&cbcxt=mai&snsc=1&bk= 1354027427&uiflavor=web&mkt=IT-IT&lc=1040&lic=1") ' scrivi indirizzo msn
While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete ' comando che aspetta che il webbrowser carichi tutta la pagina fino a "end While"
Application.DoEvents()
End While
Dim Ele As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("select" )
For Each curEle As HtmlElement In Ele
Dim x As New Random
Dim prova(2) As String
prova(1) = "m"
prova(2) = "f"
If curEle.GetAttribute("name").Equals("iGender") Then
curEle.SetAttribute("value", prova(x.Next(1, 3))) 'Setta l'attributo value un numero casuale
End If
Next
End Sub
End Class
l'errore che mi restituisce è il seguente:
Problemacosa sbaglio?

cosa sbaglio?
Rispondi quotando