[求助]发送post请求不成功 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

游览器： General
Request URL:
http://10.188.192.222:7705/apiv1/salerecord/query/
Request Method:
POST
Status Code:
200 OK
Remote Address:
10.188.192.222:7705
Referrer Policy:
strict-origin-when-cross-origin
Response Headers
1. Access-Control-Allow-Credentials:
  true
2. Access-Control-Allow-Origin:
  http://10.188.192.222:8080
3. Content-Length:
  12978
4. Content-Type:
  application/json
5. Vary:
  Origin
X-Frame-Options:
SAMEORIGIN Request Headers
1. Accept:
  text/html,application/xhtml+xml,application/json,;q=0.9,image/webp,*/*;q=0.8,application/x-www-form-urlencoded
2. Accept-Encoding:
  gzip, deflate
3. Accept-Language:
  zh-CN,zh;q=0.9
4. api-key:
  ef4e5c3f1643a6d9984c856f6e8fa9bb
5. Connection:
  keep-alive
6. Content-Length:
  89
7. Content-Type:
  application/x-www-form-urlencoded
8. Host:
  10.188.192.222:7705
9. Origin:
  http://10.188.192.222:8080
10. Referer:
  http://10.188.192.222:8080/
  User-Agent:
  Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/90.0.4430.212 Safari/537.36
Form Data
meal_filter:
[1,2,3]
date_filter:
["2021-05-28"]
machine_filter:
[3,6] ---------------------------------------------------------------------------------------------------------------- 代码1： Dim url As String = "http://10.188.192.222:7705/apiv1/summary/sheet/" Dim msg As String = "meal_filter=[1,2,3]&date_filter=[""2021-05-28""]&machine_filter=[3,6]" 'msg = msg.replace("&", "%26") '增加这个也没有用 output.show(msg) Dim hc As New HttpClient(url) hc.Headers.Add("Content-Type","application/x-www-form-urlencoded") hc.Headers.Add("api-key","ef4e5c3f1643a6d9984c856f6e8fa9bb") hc.content = msg Dim result = hc.GetData msgbox(result)

Dim url As String = "http://10.188.192.222:7705/apiv1/summary/sheet/"

Dim msg As String = "meal_filter=[1,2,3]&date_filter=[""2021-05-28""]&machine_filter=[3,6]"

Dim req = System.Net.WebRequest.Create(url)

req.Method = "POST"

req.Timeout = 5000

req.C

req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:66.0) Gecko/20100101 Firefox/66.0"

Dim aryBuf As Byte() = Encoding.GetEncoding("utf-8").GetBytes(msg)

req.ContentLength = aryBuf.Length

Dim writer = req.GetRequestStream()

writer.Write(aryBuf, 0, aryBuf.Length)

writer.Close()

writer.Dispose()

Dim pos = req.GetResponse

Dim stm As System.IO.Stream = pos.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

pos.Close

stm.Close

reader.close

{"state_code": -1, "msg": "\u8ba4\u8bc1\u5931\u8d25", "data": "\u8bf7\u5148\u767b\u5f55"}

），请问大神应该如何修改？谢谢指导！

主题：[求助]发送post请求不成功