易语言怎么取北京时间
就是想要一个标签能实时更新北京时间的那种，怎么写才能实现像网上搜索的那种实时更新效果（还有个问题这个时间是否一定要联网才能看到）
.版本 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保护结束标志