Così?
Dim theElementCollection As HtmlElementCollection
theElementCollection = Webbrowser1.Document.GetElementsByTagName("img")
For Each curElement As HtmlElement In theElementCollection
If curElement.GetAttribute("class") = "coverPhotoImg photo img" Then
PictureBox1.ImageLocation = curElement.GetAttribute("src").ToString()
MsgBox(curElement.GetAttribute("src").ToString())
End If
Next
Non funziona, dove sbaglio?
Ultima modifica effettuata da Light il 27/06/2014 alle 17:56 |