Proporrei ad ogni modo un codice come il seguente, avendo cura di attivare anche i Componenti
gb.net e
gb.net.curl :
Private http As New HttpClient As "http"
Private dati As String
Private ss As String[]
Public Sub Form_Open()
Dim url As String
url = "http://www.rai.tv/dl/RaiTV/programmi/media/ContentItem-fa988f53-ff53-48f1-baa5-391653ace125.html"
With http
.URL = url
.Timeout = 15
.Get()
End With
Print "Lettura dati...\n"
End
Public Sub http_Read()
Dim buf As String
If Lof(http) Then
Read #http, buf, Lof(http)
dati &= buf
Endif
End
Public Sub http_Finished()
ss = Scan(dati, "*<meta name=\"videourl\" content=\"*\"*")
If (Left(ss[1], 2) = "//") Then ss[1] = "http:" & ss[1]
If (Left(ss[1], 3) = "mms") Then ss[1] = "http" & Right(ss[1], Len(ss[1]) - 3)
Print "Lettura dati terminata."
http.Close
End
Public Sub Button1_Click()
WebSettings[WebSettings.PluginsEnabled] = True
WebView1.Url = ss[1]
End
Riguardo invece ai video memorizzati nel formato
.wmv, riconoscibili in quanto nella rispettiva pagina della RAI appare eventualmente l'avviso della necessità di installare "
Silverlight" della Microsoft, come ad esempio questo caso:
http://www.rai.tv/dl/RaiTV/programmi/media/ContentItem-c3ecc29c-43be-4cfa-8f84-3c21f7ad93eb.htmlper poterli vedere procedere come segue:
- cliccare con il tasto destro del mouse sulla pagina e scegliere "
View Page Info"
- nella finestra, che appare, in "
General" nel riquadro inferiore copiare l'url indicata nella voce:
videourl- aprire il programma
Banshee ed inserire l'url, prima copiata, in:
Multimediale --> Apri posizione...