本帖最后由 holley 于 2024-5-15 10:51 编辑
通过网页脚本拼接,可以获取到火绒6公测版的3个下载地址分别为:
;~ http://www.huorong.cn/product/downloadHr60.php?pro=hr60&plat=arm64UrlAll
;~ http://www.huorong.cn/product/downloadHr60.php?pro=hr60&plat=x64UrlAll
;~ http://www.huorong.cn/product/downloadHr60.php?pro=hr60&plat=x86UrlAll
我使用IDM工具可以直接下载以上链接,,但在au里下载缺失败,请问是什么原因?
还有能否实现根据链接自适应下载?Local $sSRERe = _INetGetSource("http://www.huorong.cn/product/downloadHr60.php?pro=hr60&plat=x64UrlAll")
最新情况:已实现下载对应安装包,但实际使用上却不够直观,等待时间不定,能否请教一下,对于这种重定向下载链接,怎么实现进度条和文件大小或百分比显示?Local $sDownloadUrl
Switch @OSArch
Case "X86"
$sDownloadUrl = "http://www.huorong.cn/product/downloadHr60.php?pro=hr60&plat=x86UrlAll"
Case "X64"
$sDownloadUrl = "http://www.huorong.cn/product/downloadHr60.php?pro=hr60&plat=x64UrlAll"
Case "ARM"
$sDownloadUrl = "http://www.huorong.cn/product/downloadHr60.php?pro=hr60&plat=arm64UrlAll"
Case Else
MsgBox(0, "错误", "不支持的系统架构")
Quit()
EndSwitch
Urldown($sDownloadUrl)
Func Urldown($xUrl)
$oHTTP = ObjCreate("winhttp.WinHttpRequest.5.1")
$oHTTP.SetTimeouts(0, 0, 0, 0, 0)
$oHTTP.Option(6) = False
$oHTTP.Open("GET", $xUrl, True)
$oHTTP.Send()
$oHTTP.WaitForResponse()
$sLocation = $oHTTP.GetResponseHeader("Location")
If $sLocation <> "" Then
InetGet($sLocation, @ScriptDir & '\' & StringRegExpReplace($sLocation, '^.+/', ''))
EndIf
EndFunc ;==>Urldown
借助GPT,基本成型,还在优化,主题关闭!
|