From eaa75430e7d0581ad529b32dbbb34747768a5dfe Mon Sep 17 00:00:00 2001
From: Wen Momo <momo@inhaos.com>
Date: Wed, 16 Jul 2025 18:27:11 +0800
Subject: [PATCH] =?UTF-8?q?=E5=B1=8F=E8=94=BD=20Service=20Controller?=
 =?UTF-8?q?=E7=9A=84=E8=B0=83=E8=AF=95=E5=BC=B9=E7=AA=97?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 AUTS_ServiceControler/FrmUpdateConfig.vb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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