模拟  网址  浏览器  tag  兼容  fopen  show  虚线

您所在的位置:小祥子 » 编程 » ASP » 正文

ASP百度URL解密函数

时间:2015-01-24 编辑:佚名 来源:互联网

百度搜索某个关键词的时候,网址都是

http://www.baidu.com/link?url=I7O19OEcjRgBbuQY92o...

这种,后来想了个主意,直接让程序访问,得到访问后的地址,代码如下

Function GetTrueUrl(iUrl)
    'On Error Resume Next
    GetTrueUrl = ""
    Dim Http
    Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
    Http.Option(6)=0 '禁止自动跳转
    Http.SetTimeouts 5000, 5000, 30000, 5000 '设置超时
    Http.Open "GET", iUrl, False
    Http.Send
    If Http.Status=302 Then '查找跳转页面
        GetTrueUrl = Http.GetResponseHeader("Location")
    Else
        GetTrueUrl = iUrl
    End If
    Http.responseText
    Set Http=Nothing
End Function

关键词:解密 百度 URL