网络校时源码

bosket

软件原来一直用百度的网络时间来校准电脑时间，但百度关了，百度也是说关就关，和快盘一样。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<br /> .支持库 internet<br /> <br /> .子程序 _按钮_网络校时_被单击<br /> .局部变量 网络文本, 文本型<br /> .局部变量 网络时间, 整数型<br /> .局部变量 起, 整数型<br /> .局部变量 止, 整数型<br /> <br /> 网络文本 ＝ 到文本 (HTTP读文件 (“http://time.tianqi.com/”))<br /> 起 ＝ 寻找文本 (网络文本, “now=new Date((”, , 真) ＋ 14<br /> 止 ＝ 寻找文本 (网络文本, “+i+”, 起, 真)<br /> 网络时间 ＝ 到数值 (取文本中间 (网络文本, 起, 止 － 起))<br /> <br /> .如果 (网络时间 ＞ 1000000000 且 置现行时间 (增减时间 ([1970年1月1日8时], #秒, 网络时间)))<br /> 信息框 (“系统时间更新成功。”, #信息图标, “提示”, )<br /> .否则<br /> 信息框 (“系统时间更新失败。”, #信息图标, “提示”, )<br /> .如果结束

许继集团

123123123123123

许继集团

123123123123123

czg108

ddddddddddd

chenyaohui

666666666666666666666

chenyaohui

6666666666666666666666

轩如梦

未来大牛，支持你。

chenxi

看好你，假以时日你定将成为一方大牛，继续加油

bosket

我的软件需要的不是精确校时，需要精确校时的朋友可以使用NTP校时。附参考源码： NTP校时.rar (4.62 KB, 下载次数: 57)

2016-5-16 15:07 上传

点击文件名下载附件
NTP校时

xiuzeli

加油                                         

bosket

qq331607639 发表于 2016-5-16 12:15
我都无语了，校时很难吗？没有一点技术含量，怎么这么多人发啊

我是初学者，请指教。