Как проверить код ответа нескольких веб-сайтов? - PullRequest
Новая
       7

Как проверить код ответа нескольких веб-сайтов?

1 голос
/ 02 августа 2020

Я новичок в VB и пытаюсь создать программу, которая получает и отображает код ответа HTTP для нескольких веб-сайтов.

что-то вроде: 

http response code of target website www.example.com : 200 OK 
http response code of target website www.abc2.com : 405 Method Not Allowed
http response code of target website www.testing2.com : 404 Not Found
http response code of target website www.last23.com : 408 RequestTimeout

et c.

Я сам пытался его закодировать, но не смог. Я также пытался найти в Интернете, но не нашел ничего, что работает.

Я нашел этот код но я думаю, что мне нужен al oop, чтобы проверить несколько сайтов, вы можете мне с этим помочь? как создать l oop и проверить код состояния для нескольких веб-сайтов 

  Public Shared Function GetResponse(uri As String) As HttpStatusCode

    Dim req As HttpWebRequest = WebRequest.Create(uri)
    Dim resp As HttpWebResponse
    Try
        resp = DirectCast(req.GetResponse(), HttpWebResponse)
    Catch ex As WebException
        resp = DirectCast(ex.Response, HttpWebResponse)
    End Try

    Return resp.StatusCode
End Function

1 Ответ

2 голосов
/ 03 августа 2020

Используя функцию GetResponse, которую вы уже использовали, это довольно просто 

Dim sites as new List(of String)
sites.Add("www.example.com")
sites.Add("www.abc2.com")
sites.Add("www.testing2.com")
sites.Add("www.last23.com")

For Each site As String In sites
    Dim siteResponse as String = GetResponse(site)
    Console.WriteLine("http response code of target website " & site & " " & siteResponse)
Next

Это просто не в моей голове, так что в нем может быть пара оплошностей

...