VBS示范代码 - 身份证实名认证 - API接口文档

'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/a1"
    param="key=您申请的key&cardNo=5110111&realName=张三&information="
    requestPost url,param
End function
现在注册，免费试用所有产品
