快速简单的获取网络时间·代替本地时间不准的用
MsgBox, % "当前网络时间:" GetTime()
GetTime() {
local whr, gTime
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "http://quan.suning.com/getSysTime.do", true)
whr.Send()
whr.WaitForResponse()
Time := whr.ResponseText
Text:=SubStr(Time,-15)
年:=SubStr(Text,1,4)
月:=SubStr(Text,5,2)
日:=SubStr(Text,7,2)
时:=SubStr(Text,9,2)
分:=SubStr(Text,11,2)
秒:=SubStr(Text,13,2)
return 时 ":" 分 ":" 秒
}可以用RegExReplace正则代替SubStr（我对正则不熟所以就用笨方法了）
main:
MsgBox, % “当前网络时间:” getTime()
return
getTime() {
local whr, gTime
whr := ComObjCreate(“WinHttp.WinHttpRequest.5.1”)
whr.Open(“GET”, “http://quan.suning.com/getSysTime.do”, true)
whr.Send()
whr.WaitForResponse()
gTime := whr.ResponseText
RegExMatch(gTime, “sysTime1.{3}(\d+)”, rtTime)
return rtTime1
}
学到了感谢?
感谢