我是VB的新手,我试图制作一个程序 获取并显示网站的HTTP响应代码。
类似的东西:
目标网站www.example.com的http响应代码:200 OK
等
我试图自己编码,但我不能,而且我也尝试在网上找到,但我没有 找到了有用的东西。
我发现了这个http://msdn.microsoft.com/en-us/library/system.net.httpwebresponse.statuscode(v=vs.110).aspx
我试过了,这对我没有帮助。
任何人都有代码可以做到吗?
答案 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