Dim AccessTocken = "50_XrtT7Xld1qSDgkFqPbXFvMGOiLen2LEclfO5CtCjOof2WvQI2ixbPfGfebymhZC8zq0ggpJhJXHdDW3R-RiWgutHR8fGAkyQYd48G7O7s6imtqm9C9Hw5naLRxizW0jRhiIhW9szi4wgJGEqVTJgAGAKIY"
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
Dim fl As String = "d:\123.jpg"
If hc.GetFile(fl) Then
If hc.ResponseContentType.StartsWith("application/json") Then
MessageBox.Show(Filesys.ReadAllText(fl))
FileSys.DeleteFile(fl) '删除文件
Else
MessageBox.Show("图片素材下载成功!")
End If
Else
MessageBox.Show("图片素材下载失败!")
End If
加好友 
发短信
Post By：2021/10/20 12:18:00 [显示全部帖子]
