钉钉接口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有11748人关注过本帖树形打印复制链接主题：钉钉接口

weibu

小大 51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2021/2/24 16:17:00 [只看该作者]

Dim res As String = ding.getDecryptMsg(signature , timestamp, nonce , jo("encrypt"))

msgbox(res) '能正常显示了；

msgbox(res) 显示内容：

此主题相关图片如下：微信截图_20210224161500.png

但还是报错：.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：项目,HttpRequest

详细错误信息：

给定关键字不在字典中。

有点蓝

小大 52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/24 16:19:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

weibu

小大 53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2021/2/24 16:37:00 [只看该作者]

Dim res As String = ding.getDecryptMsg(signature , timestamp, nonce , jo("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) '显示解密的事件内容

' End If

End Select

weibu

小大 54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2021/2/24 16:52:00 [只看该作者]

https://developers.dingtalk.com/document/app/configure-event-subcription

蓝老师这是钉钉事件调阅的配置文档。你看下代码啥的，是不是有帮助

有点蓝

小大 55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/24 16:53:00 [只看该作者]

po("msg_signature") = msg("msg_signature")

weibu

小大 56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2021/2/24 17:08:00 [只看该作者]

老师修改后报错：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：项目,HttpRequest

详细错误信息：

无法将类型为“System.String”的对象强制转换为类型“Newtonsoft.Json.Linq.JToken”。

有点蓝

小大 57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/24 17:10:00 [只看该作者]

全部处理一下

po("msg_signature") = cstr(msg("msg_signature"))

po("timeStamp") = cstr(msg(....

weibu

小大 58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2021/2/24 17:26:00 [只看该作者]

Dim po As New JObject

po("signature") = cstr(msg("msg_signature"))

msgbox(po("signature")) '正常显示

po("timeStamp") = cstr(msg("timeStamp"))

msgbox(po("timeStamp")) '正常显示

po("nonce") = cstr(msg("nonce"))

msgbox(po("nonce")) '正常显示

po("encrypt") = cstr(msg("encrypt"))

msgbox(po("encrypt")) '正常显示

e.WriteString(po.ToString) '返回success的加密数据

msgbox(po.ToString) '正常显示

但钉钉配置页面点击保存报错提示：为:java.net.SocketTimeoutException: Read timed out H 'Content-Type:application/json' HttpCode:0 HttpReponse:null

weibu

小大 59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2021/2/24 17:30:00 [只看该作者]

{

"signature": "6da7abe669e5619f8a9099b9dd62613ab3520f32",

"timeStamp": "79",

"nonce": "jvjJmKsT1oILm6uK",

"encrypt": "zFgIsCNuFsc5axbOHl9LkTupIW6jD5DuHJ7L9Bi/AxF4co1JusDxixJuDwUUO8Yjm625J3LBiZE07lM3qG9sPA=="

}

这是msgbox(po.ToString) '正常显示的内容

有点蓝

小大 60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/24 17:36:00 [只看该作者]

超时了，把所有msgbox提示框都去掉，重新测试

下一主题 >> << 上一主题

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

主题：钉钉接口