获取百度时间源码

suyanchao

1. .版本 2
   
2. .支持库 internet
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 获取百度时间
   
7. .局部变量 st1, 文本型
   
8. .局部变量 st2, 整数型
   
9. .局部变量 st3, 文本型
   
10. .局部变量 时间差, 整数型
    
11. 
    
12. st1 ＝ 到文本 (HTTP读文件 (“ http://open.baidu.com/app?module=beijingtime”))
    
13. ' 超级延时 (300)
    
14. st2 ＝ 寻找文本 (st1, “:1”, 0, 真)
    
15. st3 ＝ 取文本中间 (st1, st2 ＋ 1, 10) ' 准确到秒
    
16. 时间差 ＝ 到整数 (st3) － #参照值
    
17. 现在时间 ＝ 增减时间 (#参照日期, #秒, 时间差)
    
18. 时间1 ＝ 到文本 (现在时间) ' 准确到秒
    
19. 标签1.标题 ＝ 时间1
    
20. 
    
21. 
    
22. .子程序 _时钟1_周期事件
    
23. 
    
24. 获取百度时间 ()
    
25. 
    
26. 
    
27. .子程序 __启动窗口_创建完毕
    
28. 
    
29. 时钟1.时钟周期 ＝ 1000
    

复制代码

1. 
   
2. .版本 2
   
3. .常量 参照值, "1285785131"
   
4. .常量 参照日期, "[2010年9月30日2时32分11秒]"
   
5. 
   

复制代码

希望大家别笑话我,呵呵

微凉

用对象更好,不然人家网速慢就不行了

菜鸟少将

关注了     顶你```不论效果怎么样```在论坛发帖   
给大家研究   讨论就   顶{:3_233:}

qq764520536

很不错的说~~

suyanchao

回复 2# 【微凉清风】


    可以给个源码学习下？

微凉

.版本 2

.子程序 系统_取网络时间, 文本型, 公开
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型

.如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) ＝ 假)
    .如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
        返回 (“获取失败”)
    .如果真结束

.如果真结束

XML对象.方法 (“open”, “GET”, “http://www.baidu.com/”, 假)
XML对象.方法 (“send”, )
时间文本 ＝ XML对象.读文本属性 (“getResponseHeader”, “Date”)

返回 (到文本 (时间文本))

suyanchao

回复 7# 【微凉清风】


    不是很熟练对象，不过貌似比我的简洁多，谢谢

suyanchao

.版本 2

.子程序 月份转换, 文本型
.参数 jx, 文本型

.如果真 (jx ＝ “Jan ”)
    返回 (“1－”)
.如果真结束
.如果真 (jx ＝ “Feb ”)
    返回 (“2－”)
.如果真结束
.如果真 (jx ＝ “Mar ”)
    返回 (“3－”)
.如果真结束
.如果真 (jx ＝ “Apr ”)
    返回 (“4－”)
.如果真结束
.如果真 (jx ＝ “May ”)
    返回 (“5－”)
.如果真结束
.如果真 (jx ＝ “June”)
    返回 (“6－”)
.如果真结束
.如果真 (jx ＝ “July”)
    返回 (“7－”)
.如果真结束
.如果真 (jx ＝ “Aug ”)
    返回 (“8－”)
.如果真结束
.如果真 (jx ＝ “Sept”)
    返回 (“9－”)
.如果真结束
.如果真 (jx ＝ “Oct ”)
    返回 (“10－”)
.如果真结束
.如果真 (jx ＝ “Nov ”)
    返回 (“11－”)
.如果真结束
.如果真 (jx ＝ “Dec ”)
    返回 (“12－”)
.如果真结束

返回 (“”)

.子程序 系统_取网络时间, 文本型, 公开
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型
.局部变量 sjrq, 文本型
.局部变量 yf, 文本型
.局部变量 xj, 文本型
.局部变量 nf, 文本型

.如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) ＝ 假)
    .如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
        返回 (“获取失败”)
    .如果真结束

.如果真结束

XML对象.方法 (“open”, “GET”, “http://www.baidu.com/”, 假)
XML对象.方法 (“send”, )
时间文本 ＝ XML对象.读文本属性 (“getResponseHeader”, “Date”)
sjrq ＝ 取文本中间 (时间文本, 寻找文本 (时间文本, “,”, , 假) ＋ 2, 20)
yf ＝ 月份转换 (取文本中间 (sjrq, 4, 4))
xj ＝ 取文本右边 (sjrq, 9)
nf ＝ 取文本中间 (sjrq, 8, 4)
sjrq ＝ nf ＋ “－” ＋ yf ＋ 取文本左边 (sjrq, 2) ＋ xj
sjrq ＝ 到文本 (增减时间 (到时间 (sjrq), #小时, 8))
返回 (sjrq)

yvcd125

很不错{:3_244:}

xzhike

谢谢。学习了。。顶了。