屏蔽 Service Controller的调试弹窗

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