网络校时源码
.版本 2.支持库 internet
.子程序 _按钮_网络校时_被单击
.局部变量 网络文本, 文本型
.局部变量 网络时间, 整数型
.局部变量 起, 整数型
.局部变量 止, 整数型
网络文本 ＝ 到文本 (HTTP读文件 (“http://time.tianqi.com/”))
起 ＝ 寻找文本 (网络文本, “now=new Date((”, , 真) ＋ 14
止 ＝ 寻找文本 (网络文本, “+i+”, 起, 真)
网络时间 ＝ 到数值 (取文本中间 (网络文本, 起, 止 － 起))
.如果 (网络时间 ＞ 1000000000 且 置现行时间 (增减时间 (, #秒, 网络时间)))
信息框 (“系统时间更新成功。”, #信息图标, “提示”, )
.否则
信息框 (“系统时间更新失败。”, #信息图标, “提示”, )
.如果结束
页:
[1]