易语言怎么获取京东服务器时间返回文本的代码

.支持库 spec

.支持库 internet

调试输出 (时间_取北京时间 ())

置现行时间 (时间_取北京时间 ())

.子程序 时间_取北京时间, 日期时间型, 公开, 联网取北京时间

.局部变量 返回文本, 文本型

.局部变量 取出的时间, 文本型

.局部变量 时间, 日期时间型

返回文本 ＝ 到文本 (HTTP读文件 (“https://gss0.baidu.com/8aQDcnSm2Q5IlBGlnYG/special/time/”))

取出的时间 ＝ 文本_取出中间文本 (返回文本, “window.baidu_time(”, “)”)

时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 到数值 (取出的时间) ÷ 1000)

返回 (时间)

.支持库 internet

.子程序 取网络时间, 文本型, 公开, 成功返回一个时间文本失败反回 “”

.局部变量 网页文本, 文本型

.局部变量 文本数组, 文本型, , "0"

.局部变量 日期临时, 文本型, , "0"

.局部变量 时间临时, 文本型, , "0"

.局部变量 时间, 文本型

处理事件 ()

网页文本 ＝ 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))

文本数组 ＝ 分割文本 (网页文本, “服务器时间:”, )

.如果真 (取数组成员数 (文本数组) ＜ 2)

返回 (“”)

.如果真结束

网页文本 ＝ 文本数组 [2]

文本数组 ＝ 分割文本 (网页文本, “document.write('”, )

.如果真 (取数组成员数 (文本数组) ＜ 2)

返回 (“”)

.如果真结束

日期临时 ＝ 分割文本 (文本数组 [3], “')”, )

时间 ＝ 日期临时 [1]

日期临时 ＝ 分割文本 (文本数组 [6], “var hrs = ”, )

时间临时 ＝ 分割文本 (日期临时 [2], “”, )

时间 ＝ 时间 ＋ 时间临时 [1] ＋ “时”

日期临时 ＝ 分割文本 (文本数组 [6], “var min = ”, )

时间临时 ＝ 分割文本 (日期临时 [2], “”, )

时间 ＝ 时间 ＋ 时间临时 [1] ＋ “分”

日期临时 ＝ 分割文本 (文本数组 [6], “var sec = ”, )

时间临时 ＝ 分割文本 (日期临时 [2], “”, )

时间 ＝ 时间 ＋ 时间临时 [1] ＋ “秒”

返回 (时间)