论坛 › 已解决问题区 › 请问以下时间如何读取真实的值(已解决)

txm888 发表于 2013-10-20 21:28:21

请问以下时间如何读取真实的值(已解决)

本帖最后由 txm888 于 2013-10-21 01:02 编辑

请问以下时间要如何才能读取时间值？
#include <Date.au3>
MsgBox(0, "", _Time())

Func _Time()
      $oHTTP = ObjCreate("MSXML2.XMLHTTP")
      $oHTTP.Open("get", "http://open.baidu.com/special/time/", False)
      $oHTTP.Send()
      $a = BinaryToString($oHTTP.responsebody)
      $aReturn = StringRegExp($a, 'window.baidu_time\((.*?)\);', 3)
      If @error = 0 Then
                $sec = $aReturn
                Return _DateAdd("s", Round($sec / 1000), "1970/01/01 08:00:00")
      EndIf
EndFunc   ;==>_Time

txm888 发表于 2013-10-20 21:28:59

本帖最后由 txm888 于 2013-10-20 22:51 编辑

在线坐等，来者请留影

txm888 发表于 2013-10-21 01:03:08

已解决，移步此贴http://www.autoitx.com/thread-37143-1-1.html

查看完整版本: 请问以下时间如何读取真实的值(已解决)