TC官方合作论坛

标题: 再提网络时间问题 [打印本页]

作者: 1525299008    时间: 2013-11-7 10:15
标题: 再提网络时间问题
开始能显示时间。不知道后来怎么了又不显示了。是不是网络不稳定,很容易找不到?


空间 网络时间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 10:40
顶上去
作者: 星.月    时间: 2013-11-7 10:44
用线程开启来获取,获取网络时间有一点延时,别着急
作者: 1525299008    时间: 2013-11-7 11:01
星.月 发表于 2013-11-7 10:44
用线程开启来获取,获取网络时间有一点延时,别着急

在慢也有出来的时候吧,问题等半天就不出了。呵呵。是不是代码有错误?
作者: 星.月    时间: 2013-11-7 12:03
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. 功能结束
复制代码





欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1