JSON POST Autohotkey

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

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

json文本数据与obj互转 Autohotkey

2020-2-16 10:24:01

其他教程

获取生成32位UUID GUID Autohotkey

2020-2-18 9:34:39

0 条回复 A文章作者 M管理员
欢迎您,新朋友,感谢参与互动!
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
私信列表
搜索