| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 微信企业号中AgentId如何进行微信消息开发 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140146) |
| -- 作者：malavazos -- 发布时间：2019/8/30 11:46:00 -- 微信企业号中AgentId如何进行微信消息开发 我公司有自己的微信企业号，他给我设定的ID 1000034 给了我的一个SECRET 但是用这个ID是无法使用的，那么这个ID 是否和企业号的Id串接； 另外按照企业号的规定，确定了 相应的TOKEN 及EncodingAESKey 可是测试连接不成功； 费心帮忙指导下
|
| -- 作者：有点蓝 -- 发布时间：2019/8/30 13:57:00 -- TOKEN 及EncodingAESKey 是需要和URL配合使用的，您要使用高级开发版开发一个服务端项目，按照这里的帮助使用代码：http://www.foxtable.com/mobilehelp/topics/0211.htm 至于发送消息，需要有corpid和应用的SECRET 来获取accesstoken：http://www.foxtable.com/mobilehelp/topics/0212.htm，然后调用接口发送即可：http://www.foxtable.com/mobilehelp/topics/0166.htm
|
| -- 作者：malavazos -- 发布时间：2019/8/30 14:38:00 -- 关键是我公司的企业号是有很多的应用。管理员如果不提供corpsecret这个企业密匙，他仅提供了一个内部的ID 1000034 及内部连接的密匙 ********* 我可以实现，微信的通讯开发吗？ 从而造成无法正常获取token； 这个问题如何解决？费心 Static CreateTime As Date \'记录最近一次生成access_token的时间 Static AccessTocken As String \'记录最近一次生成的access_token Dim CorpID As String= "wxa31aba4cd83af57e" \'企业号的CorpID Dim Secret As String = "2SMHXVF2GHk31FzVX9vEjqzbrX2pet0wbC653dQk6nw2dqnzQXgErf5NRDDhjv6i" \'管理组的Secret Dim tp As TimeSpan = Date.Now - CreateTime If tp.TotalSeconds > 3600 Then Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}" Dim hc As New HttpClient(CExp(url, CorpID, Secret)) Dim ret As String = hc.GetData() If ret = "" Then \'如果失败,再尝试一次 hc.GetData() End If CreateTime = Date.Now() Dim jo As JObject = JObject.Parse(ret) If jo("errcode") Is Nothing Then AccessTocken = jo("access_token") Else MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo.ToString) End If End If Return AccessTocken
[此贴子已经被作者于2019/8/30 14:44:48编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/8/30 14:57:00 -- CorpID应该会有吧？ 内部连接的密匙是指什么？如果是ID 1000034这个应用对应的密钥就可以，不需要企业密钥 Dim Secret As String = "应用对应的密钥"
|
| -- 作者：malavazos -- 发布时间：2019/8/30 16:39:00 -- 企业ID是有的，但是对应的信息添加上corpid 并且Secret添加1000034对应的密匙后，无法获得token 显示： Invalid appid hint :[6SxZya00833942] |
| -- 作者：有点蓝 -- 发布时间：2019/8/30 16:46:00 -- 提示corpid或者应用密钥不正确。确定对方给的是应用的Secret，而不是其它什么乱七八糟的东西 |
| -- 作者：malavazos -- 发布时间：2019/8/30 20:52:00 -- 老师 这个可以确认， corpid 是我公司的企业号ID SECRET 是1000034 id 应用密匙，不是企业号的管理组secret。 不知CORPID 配用 agentid，是否可以正常使用？
|
| -- 作者：有点蓝 -- 发布时间：2019/8/30 21:06:00 -- 肯定是可以的：http://www.foxtable.com/mobilehelp/topics/0212.htm |
| -- 作者：malavazos -- 发布时间：2019/9/2 16:27:00 -- 已经获取ACCESE token成功， 当时在发送下列消息时，出现错误：
错误码：40056 agentid不合法。确认：1）agentid为整型数字2）在web管理端存在该应用实际上我的这个应用ID是存在的。 Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}" Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken"))) Dim jo As New JObject jo("touser") = "1000034" jo("msgtype") = "text" jo("agentid") = 9 jo("text") = New JObject jo("text")("content") = "您好,这是测试信息" hc.Content = jo.ToString jo = JObject.Parse(hc.GetData) If jo("errcode") = "0" Then MessageBox.show("消息发送成功!") Else MessageBox.show(jo.ToString) End If |
| -- 作者：有点蓝 -- 发布时间：2019/9/2 16:46:00 -- 不是1000034才是应用id吗？jo("touser")是要接受消息的用户，建议还是看完微信开发文档 jo("agentid") =1000034 |