本文来自于Thinkai’s Blog，thinkai也是我在ahk上面的引路人，对thinkai感兴趣的朋友请关注他的博客。
thinkai的博客简洁、有趣，即便是转载过来我也尽量保持作者原有的风格，主要是方便大家查阅。
thinkai的博客简洁、有趣，即便是转载过来我也尽量保持作者原有的风格，主要是方便大家查阅。
JSONPOST(url, Encoding = "",postData=""){ ;网址，编码, post JSON数据
hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
Try
{
hObject.Open("POST",url,False)
hObject.SetRequestHeader("Content-Type", "application/json")
hObject.Send(postData)
}
catch e
return -1
if (Encoding && hObject.ResponseBody)
{
oADO := ComObjCreate("adodb.stream")
oADO.Type := 1
oADO.Mode := 3
oADO.Open()
oADO.Write(hObject.ResponseBody)
oADO.Position := 0
oADO.Type := 2
oADO.Charset := Encoding
return oADO.ReadText(), oADO.Close()
}
return hObject.ResponseText
}
