共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：另起一贴，关于网页取数的问题
1楼
aidimeng 发表于：2024/1/13 7:30:00模拟登录网页中遇到下面问题
此主题相关图片如下：微信截图_20240113075846.png
不论用户密码是否正确 系统都返回 1
此主题相关图片如下：微信截图_20240113075846.pngDim hc1 As New HttpClient("https://www.iotmeter.top/#/user/login")
hc1.sCookies.Add("LoginCode", "*****")
hc1.sCookies.Add("Password", "6666669")
'hc1.sCookies.Add("submit", "xxxx") ‘ 这里的登录按钮是否要写
'hc1.sCookies.Add("userType", "")
Dim ret As String = hc1.getData()
If hc1.rCookies.ContainsKey("error") Then
MessageBox.show(hc1.RCookies("error"), "错误", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show("1")
End If
[此贴子已经被作者于2024/1/13 8:03:47编辑过]
2楼
有点蓝 发表于：2024/1/13 9:07:00如果是自己开发的服务端，把服务端项目发过来看看。
如果是别人的服务端，只能自行研究了。不知道别人的服务端是怎么接收处理的
3楼
aidimeng 发表于：2024/1/13 9:13:00此主题相关图片如下：微信截图_20240113091030.png
从哪个角度去分析呢？给个方向吧
4楼
有点蓝 发表于：2024/1/13 9:48:00第一行加上：Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls11 ‘不行就Tls12、Tls13都试一遍
如果也不行，在不知道别人的服务端是怎么接收处理的情况下，什么角度都没有用
5楼
aidimeng 发表于：2024/1/14 0:32:00Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.tls12
Dim meterNo As String = ""
Dim useTimeDetail As Date = "2024-01-01 00:00:00"
Dim accessToken As String = Functions.Execute("login")
Dim url As String = "https://www.iotmeter.top:91/api/run-detail-water/detail-by-page "
Dim jo As New JObject
jo("meterNo") = meterNo
jo("useTimeDetail") = useTimeDetail
Dim hc As New HttpClient(url)
hc.Headers.Add("Authorization", "Bearer" & accessToken)
hc.Headers.Add("Accept", "application/json, text/javascript, */*; q=0.01")
hc.C
hc.Content = jo.ToString
如下图，accessToken 的值可以获取到，因为没有接口说明文档，只能参考F12 来完成，上面语句执行 返回 远程服务器返回错误: (401) 未经授权，怀疑是accessToken 的值传递有问题
此主题相关图片如下：微信截图_20240114005032.png
此主题相关图片如下：微信截图_20240114002832.png
此主题相关图片如下：微信截图_20240114002812.png
[此贴子已经被作者于2024/1/14 1:13:53编辑过]
6楼
有点蓝 发表于：2024/1/14 19:14:00没有文档去咨询接口提供方，问我们没有用
共6 条记录, 每页显示 10 条, 页签:
[1]