Vb.net VB中的HTTP响应代码检查器？

我是VB的新手，我正在尝试制作一个 获取并显示网站的HTTP响应代码

比如：

目标网站www.example.com的http响应代码：200 OK

等等

我试着自己编写代码，但我做不到，我也试着在网上查找，但我没有 找到了一些有用的东西

我找到了这个

我试过了，但那对我没什么帮助

---

任何人都有这样的代码吗？

我是个C语言的人，所以这可能并不完美，但我相信这应该可以做到

Public Shared Function GetResponse(uri As String) As HttpStatusCode
    Dim req As HttpWebRequest = HttpWebRequest.CreateHttp(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

---

我是一个C类的人，所以这可能不是完美的，但我相信这应该做到

Public Shared Function GetResponse(uri As String) As HttpStatusCode
    Dim req As HttpWebRequest = HttpWebRequest.CreateHttp(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