VB6用inet控件对接api的语法问题

测试积点老人

VB6用inet控件对接api的语法问题
Postman测试结果如下:

1. POST /api/CommissionOrder/CreateOPlatform HTTP/1.1
   
2. Host: sbpi.pinbao.com.cn
   
3. Authorization: OAuth oauth_consumer_key="f575053ae9914440…….
   
4. Content-Type: application/json
   
5. {"OrderNo":"test20200324","BondedType":"3","CustomsCode":"5330","ProductAmount":"116","ShippingAmount":"0",……
   
6. 我用VB6 的iNET控件总是回应不正确:
   
7. Private Sub CommandButton1_Click() 'POST
   
8. strSendHeader = "POST /api/CommissionOrder/CreateOPlatform HTTP/1.1" & vbCrLf
   
9. strSendHeader = strSendHeader & "Authorization: OAuth oauth_consumer_key=" & Chr(34) & "f575053ae9914440…….
   
10. strSendHeader = strSendHeader & "Content-Type: application/json" & vbCrLf
    
11. strsenddata = TextBox2.Text
    
12. strsendadd = "POST <a href="http://sbpi.pinbao.com.cn/api/CommissionOrder/CreateOPlatform">http://sbpi.pinbao.com.cn/api/CommissionOrder/CreateOPlatform</a>"
    
13. Inet1.Protocol = icHTTP
    
14. Inet1.Execute strsendadd, "POST", strsenddata, strSendHeader
    
15. End Sub
    
16. Private Sub Inet1_StateChanged(ByVal State As Integer)
    
17. Dim getvalue
    
18. If State = 12 Then
    
19. getvalue = Inet1.GetChunk(1024)
    
20. TextBox1.Text = getvalue
    
21. End If
    
22. End Sub
    
23. Textbox2的内容是: {"OrderNo":"test20200324","BondedType":"3","CustomsCode":"5330","ProductAmount":"116","ShippingAmount":"0",……
    
24. 但结果出现错误 URL is malformed

复制代码

海海豚

fiddler抓包对比下

郭小贱

自己抓包解析对比下看看哪里有问题啊

jingzizx

多对比，打印查看是否一致

bellas

fiddler抓包对比下

qqq911

url有问题