关键是我公司的企业号是有很多的应用。管理员如果不提供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编辑过]
加好友 
发短信
Post By：2019/8/30 11:46:00 [只看该作者]
