修正温控提示音组包开关位取值和增加上传设备列表密码输入框

BLV_Studio/FrmMain.vb

@@ -5362,6 +5362,9 @@ Public Class FrmMain
     End Function
 
     Private Sub ToolStripButton19_Click(sender As Object, e As EventArgs) Handles ToolStripButton19.Click
+
+        Dim strInputMsg As String = InputBox("请输入上传设备列表密码", "密码确认")
+        If strInputMsg <> "123456" Then Return
         If Releaseflag And Not IsNothing(TvwMain.SelectedNode) Then
         Else
             MsgBox("请选择发布节点")
@@ -5478,6 +5481,8 @@ Public Class FrmMain
     End Sub
 
     Private Sub ToolStripButton23_Click(sender As Object, e As EventArgs) Handles ToolStripButton23.Click
+        Dim strInputMsg As String = InputBox("请输入上传设备列表密码", "密码确认")
+        If strInputMsg <> "123456" Then Return
         If Releaseflag And Not IsNothing(TvwMain.SelectedNode) Then
         Else
             MsgBox("请选择发布节点")