本文来自于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
- }
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。