вызова HTTP веб-страницы в vb.net

Question

у меня есть этот код в моем vb.net приложения:

myHttpWebRequest = WebRequest.Create(url) 
       myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse) 
       If myHttpWebResponse.StatusCode = HttpStatusCode.OK Then 
        receivestream = myHttpWebResponse.GetResponseStream() 
        encode = System.Text.Encoding.GetEncoding("utf-8") 

        Dim readStream As New StreamReader(receivestream, encode) 
        response = readStream.ReadToEnd() 
        myHttpWebResponse.Close() 
        receivestream.Close() 
        readStream.Close() 

        TextBox1.Text = TextBox1.Text + DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss") + vbCrLf + "URL: " + url + vbCrLf + vbCrLf 
        'scroll to bottom 
        TextBox1.SelectionStart = TextBox1.Text.Length 
        TextBox1.ScrollToCaret() 
        Me.Refresh() 
       Else 
        TextBox1.Text = TextBox1.Text + "Could not contact server for: " + url + vbCrLf + vbCrLf 
        'scroll to bottom 
        TextBox1.SelectionStart = TextBox1.Text.Length 
        TextBox1.ScrollToCaret() 
        Me.Refresh() 
       End If 

иногда я получаю 500 internal server ошибки или 404 not found

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

приведенный выше код находится внутри цикла. как я могу просто пропустить этот цикл, если есть ошибка

Answer 1

Используйте попытку поймать вне своей петли и запишите свои ошибки. Вы можете выйти из цикла for с помощью простого ключевого слова Exit. Также вы можете реорганизовать свой код в один метод и просто выйти из него.