Question

请问，易语言编程中如何取网络现行时间啦?请高手告诉小弟一下吧。

Answer 1

.版本 2
.支持库 internet

.子程序 取网络时间
.局部变量 网页文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 日期临时, 文本型, , "0"
.局部变量 时间临时, 文本型, , "0"
.局部变量 时间, 文本型
.局部变量 现在时间, 日期时间型

网页文本 ＝ 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))
文本数组 ＝ 分割文本 (网页文本, “服务器时间:”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
标签1.标题 ＝ “取网络时间失败！”
返回 ()
.如果真结束
网页文本 ＝ 文本数组 [2]
文本数组 ＝ 分割文本 (网页文本, “document.write('”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
标签1.标题 ＝ “取网络时间失败！”
返回 ()
.如果真结束
日期临时 ＝ 分割文本 (文本数组 [3], “')”, )
时间 ＝ 日期临时 [1]
日期临时 ＝ 分割文本 (文本数组 [6], “var hrs = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1]
日期临时 ＝ 分割文本 (文本数组 [6], “var min = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1]
日期临时 ＝ 分割文本 (文本数组 [6], “var sec = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1]
现在时间 ＝ 到时间 (时间)