2,462
社区成员
发帖
与我相关
我的任务
分享
"attributes": {
"gender": {
"value": "Female"
},
"age": {
"value": 21
},
"headpose": {
"yaw_angle": -26.625063,
"pitch_angle": 12.921974,
"roll_angle": 22.814377
},
"smile": {
"threshold": 30.1,
"value": 2.566890001296997
}
},
"face_rectangle": {
"width": 140,
"top": 89,
"left": 104,
"height": 141
}
StrData = "key=666b466c3ee008e35f5d68519d8a5186&name=songyang&idcard=220323199102023936&acc_no=6212024200001020434&mobile=13664412405"
Dim strFaceJSON As String
strFaceJSON = PostData("http://api.chinadatapay.com/communication/personal/1887", StrData, ResponseText)
Dim JSON As Object
Set JSON = CreateObject("MSScriptControl.ScriptControl")
With JSON
.Language = "javascript"
.AddCode "var json = " & strFaceJSON & ";"
txt1 = .Eval("json.code") '返回 SYSTEM_001
txt2 = .Eval("json.message") '返回 找不到这个key,而且 data 是空的
txt3 = .Eval("json.seqNo")
End With
Private Function PostData(ByVal strURL As String, ByVal StrData As String, ByVal DataStic As DataEnum) As Variant
On Error GoTo ERR:
Dim XMLHTTP As Object
Dim DataS As String
Dim DataB() As Byte
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.Open "POST", strURL, True
XMLHTTP.SetRequestHeader "Content-Length", Len(PostData)
XMLHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLHTTP.sEnd strURL & StrData
Do Until XMLHTTP.ReadyState = 4
DoEvents
Loop
Select Case DataStic
Case ResponseText
DataS = XMLHTTP.ResponseText
PostData = DataS
Case ResponseBody
DataB = XMLHTTP.ResponseBody
PostData = DataB
Case ResponseBody + ResponseText
DataS = BytesToStr(XMLHTTP.ResponseBody)
PostData = DataS
Case Else
PostData = ""
End Select
Set XMLHTTP = Nothing
Exit Function
ERR:
ErrMsg ERR.Description, "PostData"
PostData = ""
End Function