甜老师：出现达到最大限额，但是不知道是哪个接口，看了好像都没有达到。。。
{
"errcode": 45009,
"errmsg": "reach max api daily quota limit hint: [ReKUFA09693515]"
}
此主题相关图片如下：微信截图_20180506101652.png
Dim url As String = "https://api.weixin.qq.com/card/giftcard/page/add?access_token={0}"
Dim jo As New JObject
Dim hc As New HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
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") = "pPYXKt6DJWxqkZ2J4hlFz1cpOcso"
ao2("title") = "焦糖拿铁"
ar2.add(ao2)
ao("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)
ao("pic_item_list") = ar3
jo("page")("address") = "XX专卖店"
jo("page")("service_phone") = "13559053751"
jo("page")("biz_description") = "退款指引"
jo("page")("cell_1") = New JObject
jo("page")("cell_1")("title") = "申请fa piao"
jo("page")("cell_1")("url") = "http://baidu.com"
jo("page")("cell_2") = New JObject
jo("page")("cell_2")("title") = "申请退款"
jo("page")("cell_2")("url") = "http://baidu.com"
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
'hc.GetData
output.show(jo.Tostring)
加好友 
发短信
Post By：2018/5/6 10:18:00 [显示全部帖子]
