Postman测试结果如下:
POST /api/CommissionOrder/CreateOPlatform HTTP/1.1
Host: sbpi.pinbao.com.cn
Authorization: OAuth oauth_consumer_key="f575053ae9914440…….
Content-Type: application/json
{"OrderNo":"test20200324","BondedType":"3","CustomsCode":"5330","ProductAmount":"116","ShippingAmount":"0",……
我用VB6 的iNET控件总是回应不正确:
Private Sub CommandButton1_Click() 'POST
strSendHeader = "POST /api/CommissionOrder/CreateOPlatform HTTP/1.1" & vbCrLf
strSendHeader = strSendHeader & "Authorization: OAuth oauth_consumer_key=" & Chr(34) & "f575053ae9914440…….
strSendHeader = strSendHeader & "Content-Type: application/json" & vbCrLf
strsenddata = TextBox2.Text
strsendadd = "POST http://sbpi.pinbao.com.cn/api/CommissionOrder/CreateOPlatform"
Inet1.Protocol = icHTTP
Inet1.Execute strsendadd, "POST", strsenddata, strSendHeader
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim getvalue
If State = 12 Then
getvalue = Inet1.GetChunk(1024)
TextBox1.Text = getvalue
End If
End Sub
Textbox2的内容是: {"OrderNo":"test20200324","BondedType":"3","CustomsCode":"5330","ProductAmount":"116","ShippingAmount":"0",……
但结果出现错误 URL is malformed
我以为用inet控件会简单一点, 能请教你xmlhttp要如何编写呢?
