以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]发送post请求不成功  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169010)
--  作者：jerry727869905
--  发布时间：2021/5/29 22:05:00
--  [求助]发送post请求不成功
  1. 游览器： General
  2. Request URL:
    http://10.188.192.222:7705/apiv1/salerecord/query/
  3. Request Method:
    POST
  4. Status Code:
    200 OK
  5. Remote Address:
    10.188.192.222:7705
  6. Referrer Policy:
    strict-origin-when-cross-origin
  7. 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
  8. 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
  9. meal_filter:
    [1,2,3]
  10. date_filter:
    ["2021-05-28"]
  11. 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)
    13. 代码2：
      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

        output.show(str)

        两端代码都无法正确发送post请求（返回
        {"state_code": -1, "msg": "\\u8ba4\\u8bc1\\u5931\\u8d25", "data": "\\u8bf7\\u5148\\u767b\\u5f55"}
        ），请问大神应该如何修改？谢谢指导！
--  作者：有点蓝
--  发布时间：2021/5/30 20:25:00
--  
接口开发文档或者链接发上来看看
--  作者：jerry727869905
--  发布时间：2021/5/31 21:11:00
--  
蓝老师，这个链接是在公司内网的，通过游览器查询数据，我想通过foxtable做一个可以自动查询发送信息到邮箱的功能，没有接口文档。

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/5/31 22:04:00
--  
如果是自己做的服务端，那么把服务端代码发上来
--  作者：jerry727869905
--  发布时间：2021/6/1 21:12:00
--  
不是自己做的服务端，是跟其他公司购买的，安装在公司内网的服务器上,现在只能通过手动网页查询，要用foxtable自动查询。
--  作者：有点蓝
--  发布时间：2021/6/1 22:01:00
--  
咨询对方要开发文档，或者了解对方接收数据的模式，如果没有，没有办法做