#include <Date.au3>
$http = ObjCreate('microsoft.xmlhttp')
$http.Open('Get', 'http://www.baidu.com', False)
$http.Send('')
$baidutime = $http.GetResponseHeader('Date')
If $baidutime = '' Then Exit MsgBox('', '错误', '获取异常,请检测网络是否连通')
$ss = StringSplit('Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec', ',')
For $ii = 1 To 12
$baidutime = StringReplace($baidutime, $ss[$ii], $ii)
Next
$ss = StringSplit($baidutime, ', :')
$shijianxiaoyan1 = _DateAdd('h', 8, $ss[5] & '/' & $ss[4] & '/' & $ss[3] & ' ' & $ss[6] & ':' & $ss[7] & ':' & $ss[8])
MsgBox('', '时间为', $shijianxiaoyan1)
|