Dim s As String = ""
While rd.Read()
webBrowser1.Navigate(rd.Item("url"))
' che la metta o no non cambia niente
webBrowser1.Refresh()
For i As Integer = 0 To
webBrowser1.Document.GetElementsByTagName("script").Count - 1
s &=
webBrowser1.Document.GetElementsByTagName("script").Item(i).InnerHtml
Next
End While
Dim s As String = ""
Using client As New WebClient()
Using data As Stream = client.OpenRead(sAddress)
Using reader As New StreamReader(data)
s = reader.ReadToEnd
reader.Close()
reader.Dispose()
End Using
data.Close()
data.Dispose()
End Using
client.Dispose()
End Using
"pileggi" ha scritto: