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

.版本 2

.支持库 spec

.支持库 internet

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

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

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

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

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

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

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

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

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

返回 (时间)

.版本 2

.支持库 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] ＋ “秒”

返回 (时间)

如果是客户测试到服务端的延迟，那么可以在客户端加一个时钟组件和判断语句，具体就是当数据包发送过后马上开始计时，时钟周期设置为1,，因为时钟周期是毫秒计算，而1000毫秒等于一秒，然后到服务器返回数据时停止。。然后所得到的时间就是延迟。。

---