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

Question

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

类似于:

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

等等

我试着自己编码但我不能，我也试图在网上找到但我没有找到了有用的东西。

我找到了这个http://msdn.microsoft.com/en-us/library/system.net.httpwebresponse.statuscode(v=vs.110).aspx

我试过了，但并没有真正帮助我。

有人有代码吗？

Answer 1

我是一名 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