创建微信礼品卡出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，不知道是哪里错了。。。

此主题相关图片如下：微信截图_20180505180725.png

换成json格式是这样的：

此主题相关图片如下：微信截图_20180505180937.png

代码是这样：

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

jo("card") = New JObject

jo("card")("card_type") = "GENERAL_CARD"

jo("card")("general_card") = New JObject

jo("card")("general_card")("background_pic_url") = "http://mmbiz.qpic.cn/mmbiz_jpg/ahyj0ppmibfofvWc2WArMcvlCkkhDTib89pN5MqvzB31FJkfG699qJxZojLJsGymoFHGNC2vNEoTniaYOqvn6ialXg/0?wx_fmt=jpeg"

jo("card")("general_card")("base_info") = New JObject

jo("card")("general_card")("base_info")("giftcard_info") = New JObject

jo("card")("general_card")("base_info")("giftcard_info")("price") = 1

jo("card")("general_card")("base_info")("logo_url") = "http://mmbiz.qpic.cn/mmbiz_jpg/ahyj0ppmibfpcOE05a69GLXqmSnaMG7qnsnICDL8tKt5uOHnVE0UnFAF41XFXfwHNWDeHHNgY7PE5FA8WPzV3eQ/0"

jo("card")("general_card")("base_info")("max_give_friend_times") = 1

jo("card")("general_card")("base_info")("code_type") = "CODE_TYPE_BARCODE"

jo("card")("general_card")("base_info")("brand_name") = "商贸公司"

jo("card")("general_card")("base_info")("title") = "心意卡"

jo("card")("general_card")("base_info")("color") = "Color010"

jo("card")("general_card")("base_info")("notice") = "使用时向收银员出示此券"

jo("card")("general_card")("base_info")("service_phone") = "13559053751"

jo("card")("general_card")("base_info")("description") = "使用说明..."

jo("card")("general_card")("base_info")("date_info") = New JObject

jo("card")("general_card")("base_info")("date_info")("type") = "DATE_TYPE_PERMANENT"

jo("card")("general_card")("base_info")("sku") = New JObject

jo("card")("general_card")("base_info")("sku")("quantity") = 50000000

jo("card")("general_card")("base_info")("use_all_locations") = True

jo("card")("general_card")("base_info")("get_limit") = 1

jo("card")("general_card")("sub_card_type") = "GIFT_CARD"

jo("card")("general_card")("auto_activate") = True

jo("card")("general_card")("supply_bonus") = False

jo("card")("general_card")("supply_balance") = False

hc.Content = jo.ToString()

'jo = JObject.Parse(hc.GetData)

hc.GetData

output.show(jo.Tostring)

[此贴子已经被作者于2018/5/5 18:10:12编辑过]

主题：创建微信礼品卡出错