postman提交没问题，HttpClient提交有问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在postman上提交报文没问题，通过HttpClient 提交提示远程服务器返回错误: (405) 不允许的方法

下载信息 [文件大小：下载次数： ]
点击浏览该文件:水表接入规范v20231219.zip

此主题相关图片如下：微信图片_20240115121421.png

Dim version As String = "1.0"

' Dim encoding As String = "utf8"

Dim BasicTime As New Date(1970, 1, 1, 8, 0, 0)

Dim NowTime As Date = Date.Now '当前时间

Dim TimeStamp As Long = CLng((NowTime - BasicTime).TotalSeconds())

Dim imei_no As String = "65270065264270"

Dim meter_no As String = "53188028"

Dim jo1 As New JObject

jo1("imei_no") = imei_no

jo1("meter_no") = meter_no

Dim s As String = CompressJson(jo1)

Dim content As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(s))

Output.Show("content:" & content)

Dim signature As String = content & version & "utf8" & TimeStamp & "10" & version & "123456"

signature = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(signature, "MD5").Tolower

Output.Show("signature:" & signature)

Dim url As String = "https://www.iotmeter.top:91/api/meterOperate"

Dim jo As New JObject

jo("version") = version

jo("encoding") = "utf8"

jo("timestamp") = timestamp

jo("signature") = signature

jo("signmethod") = "01"

jo("transtype") = "10"

jo("content") = content

Dim hc As New HttpClient(url)

hc.C

Dim s1 As String = CompressJson(jo)

Output.Show(s1)

Dim ret As String = hc.GetData()

Output.Show(ret)

远程服务器返回错误: (405) 不允许的方法

[此贴子已经被作者于2024/1/15 12:27:27编辑过]

……

Dim hc As New HttpClient(url)

hc.ContentType = "application/json"

Dim s1 As String = CompressJson(jo)

Output.Show(s1)

hc.Content = s1

Dim ret As String = hc.GetData()

Output.Show(ret)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:111.txt

必须先将 ContentLength 字节写入请求流，然后再调用 [Begin]GetResponse。

Dim signature As String = cexp("content={0}&encoding=utf8&signmethod=01&timestamp={1}&transtype=10&version=1.0&key=123456",content ,TimeStamp )

signature = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(signature, "MD5").Toupper

还是一样的提示

Dim signature As String = cexp("content={0}&encoding=utf8&signmethod=01&timestamp={1}&transtype=10&version=1.0&key=123456", content , TimeStamp)

signature = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(signature, "MD5").Toupper

Dim url As String = "https://www.iotmeter.top:91/api/meterOperate/"

Dim jo As New JObject

jo("version") = version

jo("encoding") = "utf8"

jo("timestamp") = timestamp

jo("signature") = signature

jo("signmethod") = "01"

jo("transtype") = "10"

jo("content") = content

Dim hc As New HttpClient(url)

hc.C

Dim s1 As String = CompressJson(jo)

Output.Show(s1) ‘显示；{"version":"1.0","encoding":"utf8","timestamp":1705306964,"signature":"153689B8AB7E968CE0718F2A2D6191D7","signmethod":"01","transtype":"10","content":"eyJpbWVpX25vIjoiNjUyNzAwNjUyNjQyNzAiLCJtZXRlcl9ubyI6IjUzMTg4MDI4In0="}

hc.Content = s1

Dim ret As String = hc.GetData()

Output.Show(ret)

[此贴子已经被作者于2024/1/15 16:25:35编辑过]

Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.tls12

感谢感谢，终于可以了，辛苦了

主题：postman提交没问题，HttpClient提交有问题