官方说明https://developers.weixin.qq.com/miniprogram/dev/api-backend/open-api/qr-code/wxacode.getUnlimited.html
请问下老师我用下方的代码获取小程序码报错,请问下需要怎么修改才能正确的获取到小程序码图片?
Dim AccessTocken = "50_WbGoWhqYWq1zzvE9bnJfWJpzenvHunazLF73rqj9Ec89lfYRECCpBGWSVw8HIXVkVG9DLDLHGY3AtJBWl5grYgOXEJjydRuvt9P2GLhXIawJgNLz69l6IWyKKDgLcsVFG4VPupT9Pea7W7rwHIWdAHAQRF"
Dim url As String = "https://api.weixin.qq.com/wxa/getwxacodeunlimit?access_token={0}"
Dim hc As New HttpClient(Cexp(url,AccessTocken))
Dim jo As New JObject
jo("scene") ="id=123123" '参数
'jo("page") = "pages/web/web" '必须是已经发布的小程序存在的页面(否则报错)
'jo("width") = "1000" '二维码的宽度,单位 px,最小 280px,最大 1280px
'jo("auto_color") = "false" '自动配置线条颜色,如果颜色依然是黑色,则说明不建议配置主色调,默认 false
'jo("line_color") = "{'r':0,'g':0,'b':0}" 'auto_color 为 false 时生效,使用 rgb 设置颜色 例如 {"r":"xxx","g":"xxx","b":"xxx"} 十进制表示
'jo("is_hyaline") = "true" '是否需要透明底色,为 true 时,生成透明底色的小程序
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
Output.Show(jo.ToString)
此主题相关图片如下：获取小程序码错误.png
加好友 
发短信
Post By：2021/10/20 11:41:00 [只看该作者]
