Boonlive_RD_Web/Desktop_BLVStudio
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

优化回路上传页面、节能属性上传页面、限制内部预留服务

Browse Source
This commit is contained in:
chenzhihao
2026-01-05 11:03:10 +08:00
parent 5e9358ffb9
commit f845225ed7
10 changed files with 198 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
BLV_Studio/FrmLogin.vb
View File

@@ -97,7 +97,7 @@ Public Class BFrmLogin
End Sub
Private Function GetAccountAuth(user As String, pwd As String, appid As Integer) As LoginReturn
Dim jsonString As String = HttpMothod.PostData("http://47.119.147.104:90/OTApi/Login", $"Uid={user}&Pwd={pwd}&appid={_appid}")
Dim jsonString As String = HttpMothod.PostData("http://auth.blv-oa.com/OTApi/Login", $"Uid={user}&Pwd={pwd}&appid={_appid}")
If String.IsNullOrWhiteSpace(jsonString) Then Throw New Exception($"<EFBFBD>û<EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>쳣<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա")
Dim login As LoginReturn = JsonConvert.DeserializeObject(Of LoginReturn)(jsonString)