// 一键打码
RetTbl = lzdm.lz_SendVerCode(softID, Secret, user, pwd, filepath, tpe, ot, minlen, maxlen, workerTipsId)
If RetTbl Then
If RetTbl["code"] = 0 Then
ID = RetTbl["data"]["captchaId"]
Result = RetTbl["data"]["recognition"]
TracePrint "图像识别结果为: ", Result
TracePrint "图像ID为: ", ID
Else
TracePrint "图像结果获取失败, 错误原因: ", RetTbl["message"]
End If
Else
TracePrint "HTTP请求发送失败"
End If
// 结果报错
//RetTbl = lzdm.lz_ReportError(softID, Secret, user, pwd, ID)
//If RetTbl Then
//If RetTbl["code"] = 0 Then
//If RetTbl["data"]["result"] Then
//TracePrint "图像报错成功"
//Else
//TracePrint "图像报错失败"
//End If
//Else
//TracePrint "报错提交失败, 错误原因: ", RetTbl["message"]
//End If
//Else
//TracePrint "HTTP请求发送失败"
//End If
// 检查点数
RetTbl = lzdm.lz_GetUserInfo(softID, Secret, user, pwd)
If RetTbl Then
If RetTbl["code"] = 0 Then
TracePrint "当前用户剩余点数: ", RetTbl["data"]["userPoints"]
TracePrint "当前用户可用点数: ", RetTbl["data"]["availablePoints"]
TracePrint "当前用户锁定点数: ", RetTbl["data"]["lockPoints"]
Else
TracePrint "查询点数失败, 错误原因: ", RetTbl["message"]
End If
Else
TracePrint "HTTP请求发送失败"
End If
RetTbl = lzdm.lz_SendVerCode(softID, Secret, user, pwd, filepath, tpe, ot, minlen, maxlen, workerTipsId)
If RetTbl Then
If RetTbl["code"] = 0 Then
ID = RetTbl["data"]["captchaId"]
Result = RetTbl["data"]["recognition"]
TracePrint "图像识别结果为: ", Result
TracePrint "图像ID为: ", ID
Else
TracePrint "图像结果获取失败, 错误原因: ", RetTbl["message"]
End If
Else
TracePrint "HTTP请求发送失败"
End If
// 结果报错
//RetTbl = lzdm.lz_ReportError(softID, Secret, user, pwd, ID)
//If RetTbl Then
//If RetTbl["code"] = 0 Then
//If RetTbl["data"]["result"] Then
//TracePrint "图像报错成功"
//Else
//TracePrint "图像报错失败"
//End If
//Else
//TracePrint "报错提交失败, 错误原因: ", RetTbl["message"]
//End If
//Else
//TracePrint "HTTP请求发送失败"
//End If
// 检查点数
RetTbl = lzdm.lz_GetUserInfo(softID, Secret, user, pwd)
If RetTbl Then
If RetTbl["code"] = 0 Then
TracePrint "当前用户剩余点数: ", RetTbl["data"]["userPoints"]
TracePrint "当前用户可用点数: ", RetTbl["data"]["availablePoints"]
TracePrint "当前用户锁定点数: ", RetTbl["data"]["lockPoints"]
Else
TracePrint "查询点数失败, 错误原因: ", RetTbl["message"]
End If
Else
TracePrint "HTTP请求发送失败"
End If