找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 如何不打开网页的情况下得到跳转网址的最后网址续 ...
返回列表 发新帖
查看: 4623|回复: 5

[系统综合] 如何不打开网页的情况下得到跳转网址的最后网址续

[复制链接]
sex123
发表于 2015-3-19 23:04:43 | 显示全部楼层 |阅读模式
原贴
http://www.autoitx.com/thread-44892-1-1.html
其中2楼和9楼给了答案，但是后来试了几个网址，如https类的，和location返回的不是完全长度的网址，比如以/开头，那么上述贱两种方法都失效了，请问，代码怎么优化才能适用所有的网址呢？
下面是失效后的代码：
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.12.0
 Author:         myName

 Script Function:
        Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#PRE_UseX64=n
#include <Array.au3>

Global $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Option(0) = "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; BOIE9;ZHCN)"

Dim $aU[1], $i = 0

Local $sU = "http://www.sciencemag.org/cgi/pmidlookup?view=long&pmid=9575084"

While $sU <> ""
        ReDim $aU[$i+1]
        $sU = get_location($sU)
        $aU[$i] = $sU
        $i += 1
WEnd

_ArrayDisplay($aU)
MsgBox(64, "", $aU[$i-2])

Func get_location($sUrl, $sRef = "")
        Local $sBody, $aMatch, $sReferer
        $oHTTP.Option(6) = False
        $oHTTP.Open("HEAD", $sUrl, True)
        If $sRef <> "" Then $oHTTP.setRequestHeader("Referer", $sRef)
        $oHTTP.Send()
        $oHTTP.WaitForResponse(-1)

        $sUrl = $oHTTP.getResponseHeader("Location")
        Return $sUrl
EndFunc
如何, 网页

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
sex123
 楼主| 发表于 2015-3-20 12:37:08 | 显示全部楼层
http://www.jimmunol.org/cgi/pmidlookup?view=long&pmid=5838756
这个地址也是跳转很多次，中间出现location不全的现象，我自已试着写一个通用的吧。
回复

举报

sex123
 楼主| 发表于 2015-3-20 17:49:26 | 显示全部楼层
本帖最后由 sex123 于 2015-3-20 17:59 编辑

我自已试着写了写，感觉可以应对大部分的跳转网址了，以后如果再有问题，再改一改就差不多了，不知道这个代码怎么做成udf。

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.12.0
 Author:         myName

 Script Function:
        Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#PRE_UseX64=n
#include <Array.au3>

Global $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Option(0) = "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; BOIE9;ZHCN)"
;Local $sU = "http://www.sciencemag.org/cgi/pmidlookup?view=long&pmid=9575084"
local $sU = "http://www.jimmunol.org/cgi/pmidlookup?view=long&pmid=5838756"
;local $sU = "http://joi.jlc.jst.go.jp/DN/JST.JSTAGE/circj/CJ-13-1103?from=PubMed"
;local $sU = "http://dx.doi.org/10.5692/clinicalneurol.54.1171"
;Local $sU = "http://www.baidu.com"
;Local $sU =  "http://dx.doi.org/10.1038/ni.2417"


Local $sUarray[0]
Local $sUtimes=0
Local $sUori =$sU
While $sU <>""

Dim $aU[1], $i = 0



While $sU <> ""
        ReDim $aU[$i+1]
        $sU = _get_location($sU)
        $aU[$i] = $sU
        $i += 1
WEnd
If $i> 1 Then
;_ArrayDisplay($aU)
;MsgBox(64, "i", $i)
;MsgBox(64, "aui-2", $aU[$i-2])
$lasturl=$aU[$i-2]
$sU=$lasturl
if StringInStr($lasturl, "://")=0 and $i >2 Then
   $domainurl=$aU[$i-3]
   $domain=_get_domain($domainurl)
  ; MsgBox(0,"domain",$domain)
  if StringLeft($lasturl,1)<>"/" then $lasturl="/"&$lasturl
   $addurl=$domain&$lasturl
   $sU=$addurl
 ;  MsgBox(0,"sU",$sU)
EndIf
EndIf
_ArrayAdd($sUarray, $sU)
$sUtimes+=1
WEnd
;MsgBox(0,"final",$sU)
;_ArrayDisplay($sUarray)
;MsgBox(0,"sutime",$sUtimes)
$allurlubound=UBound($sUarray)
if $allurlubound >1 Then
$finalurl=$sUarray[$allurlubound-2]
Else
   $finalurl=$sUori
   EndIf
