易语言取网络时间

易语言取网络时间 .版本 2 .支持库 RegEx .支持库 internet .程序集 窗口程序集1 .程序集变量 现在时间, 日期时间型 .子程序 获取时间, 日期时间型 .局部变量 ym, 文本型 .局部变量 o .局部变量 t .局部变量 time, 文本型 .局部变量 正则达式, 正则表达式 .局部变量 网络时间, 日期时间型 ym , 到文本 (HTTP读文件 (“;)) 正则表达式.创建 (“[0-9]{4}年[0-9]{1,2}月[0-9]{1,2}日”, ) 正则表达式.搜索 (ym, 1, ) 处理事件 () time , time ， 正则表达式.搜索 (ym, 1, ).取匹配文本 (ym, ) o , 寻找文本 (ym, “var hrs = ”, , 假) ， 10 t , 寻找文本 (ym, “;”, o, 假) time , time ， 取文本中间 (ym, o, t , o) ， “时” o , 寻找文本 (ym, “var min = ”, , 假) ， 10 t , 寻找文本 (ym, “;”, o, 假) time , time ， 取文本中间 (ym, o, t , o) ， “分” o , 寻找文本 (ym, “var sec = ”, , 假) ， 10 t , 寻找文本 (ym, “;”, o, 假) time , time ， 取文本中间 (ym, o, t , o) ， “秒” 返回 (到时间 (time)) .子程序 __启动窗口_创建完毕 现在时间 , 获取时间 () 现在时间 , 增减时间 (现在时间, 8, 1) 时钟1.时钟周期 , 1000 .子程序 _时钟1_周期事件 处理事件 () 现在时间 , 增减时间 (现在时间, 8, 1) 标签1.标题 , “网络时间:” ， 到文本 (现在时间) 标签2.标题 , “系统时间:” ， 到文本 (取现行时间 ())