Looking at all the replies I think there must be somewhere a simple and reliable solution. So I concocted the following which failed miserably and I wonder why:
Dim videoID As String = "FaFftJh7nKc"
Dim su As StringUtils
Dim A, encoded As String
dim j, k as inte
Dim job As HttpJob
job.Initialize("YouTube",Me)
job.Download("
http://www.youtube.com/get_video_info?video_id="&videoID)
wait for (job) JobDone(job As HttpJob)
If job.Success Then
A=job.GetString
encoded=su.DecodeUrl(A,"UTF-8")
j=A.IndexOf("dashmpd")
k=encoded.IndexOf("dashmpd")
no dashmpd in sight and when I do it ten times in a row I get ten different strings returned.
Can anyone enlighten me, please. Thanks in advance
john m.