UTS/AUTS_OLD
Archived
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

屏蔽 Service Controller的调试弹窗

Browse Source
This commit is contained in:
Wen Momo
2025-07-16 18:27:11 +08:00
parent 000ce53775
commit eaa75430e7
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
AUTS_ServiceControler/FrmUpdateConfig.vb
View File

@@ -371,15 +371,15 @@ Public Class FrmUpdateConfig
''' 获取更新服务的最新信息 ''' 获取更新服务的最新信息
''' </summary> ''' </summary>
Private Function GetUpdateServiceInfo(serviceName As String) As UpdatePackageInfo Private Function GetUpdateServiceInfo(serviceName As String) As UpdatePackageInfo
MsgBox("DbConnector.CanConnectToRemote = " & DbConnector.CanConnectToRemote) '’MsgBox("DbConnector.CanConnectToRemote = " & DbConnector.CanConnectToRemote)
If DbConnector.CanConnectToRemote = False Then '判断网络连接状态 If DbConnector.CanConnectToRemote = False Then '判断网络连接状态
Throw New Exception($"无法连接到数据库!") Throw New Exception($"无法连接到数据库!")
End If End If
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString) Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
MsgBox("DBOpen = " & UtsDb.RemoteDbType & " , " & UtsDb.RemoteConnString) '’MsgBox("DBOpen = " & UtsDb.RemoteDbType & " , " & UtsDb.RemoteConnString)
db.Open() db.Open()
MsgBox("DBOpened") 'sgBox("DBOpened")
Dim tableName As String = $"{SwUpdateTable.TableName}" Dim tableName As String = $"{SwUpdateTable.TableName}"
Dim colNames As New List(Of String) From { Dim colNames As New List(Of String) From {
$"{SwUpdateTable.ColNamesEnum.LastVersion}", $"{SwUpdateTable.ColNamesEnum.LastVersion}",
@@ -388,18 +388,18 @@ Public Class FrmUpdateConfig
} }
Dim condition As String = $"`{SwUpdateTable.ColNamesEnum.SoftwareName}` = '{serviceName}'" Dim condition As String = $"`{SwUpdateTable.ColNamesEnum.SoftwareName}` = '{serviceName}'"
MsgBox("dtServiceInfo = " & condition) '’MsgBox("dtServiceInfo = " & condition)
Dim dtServiceInfo As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearch(UtsDb.RemotePublicDb, colNames, tableName, condition)) Dim dtServiceInfo As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearch(UtsDb.RemotePublicDb, colNames, tableName, condition))
If dtServiceInfo.Rows.Count <= 0 Then If dtServiceInfo.Rows.Count <= 0 Then
Throw New Exception($"从数据库获取不到{serviceName}的信息!") Throw New Exception($"从数据库获取不到{serviceName}的信息!")
End If End If
MsgBox("Step369") '’MsgBox("Step369")
Dim packetInfo As New UpdatePackageInfo Dim packetInfo As New UpdatePackageInfo
packetInfo.BinPackageMd5 = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.BinPackageMd5}")) packetInfo.BinPackageMd5 = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.BinPackageMd5}"))
packetInfo.LastVersion = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.LastVersion}")) packetInfo.LastVersion = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.LastVersion}"))
packetInfo.PackageName = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.PackageName}")) packetInfo.PackageName = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.PackageName}"))
MsgBox("Step401") '’MsgBox("Step401")
db.Close() db.Close()
Return packetInfo Return packetInfo
End Using End Using