'e.WriteString(Vars("测试"))
Dim token = "" '必须和设置的Token相同
Dim signature As String = e.GetValues("signature")
Dim timestamp As String = e.GetValues("timestamp")
Dim nonce As String = e.GetValues("nonce")
Dim encrypt As String = e.PlainText
Dim jo As JObject = JObject.Parse(encrypt)
Dim ding As New DingTalkEncryptor("", "", "")
Dim res As String = ding.getDecryptMsg(signature, timestamp, nonce, jo("encrypt"))
'其它处理
Dim msg = ding.getEncryptedMap("success")
Dim po As New JObject
po("msg_signature") = CStr(msg("msg_signature"))
po("timeStamp") = CStr(msg("timeStamp"))
po("nonce") = CStr(msg("nonce"))
po("encrypt") = CStr(msg("encrypt"))
'MessageBox.Show(po.ToString)
e.WriteString(po.ToString) '返回success的加密数据
'ClipBoard.SetText(res)
'MessageBox.Show(res)
Dim joReturn As JObject = JObject.Parse(res)
Select Case joReturn("EventType")
Case "bpms_instance_change"
MessageBox.Show("事件返回成功")
End Select
加好友 
发短信
Post By：2022/11/5 11:05:00 [显示全部帖子]
