另起一贴，关于网页取数的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

模拟登录网页中遇到下面问题

不论用户密码是否正确系统都返回 1

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

Dim 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编辑过]

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

从哪个角度去分析呢？给个方向吧

Net.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编辑过]

主题：另起一贴，关于网页取数的问题