老师,如下问题:
Dim url As String = "https://api.weixin.qq.com/card/create?access_token={0}"
Dim hc As New HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
Dim jo As New JObject
Dim ja As New JArray
jo("card") = New JObject()
jo("card")("card_type") = "GENERAL_COUPON"
jo("card")("general_coupon") = New JObject()
jo("card")("general_coupon")("base_info") = New JObject()
jo("card")("general_coupon")("base_info")("brand_name") = "AAA"
jo("card")("general_coupon")("base_info")("title") = title
jo("card")("general_coupon")("Advanced_info") = New JObject()
下面这一段不懂的怎么写:
'jo("card")("general_coupon")("Advanced_info")("time_limit") = New JObject()
Dim ar As New JArray
'For i As Integer = 1 To 1 '可以有多段图文
Dim ao As New JObject
ao("type") = "monday"
ao("begin_hour") = 10
ao("end_hour") = 22
ao("begin_minute") = 01
ao("end_minute") = 30
ar.add(ao)
'Next
jo("card")("general_coupon")("Advanced_info")("time_limit") = ar
微信文档是这样:
{
"card": {
"card_type": "GROUPON",
"groupon": {
"base_info": {
"brand_name": "微信餐厅",
"title": "132元双人火锅套餐",
},
"advanced_info": {
"time_limit": [
{
"type": "MONDAY",
"begin_hour":0,
"end_hour":10,
"begin_minute":10,
"end_minute":59
},
{
"type": "HOLIDAY"
}
],
},
}
}
}