Dim token = "eCIFS6iSGBq" '必须和设置的Token相同
Dim signature As String = e.GetValues("signature")
msgbox(signature) '消息框正常显示对应值;
Dim timestamp As String = e.GetValues("timestamp")
msgbox(timestamp) '消息框正常显示对应值;
Dim nonce As String = e.GetValues("nonce")
msgbox(nonce) '消息框正常显示对应值;
Dim encrypt As String = e.PlainText
msgbox(encrypt) '消息框正常显示对应值;
Dim jo As JObject = JObject.Parse(encrypt )
msgbox(jo) '没有显示出此消息框,报错内容:.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:项目,HttpRequest
详细错误信息:
参数“Prompt”无法转换为类型“String”。
Dim ding As new DingTalkEncryptor("eCIFS6iSGBq", "xlfwRsEMmY9x31oi9Koa", "dingdb4f9d71e09")
Dim res As String = ding.getDecryptMsg(signature , timestamp, nonce , encrypt)
msgbox(res) '显示解密的事件内容
'其它处理
Dim msg = ding.getEncryptedMap("success")
Dim po As New JObject
po("signature") = msg("signature")
msgbox(po("signature")) '显示解密的事件内容
po("timeStamp") = msg("timeStamp")
msgbox(po("timeStamp")) '显示解密的事件内容
po("nonce") = msg("nonce")
msgbox(po("nonce")) '显示解密的事件内容
po("encrypt") = msg("encrypt")
msgbox(po("encrypt")) '显示解密的事件内容
e.WriteString(po.ToString) '返回success的加密数据
msgbox(po.ToString) '显示解密的事件内容