Get 从Vimeo获取不带API的img缩略图

试图从vimeo视频播放器ID中刮取缩略图，但未得到任何响应或错误代码。 我知道有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

---

好的，我修正了一些事情，这是正确的，我希望：）

---

请提供一个和您得到的错误。如果没有这些，帮助你的另一半真的很难找到解决办法

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