zoukankan      html  css  js  c++  java
  • 判断URL的HTTP状态

    代码
    Public Class TestExist
    Public Shared Function UrlExist(ByVal sURL As String) As Boolean
    Dim temp As Boolean = False

    Try
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(sURL), HttpWebRequest)
    'WebProxy proxy = new WebProxy("your proxy server", 8080);
    'request.Proxy = proxy;
    request.Method = "HEAD"
    request.AllowAutoRedirect
    = False
    Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)


    Select Case response.StatusCode
    Case HttpStatusCode.OK
    temp
    = True
    Exit Select
    Case HttpStatusCode.Moved
    temp
    = True
    Exit Select
    Case HttpStatusCode.NotFound
    temp
    = False
    Exit Select
    Case HttpStatusCode.MultipleChoices
    temp
    = True
    Exit Select
    Case HttpStatusCode.Ambiguous
    temp
    = True
    Exit Select
    Case HttpStatusCode.MovedPermanently
    temp
    = True
    Exit Select
    Case HttpStatusCode.Moved
    temp
    = True
    Exit Select
    Case HttpStatusCode.Found
    temp
    = True
    Exit Select
    Case HttpStatusCode.Redirect
    temp
    = True
    Exit Select
    Case HttpStatusCode.SeeOther
    temp
    = True
    Exit Select
    Case HttpStatusCode.RedirectMethod
    temp
    = True
    Exit Select
    Case HttpStatusCode.NotModified
    temp
    = True
    Exit Select
    Case HttpStatusCode.UseProxy
    temp
    = True
    Exit Select
    Case HttpStatusCode.Unused
    temp
    = True
    Exit Select
    Case HttpStatusCode.TemporaryRedirect
    temp
    = True
    Exit Select
    Case HttpStatusCode.RedirectKeepVerb
    temp
    = True
    Exit Select
    Case Else
    temp
    = False
    End Select
    response.Close()
    Catch ex As Exception
    temp
    = False
    End Try

    Return temp
    End Function
    End Class
  • 相关阅读:
    halcon中variation_model_single实例注释.
    vc 实现打印功能
    用VisualC++建立SOAP客户端应用(一)
    第六章
    OpenCV】透视变换 Perspective Transformation(续)
    第六章
    OpenCV仿射变换+投射变换+单应性矩阵
    【最新图文教程】WinCE5.0中文模拟器SDK(VS2008)的配置
    Visual Studio 2008 使用 WinCE 5.0 Emulator
    Win32 CMD批处理命令
  • 原文地址:https://www.cnblogs.com/LCX/p/1643138.html
Copyright © 2011-2022 走看看