|
发表于 2013-12-29 09:09:16
|
显示全部楼层
山东省德州市
[e]
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
显示时间 ()
.子程序 取北京时间, 日期时间型
.局部变量 局_返回数据, 文本型
.局部变量 局_起始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_取出字符, 文本型
.局部变量 局_字符长度, 整数型
局_返回数据 = 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
局_起始位置 = 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) + 取文本长度 (“window.baidu_time(”)
局_结束位置 = 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)
局_字符长度 = 局_结束位置 - 局_起始位置
局_取出字符 = 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))
.子程序 显示时间
编辑框1.内容 = 到文本 (取北京时间 ())
编辑框2.内容 = 到文本 (取现行时间 ())
.子程序 _按钮1_被单击
置现行时间 (取北京时间 ())
显示时间 ()
[/e]
上面这些代码就是同步网络时间的 编译出来在win7 管理员权限下无法调整。。。如果楼主找不到答案 就选我这个当最佳吧。。 |
|