网络时间怎么样让它动态显示-『提问交流』-AUTOIT CN

udbghdto 发表于 2011-8-21 13:54:59

网络时间怎么样让它动态显示

在论坛上找到了一段代码是获取网络时间的..afan大大写的..如何让它动态显示在输入框内呢..2011-08-21 10:40:13下一秒就改成2011-08-21 10:40:14..这样一真下去..MsgBox(0, '', _Hdate())

Func _Hdate()
   Local $mon = 'Jan01Feb02Mar03Apr04May05Jun06Jul07Aug08Sep09Oct10Nov11Dec12'
   Local $Wday = 'Sun日Mon一Tue二Wed三Thu四Fri五Sat六'
   $oHTTP = ObjCreate('microsoft.xmlhttp')
   $oHTTP.Open('get', 'http://v.time.org.cn/com/', False)
   $oHTTP.Send()
   Local $sR = StringRegExp($oHTTP.getResponseHeader('Date'), '(.+?),\h(\d+)\h(.+?)\h(\d{4})\h(\d+)(.+?)\h', 3)
   If @error Then Return SetError(1, 0, -1)
   Local $_mon = StringRegExpReplace($mon, '.*' & $sR & '(\d+).*', '$1')
   Local $_Wday = StringRegExpReplace($Wday, '.*' & $sR & '(.).*', '$1')
   Local $H_time = $sR + 8
   If $H_time >= 24 Then $H_time -= 24
   Return $sR & '-' & $_mon & '-' & $sR & ' ' & $H_time & $sR & ' 星期' & $_Wday
EndFunc ;==>_Hdate

wangsheng108 发表于 2011-8-23 10:12:22

要先定义一个定时器，一秒钟调用函数一次即可。

auhj887 发表于 2011-8-24 05:03:34

{:face (356):}

wsfda 发表于 2011-8-24 09:02:23

要先定义一个定时器，一秒钟调用函数一次即可。
wangsheng108 发表于 2011-8-23 10:12 http://www.autoitx.com/images/common/back.gif

函数内容就是修改控件数据

ghl781258 发表于 2011-8-28 19:35:13

论坛或是帮助里有现成的例子，找找先

页: [1]

AUTOIT CN's Archiver

网络时间怎么样让它动态显示