--
Dim hc As New HttpClient("https://www.123.com/api")
hc.ContentType = "application/x-www-form-urlencoded" \'
hc.Headers.Add("token","某某token")
hc.FormData.Add("app_key","某个app_key")
hc.FormData.Add("vin","某某数据")
……其它参数自己补上
Dim ret As String = hc.GetData
msgbox(ret)
[此贴子已经被作者于2019/9/25 12:07:25编辑过]