此主题相关图片如下：微信图片_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) 不允许的方法
加好友 
发短信
Post By：2024/1/15 12:15:00 [只看该作者]
