Dim hc As New HttpClient("https://jinshuju.net/api/v1/forms/1F34Qv")
hc.Accept = "application/json"
hc.Headers.Add("Authorization","Basic " + Convert.ToBase64String(Syste.Text.Encoding.UTF8.GetBytes("账号:密码")))
hc.ContentType = "application/json"
hc.Content = "{某需要提交的json数据}"
Dim ret As String = hc.GetData()