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

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[0]
            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

		自动登录	找回密码
密码			加入

[AU3基础] 请问以下时间如何读取真实的值(已解决)

相关帖子

浏览过的版块