MsgBox(0,"Finalurl",$finalurl)


Func _get_location($sUrl, $sRef = "")
        Local $sBody, $aMatch, $sReferer
        $oHTTP.Option(6) = False
        $oHTTP.Open("HEAD", $sUrl, True)
        If $sRef <> "" Then $oHTTP.setRequestHeader("Referer", $sRef)
        $oHTTP.Send()
        $oHTTP.WaitForResponse(-1)

        $sUrl = $oHTTP.getResponseHeader("Location")
        Return $sUrl
         EndFunc
Func _get_domain($hwUrl)
        $sUrl = StringSplit($hwUrl, "/")
        ;_ArrayDisplay($surl)
        $surlbound = UBound($sUrl)
        ;MsgBox(0, 0, $surlbound)
        If $surlbound > 4 Then
                ;_ArrayDisplay($surlbound)
                $surltop = $sUrl[1] & "//" & $sUrl[3]
        Else
                $surltop = $sU
        EndIf
        Return $surltop
EndFunc   ;==>_get_domain
回复

举报

qqgghh1
发表于 2015-3-20 17:57:44 | 显示全部楼层
thanks for sharing，marked
回复

举报

lxwlxwayy
发表于 2015-3-21 14:00:50 | 显示全部楼层
邦你顶
回复

举报

sex123
 楼主| 发表于 2015-3-22 17:19:53 | 显示全部楼层
我又把这个功能改成自定义func了，而且去掉了ARRAY.AU3，加了sleep，防封ip，应该还可以精简代码，但是自已不会了。先记录一下吧。

#Region
#AccAu3Wrapper_Icon=                                                                                ;程序图标
#AccAu3Wrapper_UseX64=n                                                                                ;是否编译为64位程序(y/n)
#AccAu3Wrapper_OutFile=                                                                                ;输出的Exe名称
#AccAu3Wrapper_OutFile_x64=                                                                        ;64位输出的Exe名称
#AccAu3Wrapper_UseUpx=n                                                                                ;是否使用UPX压缩(y/n) 注:开启压缩极易引起误报问题
#AccAu3Wrapper_Res_Comment=                                                                        ;程序注释
#AccAu3Wrapper_Res_Description=                                                                ;程序描述
#AccAu3Wrapper_Res_Fileversion=1.0.0.1                                                ;文件版本
#AccAu3Wrapper_Res_FileVersion_AutoIncrement=n                                ;自动更新版本 y/n/p=自动/不自动/询问
#AccAu3Wrapper_Res_ProductVersion=1.0                                                ;产品版本
#AccAu3Wrapper_Res_Language=2052                                                        ;资源语言, 英语=2057/中文=2052
#AccAu3Wrapper_Res_LegalCopyright=                                                        ;程序版权
#AccAu3Wrapper_Res_RequestedExecutionLevel=                                        ;请求权限: None/asInvoker/highestAvailable/requireAdministrator
#AccAu3Wrapper_Res_Field=Au3.Cc|Au3编程学习网                                ;自定义资源段, 格式: [名称]|[值]
#AccAu3Wrapper_Run_Tidy=y                                                                        ;编译前自动整理脚本(y/n)
#AccAu3Wrapper_Run_Obfuscator=y                                                                ;启用脚本加密(y/n)
#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=1        ;脚本加密参数: 0/1不加密/加密, /cs字符串 /cn数字 /cf函数名 /cv变量名 /sf精简函数 /sv精简变量
#AccAu3Wrapper_DBSupport=y                                                                        ;使字符串加密支持双字节字符(y/n) <- 可对中文字符等实现字符串加密
#AccAu3Wrapper_AntiDecompile=y                                                                ;是否启用防反功能(y/n) <- 简单防反, 用于应对傻瓜式反编译工具
#EndRegion

#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

        欢迎使用 AutoIt v3 中文版 !

        Au3编程资源网:  http://au3.net/
        Au3编程学习网:  http://au3.cc/
        Au3编程博客:    http://au3.me/

        Au3版本:        3.3.12.0
        脚本作者:
        脚本功能:
        更新日志:
        联系方式:

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

#cs ----------------------------------------------------------------------------

        AutoIt Version: 3.3.12.0
        Author:         myName

        Script Function:
        Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#PRE_UseX64=n
