取百度北京时间

 

百度最近把原来的取时间接口“ http://open.baidu.com/app?module=beijingtime”停了，现在在百度显示北京时间是直接在打开页面时返回时间戳记。如何取现在的时间看代码：

 
.版本 2
.支持库 internet

.子程序 取北京时间, 日期时间型, , 冷血封情取网络时间
.局部变量 局_返回数据, 文本型
.局部变量 局_起始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_取出字符, 文本型
.局部变量 局_字符长度, 整数型

局_返回数据 ＝ 到文本 (HTTP读文件 (“ http://open.baidu.com/special/time/”))
局_起始位置 ＝ 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) ＋ 取文本长度 (“window.baidu_time(”)
局_结束位置 ＝ 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)
局_字符长度 ＝ 局_结束位置 － 局_起始位置
局_取出字符 ＝ 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))