觅风论坛

标题: 网络校时源码 [打印本页]

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

欢迎光临觅风论坛 (https://www.eyyba.com/)