Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim url As String = "http://api.jsform.com/api/v1/entry/query"
Dim request As HttpWebRequest = CType(HttpWebRequest.Create(url), HttpWebRequest)
Dim encoding As New UTF8Encoding()
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
request.Credentials = CredentialCache.DefaultCredentials
Dim ddd As String = "{" & Chr(34) & "form_id" & Chr(34) & ":" & Chr(34) & "5a6586b6e7aea961dac4a41d" & Chr(34) & "}"
es(usernamepassword)))
Dim code As String = Convert.ToBase64String(System.Text.Encoding.ASCII.GetBytes(String.Format("{0}:{1}", "5a44aa7fe7aea932ad6b5d56", "DwTTsvTQJGCCZiqwGQVj149YbJ8BHz1D")))
request.Headers.Add("Authorization", "Basic " + code)
Dim bys As Byte() = encoding.GetBytes(ddd)
request.ContentLength = bys.Length
Dim newStream As Stream = request.GetRequestStream()
newStream.Write(bys, 0, bys.Length)
newStream.Close()
Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
TextBox3.Text = sr.ReadToEnd
End Sub
远程服务器返回错误: (415),求大侠指导。