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

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

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

jo("data") = New JObject()

通知多个人什么弄

jo9("xxx")

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

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 电脑端上面用这个什么用

电脑上也是这样用的吗

我电脑端上没有手机端的一行代码，如果我要用到电脑端上，是只用这一段代码，还是要加其他代码

此主题相关图片如下：qq浏览器截图20220527113838.png