Foxtable(狐表)用户栏目专家坐堂 → 微信企业号中AgentId如何进行微信消息开发


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

主题:微信企业号中AgentId如何进行微信消息开发

帅哥哟,离线,有人找我吗?
malavazos
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
微信企业号中AgentId如何进行微信消息开发  发帖心情 Post By:2019/8/30 11:46:00 [显示全部帖子]

我公司有自己的微信企业号,他给我设定的ID 1000034  给了我的一个SECRET 但是用这个ID是无法使用的,那么这个ID 是否和企业号的Id串接;
另外按照企业号的规定,确定了 相应的TOKEN 及EncodingAESKey   可是测试连接不成功;
费心帮忙指导下

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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2019/8/30 16:39:00 [显示全部帖子]

企业ID是有的,但是对应的信息添加上corpid 并且Secret添加1000034对应的密匙后,无法获得token
显示:

Invalid appid hint :[6SxZya00833942]


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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2019/8/30 20:52:00 [显示全部帖子]

老师 这个可以确认, corpid 是我公司的企业号ID   SECRET 是1000034 id 应用密匙,不是企业号的管理组secret。
不知CORPID 配用 agentid,是否可以正常使用?

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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By: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

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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2019/9/3 12:55:00 [显示全部帖子]

你好
相关的程序已经调通了,利用企业号的主动发消息,显示发送成功,但是我并没有接收到发送的信息?  谢谢

 回到顶部