易语言6.3
一个大脑
打开易语言，建立启动窗口（注意不会使用的到网上找基础教程）
加入两个标签，两个编辑框。，一个按钮，如下图排列并改名（注意不会使用的到网上找基础教程）
双击启动窗口打开窗口程序集（注意不会使用的到网上找基础教程）
输入源码.版本 2.支持库 xplib.支持库 internetXP风格 (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) .如果真结束.判断循环尾 ()秒 ＝ 到文本 (到数值 (秒) ＋ 误差)日期时间 ＝ 现在日期 ＋ 小时 ＋ “时” ＋ 分钟 ＋ “分” ＋ 秒 ＋ “秒”置现行时间 (到时间 (日期时间))校准时间标签.标题 ＝ 日期时间处理事件 ()
点击运行测试（注意不会使用的到网上找基础教程）
（注意不会使用的到网上找基础教程）