url 检查器 VBA，重定向时显示重定向的 url

使用VBA编写的URL检查器可以帮助我们验证一个URL是否存在重定向，并且能够显示重定向后的URL地址。这个工具对于网站开发者和测试人员来说非常有用，因为它可以帮助他们确保网站的重定向功能正常工作。

vba
Sub CheckRedirectURL()
    Dim url As String
    Dim xmlhttp As Object
    
    url = "https://www.example.com"
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    xmlhttp.Open "GET", url, False
    xmlhttp.send
    
    ' 检查状态码和重定向地址
    If xmlhttp.Status = 301 Or xmlhttp.Status = 302 Then
        MsgBox "存在重定向，重定向后的URL地址为：" & xmlhttp.getResponseHeader("Location")
    Else
        MsgBox "URL不存在重定向"
    End If
    
    Set xmlhttp = Nothing
End Sub

vba
Sub CheckProductRedirect()
    Dim productUrl As String
    Dim redirectUrl As String
    Dim xmlhttp As Object
    
    productUrl = "https://www.example.com/products/123"
    redirectUrl = "https://www.example.com/product-out-of-stock"
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    xmlhttp.Open "GET", productUrl, False
    xmlhttp.send
    
    ' 检查状态码和重定向地址
    If xmlhttp.Status = 301 Or xmlhttp.Status = 302 Then
        If xmlhttp.getResponseHeader("Location") = redirectUrl Then
            MsgBox "重定向功能正常工作"
        Else
            MsgBox "重定向功能存在问题"
        End If
    Else
        MsgBox "URL不存在重定向"
    End If
    
    Set xmlhttp = Nothing
End Sub