易语言获取网络

易语言获取网络文件正常20230315

.版本 2
.支持库 internet
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 网络时间, 文本型
.局部变量 时间前, 整数型
.局部变量 时间后, 整数型
.局部变量 取出时间, 文本型
.局部变量 剩余时间, 文本型
.局部变量 时间, 日期时间型
.局部变量 增加后时间, 日期时间型

网络时间 ＝ 编码_utf8到gb2312 (到文本 (HTTP读文件 (“‘网址”)))
调试输出 (网络时间)
时间前 ＝ 寻找文本 (网络时间, “’字符后”, , 假) ＋ 15
' 调试输出 (时间前)
时间后 ＝ 寻找文本 (网络时间, “字符前”, 时间前, 假)

取出时间 ＝ 取文本中间 (网络时间, 时间前, 时间后 － 时间前)

' 调试输出 (取出时间)

.如果 (取出时间 ≥ “2022-02-10 23:14:31”)
    ' 输出调试文本 (“超时”)
.否则

.如果结束