Rem 动态获取authKey
Rem JSON字符串转换为对象
objJSON = JSON.Parse('''{"companyCd": "*", "userCd": "admin", "password": "******"}''')
Rem XC-Gate 登录验证authKey
sRet = HTTP.PostJson("http://**********", objJSON, 60000) //接口信息
Rem 字符串长度
iMaxLen = Len(sRet)
iMaxLen = iMaxLen -1
Rem authKey开始位置
iRet = InStr(sRet,"authKey",1,false)
iRet = iRet + 10
Rem 提取authKey值
sTiQuData = SubStr(sRet,iRet,64)
TracePrint "提取的authKey的值:"
TracePrint sTiQuData
Rem 动态获取get数据
testJSON = '''{
"companyCd":"***" //企业编号,同上验证登录
,"userUCd":"********" //固定的
,"authKey":"************" //动态获取,下文替换
,"para1":"****" //接口传入参数1
,"para2":"**************" //接口传入参数2
,"para3":"***************************" //接口传入参数3
}'''
objJSON = JSON.Parse(testJSON)
Rem 动态替换login登录成功authKey的值
For Each key, value In objJSON
If key = "authKey"
objJSON[key] = sTiQuData
End If
Next
sRet = HTTP.PostJson("http://*********", objJSON, 60000)
TracePrint "获取结果:"
TracePrint sRet