易语言怎么取北京时间

更新时间2019-02-25 09:36:58

就是想要一个标签能实时更新北京时间的那种，怎么写才能实现像网上搜索的那种实时更新效果（还有个问题这个时间是否一定要联网才能看到）

.版本 2
.支持库 internet

.子程序取北京现在时间, 日期时间型, 公开, 取失败返回 1970.01.01 08:00:00
.参数取时间, 文本型, 可空
.参数获得时间, 日期时间型, 可空
.参数 X, 整数型, 可空

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
取时间＝到文本 (HTTP读文件 (“http://time.tianqi.com/”))
X ＝寻找文本 (取时间, “北京现在时间：”, , 真) ＋ 14
取时间＝取文本中间 (取时间, X, 寻找文本 (取时间, “。”, X, 真) － X)
获得时间＝增减时间 (到时间 (“1970.01.01 08:00:00”), #秒, 到数值 (取时间))
.如果真 (获得时间＝到时间 (“1970.01.01 08:00:00”))
取时间＝到文本 (HTTP读文件 (“https://www.immomo.com/login?action=captcha”))
取时间＝取文本右边 (取时间, 11)
取时间＝文本替换 (取时间, 取文本长度 (取时间), 1, “”)
获得时间＝增减时间 (到时间 (“1970.01.01 08:00:00”), #秒, 到数值 (取时间))

.如果真结束
.如果真 (获得时间＝到时间 (“1970.01.01 08:00:00”))
取时间＝到文本 (HTTP读文件 (“http://biaozhunshijian.51240.com/web_system/51240_com_www/system/file/biaozhunshijian/time.js/?/”))
取时间＝子文本替换 (取时间, #常量4, “”, , , 真)
取时间＝子文本替换 (取时间, #常量5, “”, , , 真)
获得时间＝增减时间 (到时间 (“1970.01.01 08:00:00”), #秒, 到数值 (取时间) ÷ 1000)
.如果真结束

返回 (获得时间)
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志