110,539
社区成员
发帖
与我相关
我的任务
分享
Dim wb As System.Net.WebRequest = WebRequest.Create("https://api.baidu.com/json/sms/v3/AccountService/getAccountInfo")
With wb
.ContentType = "application/json; charset=utf-8"
.Method = "POST"
End With
With wb.Headers
.Add("username", HttpUtility.UrlEncode("****"))'用户名、密码、权限代码、子账户名
.Add("password", "****")
.Add("token", "****")
.Add("target", HttpUtility.UrlEncode("****"))
'用户名和子账户名因为带中文,被提示无效的控制符,所以用urlencode编码了一下
End With
Dim resp As WebResponse = wb.GetResponse
Dim resStream As Stream = resp.GetResponseStream
Dim stmReader As New StreamReader(resStream, System.Text.Encoding.UTF8)
txtResult.Text = Format(Now, "yyyy-MM-dd HH:mm:ss") & vbCrLf & stmReader.ReadToEnd
resStream.Close()
stmReader.Close()
{"header":{"desc":"system failure","failures":[{"code":800,"message":"Server internal error, please try again later.","position":"_sys"}],"status":3}}
DEBUG的时候,能监测到三个HEADER都正确