Получите эскизы img от Vimeo без API - PullRequest
Новая
       23

Получите эскизы img от Vimeo без API

0 голосов
/ 15 января 2019

Попытка соскрести миниатюру с идентификатора видеоплеера vimeo, но не получить ответа или кода ошибки.Я знаю, что есть API, но это действительно работает как 3 месяца назад, теперь мое маленькое приложение не работает, так что я делаю не так? 

Private Function RequestToVimeo(ByVal VimeoVideoID As String, ByVal views As Boolean, rndAgent As Boolean, referer As String, Proxy As WebProxy) As Boolean



ReDownloadJson:

        Dim ResponseString As String = GetJson(VimeoVideoID, Proxy)


       Try
                Thistoken = Newtonsoft.Json.JsonConvert.DeserializeObject(Of VimeoJson)(ResponseString)
            Catch ex1 As Exception
                Try
                    Thistoken = Newtonsoft.Json.JsonConvert.DeserializeObject(Of OtherJson.VimeoJson)(ResponseString)
                Catch ex As Exception
                    Proxy = Nothing
                    GoTo ReDownloadJson
                End Try
        End Try

        If PreviewBox.ImageLocation Is Nothing OrElse PreviewBox.ImageLocation = String.Empty Then
            PreviewBox.ImageLocation = Thistoken.video.thumbs.base + "_640.jpg"
        End If




            If response IsNot Nothing Then
                response.Close()
            End If
            Return False
        End Try


    End Function

1 Ответ

0 голосов
/ 17 января 2019

Хорошо, я исправил Somethign, и это правильно, я надеюсь:) 

Private Sub getBtn_Click(sender As Object, e As EventArgs) Handles getBtn.Click
    Try
        Dim vimeoUrl As String = "https://i.vimeocdn.com/video/"
        Dim vimeoID As String = videoID.Text 'this comes here your vimeo video ID

        If PreviewBox.ImageLocation Is Nothing OrElse PreviewBox.ImageLocation = String.Empty Then
            PreviewBox.ImageLocation = "https://i.vimeocdn.com/video/" + vimeoID + "_640.jpg"
        End If

    Catch ex As Exception

    End Try

End Sub
...