易语言制作电脑自动校准时间软件
1、打开易语言，建立启动窗口（注意不会使用的到网上找基础教程）
2、加入两个标签，两个编辑框。，一个按钮，如下图排列并改名（注意不会使用的到网上找基础教程）
3、双击启动窗口打开窗口程序集（注意不会使用的到网上找基础教程）
4、输入源码
.版本 2
.支持库 xplib
.支持库 internet
XP风格 (1)
系统时间标签.标题 ＝ 到文本 (取现行时间 ())
.子程序 _按钮自动更新_被单击
按钮自动更新.禁止 ＝ 真
.变量循环首 (1, 3, 1, )
自动更新时间 ()
.变量循环尾 ()
' 自动更新时间 ()
按钮自动更新.禁止 ＝ 假
.子程序 自动更新时间
.局部变量 网络文本, 文本型
.局部变量 时间数组, 文本型, , "0"
.局部变量 临时数组, 文本型, , "0"
.局部变量 现在日期, 文本型
.局部变量 日期时间, 文本型
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
.局部变量 秒, 文本型
.局部变量 n, 整数型
.局部变量 误差, 整数型, , , 误差的秒数
系统时间标签.标题 ＝ 到文本 (取现行时间 ())
n ＝ 取启动时间 ()
网络文本 ＝ 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))
.如果真 (网络文本 ＝ “”)
自动更新时间 ()
.如果真结束
时间数组 ＝ 分割文本 (网络文本, “document.write('”, )
.如果真 (取数组成员数 (时间数组) ＜ 2)
信息框 (“取时间失败！”, 0, )
返回 ()
.如果真结束
临时数组 ＝ 分割文本 (时间数组 [3], “')”, )
现在日期 ＝ 临时数组 [1]
临时数组 ＝ 分割文本 (时间数组 [6], “;”, )
小时 ＝ 删全部空 (取文本右边 (临时数组 [6], 取文本长度 (临时数组 [6]) － 寻找文本 (临时数组 [6], “=”, , 假)))
分钟 ＝ 删全部空 (取文本右边 (临时数组 [7], 取文本长度 (临时数组 [7]) － 寻找文本 (临时数组 [7], “=”, , 假)))
秒 ＝ 删全部空 (取文本右边 (临时数组 [8], 取文本长度 (临时数组 [8]) － 寻找文本 (临时数组 [8], “=”, , 假)))
误差 ＝ (取启动时间 () － n) ÷ 1000
.如果真 (误差 ＜ 0.5)
误差 ＝ 0
.如果真结束
.如果真 (误差 ≥ 300)
_按钮自动更新_被单击 ()
.如果真结束
.判断循环首 (误差 ＞ 60)
分钟 ＝ 到文本 (到数值 (分钟) ＋ 误差 ＼ 60)
秒 ＝ 到文本 (到数值 (秒) ＋ 误差 ％ 60)
.如果真 (到数值 (分钟) ＞ 60)
小时 ＝ 到文本 (到数值 (分钟) ＋ 1)
分钟 ＝ 到文本 (到数值 (分钟) － 60)
.如果真结束
.如果真 (到数值 (秒) ≥ 60)
分钟 ＝ 到文本 (到数值 (分钟) ＋ 1)
秒 ＝ 到文本 (到数值 (秒) － 60)
.如果真结束
.判断循环尾 ()
秒 ＝ 到文本 (到数值 (秒) ＋ 误差)
日期时间 ＝ 现在日期 ＋ 小时 ＋ “时” ＋ 分钟 ＋ “分” ＋ 秒 ＋ “秒”
置现行时间 (到时间 (日期时间))
校准时间标签.标题 ＝ 日期时间
处理事件 ()
5、点击运行测试（注意不会使用的到网上找基础教程）
