Foxtable(狐表)用户栏目专家坐堂 → 这个代码是放在哪个事件里


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

主题:这个代码是放在哪个事件里

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


加好友 发短信
等级:六尾狐 帖子:1210 积分:8122 威望:0 精华:0 注册:2013/6/8 16:19:00
这个代码是放在哪个事件里  发帖心情 Post By:2022/5/25 17:49:00 [只看该作者]

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") = "20191227"
jo
("data")("expDate")("color") = "#173177"
jo
("data")("expDate") = New JObject()
jo
("data")("expDate")("value") = "20191227"
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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:87726 积分:445185 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 8:35:00 [只看该作者]

放到任何想发送消息的地方

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


加好友 发短信
等级:六尾狐 帖子:1210 积分:8122 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/5/26 9:05:00 [只看该作者]

这个发给指定的用户,要什么加条件

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:87726 积分:445185 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 9:16:00 [只看该作者]

jo("touser") = "指定用户的openid"

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


加好友 发短信
等级:六尾狐 帖子:1210 积分:8122 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/5/26 11:25:00 [只看该作者]

jo("data") = New JObject()


这里不可以自定义内容吗
[此贴子已经被作者于2022/5/26 11:26:33编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:87726 积分:445185 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 11:56:00 [只看该作者]

dim jo9 as new JObject()
jo9("xxx") = "xxx"
jo("data") = jo9 

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


加好友 发短信
等级:六尾狐 帖子:1210 积分:8122 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/5/26 12:16:00 [只看该作者]

通知多个人什么弄

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


加好友 发短信
等级:六尾狐 帖子:1210 积分:8122 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/5/26 12:18:00 [只看该作者]

jo9("xxx")
xxx是自定义名称吗

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:87726 积分:445185 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 13:32:00 [只看该作者]

任意名称:http://www.foxtable.com/mobilehelp/topics/0167.htm

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


加好友 发短信
等级:六尾狐 帖子:1210 积分:8122 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/5/26 20:06:00 [只看该作者]

电脑端也用这个提示,是什么弄的

 回到顶部
总数 31 1 2 3 4 下一页