易语言制作电脑自动校准时间软件

打开易语言，建立启动窗口（注意不会使用的到网上找基础教程）

加入两个标签，两个编辑框。，一个按钮，如下图排列并改名（注意不会使用的到网上找基础教程）

双击启动窗口打开窗口程序集（注意不会使用的到网上找基础教程）

输入源码

.版本 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)

    .如果真结束

.判断循环尾 ()

秒 ＝ 到文本 (到数值 (秒) ＋ 误差)

日期时间 ＝ 现在日期 ＋ 小时 ＋ “时” ＋ 分钟 ＋ “分” ＋ 秒 ＋ “秒”

置现行时间 (到时间 (日期时间))

校准时间标签.标题 ＝ 日期时间

处理事件 ()

点击运行测试（注意不会使用的到网上找基础教程）