я получаю ошибку 404 в моем httpwebresponse, что я делаю, это то, что я извлекаю данные из JSON URL-адреса с помощью цикла каждый раз, когда он вводит новый URL-адрес,
так что мой цикл похож на этот textbox6.text каждый раз, когда он дает значение +1, допустим, что я начал с 550, он продолжается как 551 552 553 и т. Д., Если мой я достигну числа с URL без ответа, программа выдаст 440 ошибка (сбой) я хочу сделать это утверждение
Dim response As HttpWebResponse = request.GetResponse()
, чтобы сделать это в IF, и если веб-сайт не отвечает, он должен сделать textbox6.text = textbox6.text +1, иначе он ничего не делает
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
Dim uristring As String = ("https://api.themoviedb.org/3/movie/" + TextBox6.Text + "?api_key=315b4646c080bc576529769498ccc658")
Dim uri As New Uri(uristring)
Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
request.Method = "get"
Dim response As HttpWebResponse = request.GetResponse()
Dim read = New StreamReader(response.GetResponseStream)
Dim rawresp As String = read.ReadToEnd()
Dim jsonResulttodict = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(rawresp)
Dim imdb_ID = jsonResulttodict.Item("imdb_id")
TextBox3.Text = imdb_ID
End Sub