精易论坛
标题:
网络校时源码
[打印本页]
作者:
bosket
时间:
2016-5-16 12:12
标题:
网络校时源码
本帖最后由 bosket 于 2016-5-16 12:13 编辑
软件原来一直用百度的网络时间来校准电脑时间,但百度关了,百度也是说关就关,和快盘一样。
http://open.baidu.com/special/time/
找到这个http://time.tianqi.com/
子程序名
返回值类型
公开
备 注
_按钮_网络校时_被单击
变量名
类 型
静态
数组
备 注
网络文本
文本型
网络时间
整数型
起
整数型
止
整数型
网络文本 =
到文本
(
HTTP读文件
(
“http://time.tianqi.com/”
)
)
起 =
寻找文本
(
网络文本,
“now=new Date((”
, ,
真
)
+ 14
止 =
寻找文本
(
网络文本,
“+i+”
, 起,
真
)
网络时间 =
到数值
(
取文本中间
(
网络文本, 起, 止 - 起
)
)
如果
(
网络时间 > 1000000000
且
置现行时间
(
增减时间
(
[
1970年1月1日8时
]
,
#秒,
网络时间
)
)
)
信息框
(
“系统时间更新成功。”
,
#信息图标,
“提示”
,
)
信息框
(
“系统时间更新失败。”
,
#信息图标,
“提示”
,
)
i
支持库列表
支持库注释
internet
互联网支持库
.版本 2
.支持库 internet
.子程序 _按钮_网络校时_被单击
.局部变量 网络文本, 文本型
.局部变量 网络时间, 整数型
.局部变量 起, 整数型
.局部变量 止, 整数型
网络文本 = 到文本 (HTTP读文件 (“http://time.tianqi.com/”))
起 = 寻找文本 (网络文本, “now=new Date((”, , 真) + 14
止 = 寻找文本 (网络文本, “+i+”, 起, 真)
网络时间 = 到数值 (取文本中间 (网络文本, 起, 止 - 起))
.如果 (网络时间 > 1000000000 且 置现行时间 (增减时间 ([1970年1月1日8时], #秒, 网络时间)))
信息框 (“系统时间更新成功。”, #信息图标, “提示”, )
.否则
信息框 (“系统时间更新失败。”, #信息图标, “提示”, )
.如果结束
作者:
BigBoss007
时间:
2016-5-16 12:15
我都无语了,校时很难吗?没有一点技术含量,怎么这么多人发啊
作者:
bosket
时间:
2016-5-16 12:19
qq331607639 发表于 2016-5-16 12:15
我都无语了,校时很难吗?没有一点技术含量,怎么这么多人发啊
我是初学者,请指教。
作者:
xiuzeli
时间:
2016-5-16 13:35
加油
作者:
bosket
时间:
2016-5-16 15:08
我的软件需要的不是精确校时,需要精确校时的朋友可以使用NTP校时。附参考源码:
NTP校时.rar
(4.62 KB, 下载次数: 58)
2016-5-16 15:07 上传
点击文件名下载附件
NTP校时
下载积分: 精币 -2 枚
作者:
chenxi
时间:
2016-5-16 16:08
看好你,假以时日你定将成为一方大牛,继续加油
作者:
轩如梦
时间:
2016-5-16 16:25
未来大牛,支持你。
作者:
chenyaohui
时间:
2016-5-25 17:37
6666666666666666666666
作者:
chenyaohui
时间:
2016-5-25 17:37
666666666666666666666
作者:
czg108
时间:
2019-1-28 22:54
ddddddddddd
作者:
许继集团
时间:
2024-1-11 11:11
123123123123123
作者:
许继集团
时间:
2024-1-11 11:11
123123123123123
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4