美文网首页「河许人」AutohotkeyAHK编程语言爱好者
[基础] 如何在 AHK 下载网络内容到文件或变量

[基础] 如何在 AHK 下载网络内容到文件或变量

作者: 陌辞寒 | 来源:发表于2016-04-30 08:35 被阅读332次

    现在早已是网络时代了,完全单机而不需要联网的软件很少了。某些时候,用 AHK 写个脚本也是需要去网络获取数据的。

    下载网络内容到本地文件

    有些时候我们需要把一个网页、图片、音频等文件下载到本地,再做后续处理。在其他编程语言可能就比较麻烦了,比如先下载网络内容到一个字符串变量,然后创建一个文件,将字符串写入,再保存文件。而 AHK 内置的 UrlDownloadToFile 命令就是为这个场景量身定做的。

    UrlDownloadToFile, URL, Filename
    

    可以看到,这个命令的用法非常简单,第一个参数是文件的网络地址,第二个参数是文件的本地地址。如果第二个参数不是完整路径,文件会被下载到当前脚本的工作目录,一般情况就是脚本自身的目录。

    比如我想下载 AHK 官网的 Logo 图片到 C:\test.png,就可以这样:

    UrlDownloadToFile, http://ahkscript.org/logos/ahk_logo.png, C:\test.png
    

    是不是非常简单。除了 HTTP,UrlDownloadToFile 还支持 HTTPS 和 FTP 协议。

    下载网络内容到字符串变量

    但有些情况,我们并不需要将网络内容保存到文件里,而是直接使用,比如直接显示在控件里。虽然也可以先写到文件再读出来,但这样做不仅多此一举,有额外的开销,还需要考虑共用临时文件、临时文件没被删除等问题。

    AHK 并没有命令可以直接将网络内容下载到字符串变量,但可以使用 COM 对象 WinHttp.WinHttpRequest.5.1,官方文档中有一个例子,用起来倒也不是很麻烦。

    whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    ; Open() 的第三个参数代表同步或者异步,现在不用过多关注,true 就可以了
    ; 以后我们会仔细了解同步和异步
    whr.Open("GET", "https://autohotkey.com/download/1.1/version.txt", true)
    whr.Send()
    whr.WaitForResponse()
    version := whr.ResponseText
    MsgBox, % version
    

    这样就可以用 MsgBox 将从网络获取到的一个字符串弹出来了。但比起 UrlDownloadToFile 还是麻烦了不少,如果需要经常使用,还是很不方便的,这就需要封装成一个函数来使用,比如这样:

    UrlDownloadToVar(url)
    {
        static whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
        whr.Open("GET", url, true)
        whr.Send()
        whr.WaitForResponse()
        return whr.ResponseText
    }
    

    和刚才的代码差不多,但我这里 whr 是 static 类型的,因为只需要初始化一次就可以了,调用 ComObjCreate() 是有开销的。

    但有些时候我们并不只需要传入一个 URL,可以还包含一些 HTTP Headers,而且使用 POST 方式访问,这就需要再改造下这个函数,比如这样:

    UrlDownloadToVar(url, headers = "")
    {
        static whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
        whr.Open("POST", url, true)
    
        if (headers != "")
        {
            for key, value in headers
            {
                whr.SetRequestHeader(key, value)
            }
        }
    
        whr.Send()
        whr.WaitForResponse()
        return whr.ResponseText
    }
    

    用起来也很方便,比如我要使用 POST 方式访问 test.org,携带两个 HTTP Headers,key1:value1 和 key2:value2:

    result := UrlDownloadToVar("http://test.org"
        , { "key1" : "value1", "key2" : "value2" })
    

    如果需要设置更多参数,比如超时时间,就需要查下 WinHttp.WinHttpRequest.5.1 的文档了,基本上都可以找到自己想要的功能。

    付费解决 Windows、Linux、Shell、C、C++、AHK、Python、JavaScript、Lua 等领域相关问题,灵活定价,欢迎咨询,微信 ly50247。

    相关文章

      网友评论

      • SCLXRo:实际还要考虑乱码问题。
        DownloadToString("http://XXX", "cp936")
        ; 具体数值,请查看 fileEncoding
        DownloadToString(url, encoding="utf-8")
        {
        static a := "AutoHotkey/" A_AhkVersion
        if (!DllCall("LoadLibrary", "str", "wininet") || !(h := DllCall("wininet\InternetOpen", "str", a, "uint", 1, "ptr", 0, "ptr", 0, "uint", 0, "ptr")))
        return 0
        c := s := 0, o := ""
        if (f := DllCall("wininet\InternetOpenUrl", "ptr", h, "str", url, "ptr", 0, "uint", 0, "uint", 0x80003000, "ptr", 0, "ptr"))
        {
        while (DllCall("wininet\InternetQueryDataAvailable", "ptr", f, "uint*", s, "uint", 0, "ptr", 0) && s>0)
        {
        VarSetCapacity(b, s, 0)
        DllCall("wininet\InternetReadFile", "ptr", f, "ptr", &b, "uint", s, "uint*", r)
        o .= StrGet(&b, r>>(encoding="utf-16"||encoding="cp1200"), encoding)
        }
        DllCall("wininet\InternetCloseHandle", "ptr", f)
        }
        DllCall("wininet\InternetCloseHandle", "ptr", h)
        return o
        }
        陌辞寒:@greatYear 谢谢
      • a6b6a0060267:有的会被删掉,有的不会,现在不使用这个了,直接将文件地址保存到lst文件,调用迅雷下载
      • a6b6a0060267:请教:使用urldownloadtofile,下载的文件会被自动删除,是什么原因?怎么解决?
        陌辞寒:@波破魔佛 没遇到过,换个路径试试呢?

      本文标题:[基础] 如何在 AHK 下载网络内容到文件或变量

      本文链接:https://www.haomeiwen.com/subject/gtdkrttx.html