再提网络时间问题

1525299008

开始能显示时间。不知道后来怎么了又不显示了。是不是网络不稳定，很容易找不到？


空间 网络时间1
//默认空间
NetTime
//开始按钮_点击操作
功能 开始_点击()   

    http=com("Microsoft.XMLHTTP")
    http.Open("Get","百度网址", false)//百度网址四个字，我临时放上去的，不然发表不了。
    http.Send("")
    信息=http.GetResponseHeader("Date")
    如果(信息!="")
        信息数组
        字符串.分割(信息," ",信息数组)
        选择(信息数组[2])
            条件 "Jan":
            信息数组[2]="01"
            条件 "Feb":
            信息数组[2]="02"
            条件 "Mar":
            信息数组[2]="03"
            条件 "Apr":
            信息数组[2]="04"
            条件 "Mar":
            信息数组[2]="05"
            条件 "Jun":
            信息数组[2]="06"
            条件"Jul":
            信息数组[2]="07"
            条件 "Aug":
            信息数组[2]="08"
            条件 "Sep":
            信息数组[2]="09"
            条件 "Oct":
            信息数组[2]="10"
            条件 "Nov":
            信息数组[2]="11"
            条件 "Dec":
            信息数组[2]="12"
        选择结束
        NetTime=信息数组[3]&"/"&信息数组[2]&"/"&信息数组[1]&" "&信息数组[4]
        辅助.消息框(信息数组[3]&"/"&信息数组[2]&"/"&信息数组[1]&" "&信息数组[4])
    如果结束
功能结束

//退出按钮_点击操作
功能 退出_点击()

    辅助.退出()
功能结束

空间结束
//空间结束语句

星.月

1525299008 发表于 2013-11-7 11:01
在慢也有出来的时候吧，问题等半天就不出了。呵呵。是不是代码有错误？ ...

应该没有吧，看看我的代码

1. 功能 获取网络时间()
   
2.     //成功返回 年月日时分秒,失败返回 00000000000000
   
3.     http=com("Microsoft.XMLHTTP")
   
4.     http.Open("Get","http://www.baidu.com", false)
   
5.     http.Send("")
   
6.     信息=http.GetResponseHeader("Date")
   
7.     如果(信息!="")
   
8.         信息数组
   
9.         字符串.分割(信息," ",信息数组)
   
10.         选择(信息数组[2])
    
11.             条件 "Jan":
    
12.             信息数组[2]="01"
    
13.             条件 "Feb":
    
14.             信息数组[2]="02"
    
15.             条件 "Mar":
    
16.             信息数组[2]="03"
    
17.             条件 "Apr":
    
18.             信息数组[2]="04"
    
19.             条件 "Mar":
    
20.             信息数组[2]="05"
    
21.             条件 "Jun":
    
22.             信息数组[2]="06"
    
23.             条件"Jul":
    
24.             信息数组[2]="07"
    
25.             条件 "Aug":
    
26.             信息数组[2]="08"
    
27.             条件 "Sep":
    
28.             信息数组[2]="09"
    
29.             条件 "Oct":
    
30.             信息数组[2]="10"
    
31.             条件 "Nov":
    
32.             信息数组[2]="11"
    
33.             条件 "Dec":
    
34.             信息数组[2]="12"
    
35.         选择结束
    
36.         时间分割
    
37.         字符串.分割(信息数组[4],":",时间分割)
    
38.         如果(时间分割[0]+8>24)
    
39.             时间分割[0]=时间分割[0]-24+8
    
40.         否则
    
41.             时间分割[0]=时间分割[0]+8
    
42.         如果结束
    
43.         返回 信息数组[3]&信息数组[2]&信息数组[1]&时间分割[0]&时间分割[1]&时间分割[2]
    
44.     否则
    
45.         返回 "00000000000000"
    
46.     如果结束
    
47. 功能结束

复制代码

1525299008

顶上去

星.月

用线程开启来获取，获取网络时间有一点延时，别着急

1525299008

星.月 发表于 2013-11-7 10:44
用线程开启来获取，获取网络时间有一点延时，别着急

在慢也有出来的时候吧，问题等半天就不出了。呵呵。是不是代码有错误？