Как я могу обработать поток ответов с веб-страницы, где отображается видео? - PullRequest
Новая
       42

Как я могу обработать поток ответов с веб-страницы, где отображается видео?

2 голосов
/ 29 ноября 2011 
<html>
    <body style="background-color: rgb(38,38,38);">
        <video controls="" autoplay="" name="media"
            style="margin: auto; position: absolute; top: 0; right: 0; bottom: 0; left: 0;"
            src="http://av.vimeo.com/32372/157/24910156.mp4?token=1322514534_58acf41d56103820e9fe93763c73fadd">
        </video>
    </body>
</html>

Выше приведен ответ страницы, которую я пытаюсь получить, если ввести URL-адрес :

Однако программа просто аварийно завершает работу со следующим кодом (то есть никогда дажеотображает окончательно - это означает, что поток все еще продолжается)

Я думаю, что это потоковое видео, в дополнение к источнику - что я не хочу, чтобы

Как я могу получить этот источник? 

Dim final As String = ""
Dim request1 As HttpWebRequest = DirectCast(WebRequest.Create(urlvimeohd), HttpWebRequest)

request1.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
Dim response1 As HttpWebResponse = DirectCast(request1.GetResponse(), HttpWebResponse)

final = New StreamReader(response1.GetResponseStream).ReadToEnd
MessageBox.Show(final)

Мне просто нужен источник веб-страницы.Когда я пытаюсь webbrowser1.navigate, источник просто говорит "технические трудности".Как я могу продолжить?

1 Ответ

0 голосов
/ 29 ноября 2011 
HttpWebRequest request = DirectCast(HttpWebRequest.Create(Url), HttpWebRequest)HttpWebResponse resp = DirectCast(request.GetResponse, HttpWebResponse)
string sourcecode = New StreamReader(resp.GetResponseStream,System.Text.Encoding.Default).ReadToEnd

замените URL вашей ссылкой

...