;#include <Array.au3>


;Local $sU = "http://www.sciencemag.org/cgi/pmidlookup?view=long&pmid=9575084"
Local $sU = "http://www.jimmunol.org/cgi/pmidlookup?view=long&pmid=5838756"
;Local $sU = "http://joi.jlc.jst.go.jp/DN/JST.JSTAGE/circj/CJ-13-1103?from=PubMed"
;local $sU = "http://dx.doi.org/10.5692/clinicalneurol.54.1171"
;Local $sU = "http://www.baidu.com"
;Local $sU = "http://dx.doi.org/10.1038/ni.2417"
$finalurl = _posturl($sU)
MsgBox(0, "Finalurl", $finalurl)

Func _posturl($sU)
        Global $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
        $oHTTP.Option(0) = "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; BOIE9;ZHCN)"
        ;Local $sUarray[0]
        Local $sUAll = ""
        Local $sUtimes = 0
        Local $sUori = $sU
        While $sU <> ""

                Dim $aU[1], $i = 0



                While $sU <> ""
                        ReDim $aU[$i + 1]
                        $sU = _get_location($sU)
                        $aU[$i] = $sU
                        $i += 1
                        Sleep(500);防网址封ip，延迟时间自定
                WEnd
                If $i > 1 Then
                        ;_ArrayDisplay($aU)
                        ;MsgBox(64, "i", $i)
                        ;MsgBox(64, "aui-2", $aU[$i-2])
                        $lasturl = $aU[$i - 2]
                        $sU = $lasturl
                        If StringInStr($lasturl, "://") = 0 And $i > 2 Then
                                $domainurl = $aU[$i - 3]
                                $domain = _get_domain($domainurl)
                                ; MsgBox(0,"domain",$domain)
                                If StringLeft($lasturl, 1) <> "/" Then $lasturl = "/" & $lasturl
                                $addurl = $domain & $lasturl
                                $sU = $addurl
                                ;  MsgBox(0,"sU",$sU)
                        EndIf
                EndIf
                ;_ArrayAdd($sUarray, $sU)
                $sUAll = $sUAll & @CRLF & $sU
                $sUtimes += 1
        WEnd
        ;MsgBox(0,"final",$sU)
        ;_ArrayDisplay($sUarray)
        ;MsgBox(0, "sutime", $sUtimes)
        ;MsgBox(0, "sUAll", $sUAll)
        $finalurlarray = StringSplit($sUAll, @CRLF, 1)
        $uboundfinalurl = UBound($finalurlarray)
        ;MsgBox(0, "uboundfinalurl", $uboundfinalurl)
        ;_ArrayDisplay($finalurlarray)
        If IsArray($finalurlarray) = 1 Then
                If $uboundfinalurl > 3 Then
                        $finalurl = $finalurlarray[$uboundfinalurl - 2]
                Else
                        $finalurl = $sUori
                EndIf
                
                
        Else
                MsgBox(0, "wrong", "posturlwrong")
        EndIf
        ;$allurlubound = UBound($sUarray)
        ;If $allurlubound > 1 Then
        ;$finalurl = $sUarray[$allurlubound - 2]
        ;Else
        ;        $finalurl = $sUori
        ;EndIf
        Return $finalurl
EndFunc   ;==>_posturl

Func _get_location($sUrl, $sRef = "")
        Local $sBody, $aMatch, $sReferer
        $oHTTP.Option(6) = False
        $oHTTP.Open("HEAD", $sUrl, True)
        If $sRef <> "" Then $oHTTP.setRequestHeader("Referer", $sRef)
        $oHTTP.Send()
        $oHTTP.WaitForResponse(-1)

        $sUrl = $oHTTP.getResponseHeader("Location")
        Return $sUrl
EndFunc   ;==>_get_location
Func _get_domain($hwUrl)
        $sUrl = StringSplit($hwUrl, "/")
        ;_ArrayDisplay($surl)
        $surlbound = UBound($sUrl)
        ;MsgBox(0, 0, $surlbound)
        If $surlbound > 4 Then
                ;_ArrayDisplay($surlbound)
                $surltop = $sUrl[1] & "//" & $sUrl[3]
        Else
                $surltop = $sU
        EndIf
        Return $surltop
EndFunc   ;==>_get_domain
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-17 16:43 , Processed in 0.075136 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表