VB中的HTTP响应代码检查器?

时间:2014-07-21 00:00:15

标签: vb.net http networking response

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

类似的东西:

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

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

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

我试过了,这对我没有帮助。

任何人都有代码可以做到吗?

1 个答案:

答案 0 :(得分:2)

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