'https接口的范例代码,windows下测试方法:命令行下执行 CScript.exe APIStore.vbs '源码基于VBS语言,用户可在windows主机环境或asp环境调用,asp环境调用时请注意输出方式 'sdk接口都是以https方式调用,因此,要求你的系统(windows)已经拥有证书,我公司采用的证书是国际可信任服务商提供的安全证书,绝大部分系统已经内置如果您的系统出现了证书不可信问题,那可能是您的系统太老导致的,比如winxp之前的系统,此时可能需要您手动导入证书文件cacert.pem,即可使用 'cacert.pem为可信任根证书文件,用户请保持更新 '参考 'WinHttp TLS1.2 possible 'https://social.msdn.microsoft.com/Forums/en-US/8f2f2599-e913-4557-a897-c11796914eb7/winhttp-tls12-possible?forum=isvvba 'How do you set the SecurityProtocolType to TLS 1.2 for a web service 'https://forum.powerbasic.com/forum/user-to-user-discussions/programming/746809-how-do-you-set-the-securityprotocoltype-to-tls-1-2-for-a-web-service/page2 'WinHttpRequestOption enumeration 'https://msdn.microsoft.com/en-us/library/windows/desktop/aa384108(v=vs.85).aspx 'post请求方式 'url 地址 'param 参数 Function requestPost(url,param) on error resume next Dim httpRequest 'Set xmlHttp = CreateObject("Microsoft.XMLHTTP") '这个的核心是WinHttp.WinHttpRequest.5.1,而且它没有option可以设置 Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") httpRequest.Option(9) = 128 '设置使用协议,128,TSL 1.0;512,TSL 1.1; 2048,TSL 1.2。出自winhttp.h文件 httpRequest.Open "POST", url, False, "", "" httpRequest.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" httpRequest.Send param If err.number <> 0 then WScript.Echo "error,No:" & err.number & ";Description:" & Err.Description else Dim result result = httpRequest.ResponseText WScript.Echo "POST返回结果:" & result 'win脚本应用下输出 'Response.Write "POST返回结果:" & result 'asp应用下输出 End If Set httpRequest = Nothing End function '获取内容 Function getContent() url="https://v.1dq.com/api/bank/detail" param="key=您申请的key&bankcard=62220211111&realName=张三&cardNo=12345678&Mobile=15618181818&cardtype=&information=" requestPost url,param End function