[求助]如何从中控服务获取access_token - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

哥哥，叫您一声亲哥，从昨晚到现在都没折腾明白，你就直接指点一下吧。

'给用户推送信息

Dim id As String = Tables("微信工单").Current("openid")

Dim txt As String

txt = txt & Tables("微信工单").Current("nickname") & "你好:" & vbcrlf

txt = txt & "您的工单状态已变更为等待调度,正在给您分配工程师" & vbcrlf

txt = txt & "敬请关注" & vbcrlf

Dim text As String = "{""touser"":""" & id & """,""msgtype"":""text"",""text"":{""content"":""" & txt & """}}"

Dim wechatServ As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server(_AppId)

Dim weRet = wechatServ.SendMsgController.SendMessage(text)

If weRet.Success Then

MessageBox.Show("已给用户发送状态变更消息!")

Else

MessageBox.Show("给用户发送的状态变更消息失败!" & weRet.ErrorMessage)

End If

用上面的方法客户端是可以成功给指定openid发送消息的，就说明这个过程调取的access_token是成功的，我现在想要单独获取到这个access_token

Dim url As String = "https://api.weixin.qq.com/cgi-bin/message/template/send?access_token={0}"
Dim hc As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))
Dim jo As New JObject
Dim ja As New JArray
jo("touser") = "ofjtFwBSZ5cNqTKLSKx2TNEAxfBI"
jo("template_id") = "WPpt3ki1Haq-ERpQvWXAgT7IZbfO07mbKtjnRt1Kiek" '模板ID
jo("url") = "http://www.foxtable.com"
jo("data") = New JObject()
jo("data")("name") = New JObject()
jo("data")("name")("value") = "Foxtable"
jo("data")("name")("color") = "#173177"
jo("data")("number") = New JObject()
jo("data")("number")("value") = "2"
jo("data")("number")("color") = "#173177"
jo("data")("expDate") = New JObject()
jo("data")("expDate")("value") = "2019年12月27日"
jo("data")("expDate")("color") = "#173177"
jo("data")("expDate") = New JObject()
jo("data")("expDate")("value") = "2019年12月27日"
jo("data")("expDate")("color") = "#173177"
jo("data")("remark") = New JObject()
jo("data")("remark")("value") = "如有疑问,可联系客服QQ:800014337"
jo("data")("remark")("color") = "#173177"
hc.content = jo.Tostring()
jo = JObject.Parse(hc.getdata)
If jo("errcode") = "0" Then
MessageBox.show("模版消息发送成功!")
Else
Messagebox.Show(jo.ToString)
End If

我现在想用上面的办法发送模板消息，因为上面的方法看的明白（不会用WeChat.MPSendTemplate），这里面是通过自定义函数GetAccessToken用于获取access_token，我现在中控服务器是使用UDP服务端做中控服务，我想请教您在这种情况我我想得到access_token这个字符串该怎么弄。

帮助已经看了好多遍了，水平确实有限，脑子都浆糊了

[此贴子已经被作者于2019/3/20 15:45:15编辑过]

主题：[求助]如何从中控服务获取access_token