Dim Access,ulr,jieguo,Post数据
Access = Url.Get("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=jgEUbHPK5werwer67cKEOCj&client_secret=Kg5yqIhj7T456fgdfgAeOoEGuiTG9di")
TracePrint Access
ulr="https://aip.baidubce.com/rest/2.0/image-classify/v1/body_num?access_token="&Access

SnapShot "/sdcard/test1.jpg"

图片转base64不会

Post数据=""不会填

jieguo = Url.Post(ulr, Post数据)