老师，我如下代码：
Dim url As String = "
https://api.weixin.qq.com/card/giftcard/page/add?access_token={0}"
Dim hc As New HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
Dim jo As New JObject
jo("page") = New JObject
Dim ar As New JArray
Dim ao As New JObject
ao("theme_pic_url") = "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0"
ao("title") = "title_lalala" '缩略图ID
ao("title_color") = "#FB966E"
ar.add(ao)
jo("page")("theme_list") = ar
Dim ar2 As New JArray
Dim ao2 As New JObject
ao2("card_id") = "pPYXKtxUcOcjsfoCbSNNV2uULJOk"
ao2("title") = "焦糖拿铁"
ar2.add(ao2)
jo("page")("item_list") = ar2
Dim ar3 As New JArray
Dim ao3 As New JObject
ao3("background_pic_url") = "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0"
ao3("default_gifting_msg") = "祝福语1"
ao3("outer_img_id") = "outer_img_id"
ar3.add(ao3)
jo("page")("pic_item_list") = ar3
结果变成并列了，实际不是并列的，再往下看：
{
"page": {
"theme_list": [
{
"theme_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"title": "title_lalala",
"title_color": "#FB966E"
}
],
"item_list": [
{
"card_id": "pPYXKtxUcOcjsfoCbSNNV2uULJOk",
"title": "焦糖拿铁"
}
],
"pic_item_list": [
{
"background_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"default_gifting_msg": "祝福语1",
"outer_img_id": "outer_img_id"
}
]
}
}
但是想要这样的效果：
{
"page": {
"page_title": "礼品卡",
"support_multi": true,
"banner_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"theme_list": [
{
"theme_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"title": "title_lalala",
"title_color": "#FB966E",
"item_list": [
{
"card_id": "pbLatjiSj_yVRH5XTb2Zsln7DNQg",
"title": "焦糖拿铁"
}
],
"pic_item_list": [
{
"background_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"default_gifting_msg": "祝福语1",
"outer_img_id": "outer_img_id_1"
}
],
"category_index": 1
}
]
}
}
[此贴子已经被作者于2018/5/6 9:19:08编辑过]
加好友 
发短信
Post By：2018/5/6 0:54:00 [只看该作者]
