怎样用易语言取网络文件长度源码

打开易语言程序，新建一个新程序

在自动建立的新窗口上，增加一个编辑框1，一个标签1，一个按按钮1，如下图

新建一个程序集1，输入如下内容：

.如果 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))

    http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)

    http.方法 (“open”, “HEAD”, url, 假)

    http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)

    http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)

    http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)

    http.方法 (“send”, )

    p ＝ http.读属性 (“status”, )

    .如果 (到整数 (p.取数值 ()) ＝ 200)

        p ＝ http.读属性 (“GetResponseHeader”, “Content-Length”)

        返回 (到整数 (p.取数值 ()))

    .否则

        返回 (-1)

    .如果结束

.否则

    返回 (-2)

.如果结束

再双击窗口1的按钮1进入窗口程序集1，输入如下内容

标签1.标题 ＝ “文件长度：” ＋ 到文本 (取网络文件长度 (编辑框1.内容))

最后保存文件。