马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 2
.支持库 internet
.子程序 _按钮_网络校时_被单击
.局部变量 网络文本, 文本型
.局部变量 网络时间, 整数型
.局部变量 起, 整数型
.局部变量 止, 整数型
网络文本 ＝ 到文本 (HTTP读文件 (“http://time.tianqi.com/”))
起 ＝ 寻找文本 (网络文本, “now=new Date((”, , 真) ＋ 14
止 ＝ 寻找文本 (网络文本, “+i+”, 起, 真)
网络时间 ＝ 到数值 (取文本中间 (网络文本, 起, 止 － 起))
.如果 (网络时间 ＞ 1000000000 且 置现行时间 (增减时间 ([1970年1月1日8时], #秒, 网络时间)))
信息框 (“系统时间更新成功。”, #信息图标, “提示”, )
.否则
信息框 (“系统时间更新失败。”, #信息图标, “提示”, )
.如果结束
|
