精易论坛
标题:
网络对时源码
[打印本页]
作者:
jy5
时间:
2015-11-14 17:29
标题:
网络对时源码
窗口程序集名
保 留
保 留
备 注
窗口程序集_启动窗口
子程序名
返回值类型
公开
备 注
取网络时间
变量名
类 型
静态
数组
备 注
x
文本型
x2
文本型
0
' comloading
(
)
文件下载
(
“
http://open.baidu.com/special/time/
”
,
取运行目录
(
)
+
“/my.txt”
)
x =
到文本
(
读入文件
(
取运行目录
(
)
+
“/my.txt”
)
)
如果真
(
x =
“”
)
文件下载
(
“
http://open.baidu.com/special/time/
”
,
取运行目录
(
)
+
“/my.txt”
)
x2 =
正则表达式
(
“baidu_time(.\d{13})”
, x
)
x =
取文本右边
(
x2
[
1
]
, 13
)
' 调试显出
(
增减时间
(
[
1970年1月1日
]
, #秒, 到数值
(
x
)
÷ 1000
)
, x
)
javascript
(
#kk
)
标题 =
“2015年”
+
调用javascript
(
“showdat”
, x
)
' comdelete
(
)
子程序名
返回值类型
公开
备 注
__启动窗口_创建完毕
皮肤加载
(
,
)
子程序名
返回值类型
公开
备 注
_时钟1_周期事件
取网络时间
(
)
i
支持库列表
支持库注释
JY
(未知支持库)
.版本 2
.支持库 JY
.程序集 窗口程序集_启动窗口
.子程序 取网络时间, , 公开
.局部变量 x, 文本型
.局部变量 x2, 文本型, , "0"
' comloading ()
文件下载 (“
http://open.baidu.com/special/time/
”, 取运行目录 () + “/my.txt”)
x = 到文本 (读入文件 (取运行目录 () + “/my.txt”))
.如果真 (x = “”)
文件下载 (“
http://open.baidu.com/special/time/
”, 取运行目录 () + “/my.txt”)
.如果真结束
x2 = 正则表达式 (“baidu_time(.\d{13})”, x)
x = 取文本右边 (x2 [1], 13)
' 调试显出 (增减时间 ([1970年1月1日], #秒, 到数值 (x) ÷ 1000), x)
javascript (#kk)
标题 = “2015年” + 调用javascript (“showdat”, x)
' comdelete ()
.子程序 __启动窗口_创建完毕
皮肤加载 (, )
.子程序 _时钟1_周期事件
取网络时间 ()
作者:
Heretic
时间:
2015-11-14 18:13
看看
作者:
竹子软件
时间:
2015-11-16 14:05
{:4_267
加油
作者:
落款hMZ
时间:
2015-11-18 05:33
提示:
作者被禁止或删除 内容自动屏蔽
作者:
yinre
时间:
2015-11-19 21:16
支持下楼主
作者:
对不起,我爱你
时间:
2015-11-26 21:59
有啥用?帮你顶
作者:
zhangjun1314
时间:
2015-11-27 17:44
支持开源..谢谢! 不过.你这源码会误导新手的..写到磁盘是完全多于的...直接http读文件就可以了
作者:
zeezee
时间:
2015-11-28 23:58
对时源对时源对时源对时源
作者:
a44347562
时间:
2016-3-18 18:10
看看看看看看看看看看看看看看看看
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4