Foxtable(狐表)用户栏目专家坐堂 → 钉钉接口


  共有11578人关注过本帖树形打印复制链接

主题:钉钉接口

帅哥,在线噢!
有点蓝
  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/23 23:19:00 [只看该作者]

调试代码看那一句出错

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:636 积分:5153 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2021/2/23 23:22:00 [只看该作者]

 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) '显示解密的事件内容     


 回到顶部
帅哥,在线噢!
有点蓝
  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/23 23:24:00 [只看该作者]

这句代码先去掉,
Dim jo As JObject = JObject.Parse(encrypt )

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:636 积分:5153 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2021/2/24 8:08:00 [只看该作者]

老师我去掉下面这两句报错
Dim jo As JObject = JObject.Parse(encrypt )
 msgbox(jo) 
仅去掉msgbox(jo) 报错一样
报错:Foxtable 版本:2020.5.29.8
错误所在事件:项目,HttpRequest
详细错误信息:
签名计算失败

老师弹出的前三个消息框都是直接d85322这样的数字或子母;第四个消息框{"encrypt":"1ojQf0NSvw2WPvW7LijxS8UvISr8pdDP+rXpPbcLGOmIBNbWetRg7IP0vdhVgkVwSoZBJeQwY2zhROsJq/HJ+q6tp1qhl9L1+ccC9ZjKs1wV5bmA9NoAWQiZ+7MpzQVq+j74rJQljdVyBdI/dGOvsnBSCxCVW0ISWX0vn9lfghjkl"
}

 回到顶部
帅哥,在线噢!
有点蓝
  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/24 8:41:00 [只看该作者]

把前4个信息框内容以及下面完整信息发上来我核对一下

Dim ding As new DingTalkEncryptor("eCIFS6iSGBq", "xlfwRsEMmY9x31oi9Koa", "dingdb4f9d71e09")

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:636 积分:5153 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2021/2/24 14:36:00 [只看该作者]

cb3f00d251f64a6294420573883f05b97ffa0e0c
1614148489412
ahMIPTlX
{"encrypt":"yPosdui79l8cF/6CcOyZZXZJ0z7VRWgK4VMPfnsmpmrgLZP87pvxGhhMpdAXiqGnYiwVMOLss1Twi+7xgxByFKNOXWpX5rsO9Grr+XYKFtDVR81AF/K3DlEIjOvTYFNY"}

Dim ding As new DingTalkEncryptor("KTW2OByavJxK6jEZJWHZ4UVzRCBtqkQWWShZO3C", "7C71rDjThu76ZeRqz92k0fGQWLSBXYnGZWcFZebIyky", "dingdb4f9d27f74502f6a39a90f97fcb1e09")


 回到顶部
帅哥,在线噢!
有点蓝
  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/24 14:44:00 [只看该作者]

Dim ding As new DingTalkEncryptor("KTW2OByavJxK6jEZJWHZ4UVzRCBtqkQWWShZO3C", "7C71rDjThu76ZeRqz92k0fGQWLSBXYnGZWcFZebIyky", "dingdb4f9d27f74502f6a39a90f97fcb1e09")

corpid值不正确,不是设置回调的这个应用的corpid

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:636 积分:5153 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2021/2/24 15:51:00 [只看该作者]

Dim ding As new DingTalkEncryptor("KTW2OByavJxK6jEZJWHZ4UVzRCBtqkQWWShZO3C", "7C71rDjThu76ZeRqz92k0fGQWLSBXYnGZWcFZebIyky", "dingcixyr5lfflgnlvdg")

跟钉钉客服确认了,是这个。但是还是一样未签名的报错

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:636 积分:5153 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2021/2/24 15:53:00 [只看该作者]

蓝老师,是不是DingTalkEncryptor变量定义的有问题??

 回到顶部
帅哥,在线噢!
有点蓝
  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/24 15:55:00 [只看该作者]

Dim token = "eCIFS6iSGBq" '必须和设置的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("eCIFS6iSGBq", "xlfwRsEMmY9x31oi9Koa", "dingdb4f9d71e09")
            Dim res As String = ding.getDecryptMsg(signature , timestamp, nonce , jo("encrypt"))
            msgbox(res) '显示解密的事件内容
            '其它处理
            Dim msg  = ding.getEncryptedMap("success")

 回到顶部
总数 81 上一页 1 2 3 4 5 6 7 8 9 下一页