AUTS_OLD/AUTS_ServiceControler/FrmMain.vb

Imports UTS_Core.UTSModule
Imports UTS_Core.UTSModule.Service

Public Class FrmMain

#Region "窗体初始化"
    ''' <summary>
    ''' 窗体加载时启动项
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        InitSerName()

        InitTabMain()

        InitGrid()

        Text = $"{Application.ProductName} {Application.ProductVersion}"
    End Sub


    Private Sub InitTabMain()
        TabTasks.SizeMode = TabSizeMode.Fixed '隐藏TabControl的表头
        TabTasks.ItemSize = New Size(0, 1)

    End Sub


    ''' <summary> 初始化本地IP </summary>
    Private Sub InitSerName()
        TsCboServiceName.Items.Clear()

        InitUtsServices()

        For Each service As UtsService In _services
            TsCboServiceName.Items.Add(service.Name)
        Next

        If TsCboServiceName.Items.Count > 0 Then TsCboServiceName.SelectedIndex = 0
    End Sub


#End Region


#Region "服务控制信息"
    ''' <summary>
    ''' 所有服务的信息
    ''' </summary>
    Private _services As List(Of UtsService)

    Private _service As UtsService


    Private Sub InitUtsServices()
        _services = New List(Of UtsService)()

        Try
            _services.Add(New UtsService(UtsRegistry.UpdateServiceName, UtsRegistry.UpdateServiceVersion))
        Catch ex As Exception
            Console.WriteLine($"Init UpdateService Error:{ex.Message}")
        End Try


        Try
            _services.Add(New UtsService(UtsRegistry.DataServiceName, UtsRegistry.DataServiceVersion))
        Catch ex As Exception
            Console.WriteLine($"Init DataService Error:{ex.Message}")
        End Try
    End Sub


    ''' <summary>
    ''' 选择下拉框改变值
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsCboServiceName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TsCboServiceName.SelectedIndexChanged
        _service = _services(TsCboServiceName.SelectedIndex)

        TssLblServiceName.Text = $"{_service.Name} {_service.Version} :"
        UpdateServiceStatusTip(_service.ServicesStatus())
    End Sub

    Private Sub TsBtnReflushServices_Click(sender As Object, e As EventArgs) Handles TsBtnReflushServices.Click
        InitSerName()
    End Sub

    ''' <summary>
    ''' 更新服务状态
    ''' </summary>
    ''' <param name="status"></param>
    Private Sub UpdateServiceStatusTip(status As UtsService.ServiceStatusEnum)
        Static tipColor() As Color = {Color.Gray, Color.Red, Color.Aquamarine, Color.Blue, Color.Orange, Color.Blue, Color.Green}

        TssLblServiceStatus.ForeColor = tipColor(status)
        TssLblServiceStatus.Text = $"{ UtsService.GetEnumDescription(status)}"

        UpdateServiceEnabled(status)
    End Sub



    Private Sub UpdateServiceEnabled(status As UtsService.ServiceStatusEnum)
        If status <= UtsService.ServiceStatusEnum.Nonentity Then '服务不存在状态
            TsBtnStartService.Enabled = False
            TsBtnCloseService.Enabled = False
            TsBtnRestartService.Enabled = False
            TsBtnConnService.Enabled = False
            TsBtnServiceInstall.Enabled = False
            TsBtnServiceUninstall.Enabled = False

            If _tcpClient IsNot Nothing Then
                _tcpClient.Close()
                UpdateTcpTip(_tcpClient.IsOpen) '更新连接提示
                UpdateConnectionEnabled(_tcpClient.IsOpen) '根据连接,设置控件可操作性
            End If
        ElseIf status <= UtsService.ServiceStatusEnum.StartPending Then '服务存在未启用状态
            TsBtnStartService.Enabled = True
            TsBtnCloseService.Enabled = True
            TsBtnRestartService.Enabled = True
            TsBtnConnService.Enabled = False

            TsBtnServiceInstall.Enabled = True
            TsBtnServiceUninstall.Enabled = True

            If _tcpClient IsNot Nothing Then
                _tcpClient.Close()
                UpdateTcpTip(_tcpClient.IsOpen) '更新连接提示
                UpdateConnectionEnabled(_tcpClient.IsOpen) '根据连接,设置控件可操作性
            End If
        Else '服务存在且启用状态
            TsBtnStartService.Enabled = True
            TsBtnCloseService.Enabled = True
            TsBtnRestartService.Enabled = True
            TsBtnConnService.Enabled = True
            TsBtnServiceInstall.Enabled = True
            TsBtnServiceUninstall.Enabled = True

            Try
                If _tcpClient Is Nothing Then
                    InitTcpClient()
                    _tcpClient.Open()

                ElseIf _tcpClient.IsOpen = False Then
                    _tcpClient.Open()

                End If

                UpdateTcpTip(_tcpClient.IsOpen) '更新连接提示
                UpdateConnectionEnabled(_tcpClient.IsOpen) '根据连接,设置控件可操作性
            Catch ex As Exception
                Console.WriteLine($"Tcp Client Open Error:{ex.Message}")
            End Try
        End If
    End Sub


    ''' <summary>
    ''' 工具栏检测服务按键
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnTestingServices_Click(sender As Object, e As EventArgs) Handles TsBtnTestingServices.Click
        If _service Is Nothing Then Return
        UpdateServiceStatusTip(_service.ServicesStatus())
    End Sub


    ''' <summary>
    ''' 工具栏点击一键安装
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnServiceInstall_Click(sender As Object, e As EventArgs) Handles TsBtnServiceInstall.Click
        Try
            _service.InstallService()
            MsgBox($"{_service.Name}服务安装成功!")
        Catch ex As Exception
            MsgBox($"InstallService Error:{ex.Message}")
        End Try
        UpdateServiceStatusTip(_service.ServicesStatus())
    End Sub

    ''' <summary>
    ''' 工具栏卸载按键
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnServiceUninstall_Click(sender As Object, e As EventArgs) Handles TsBtnServiceUninstall.Click
        If MsgBox($"是否确定卸载操作", MsgBoxStyle.OkCancel) <> MsgBoxResult.Ok Then Return

        Try
            _service.UnInstallService()
            MsgBox($"{_service.Name}服务卸载成功!")
        Catch ex As Exception
            MsgBox($"UnInstallService Error:{ex.Message}")
        End Try
        UpdateServiceStatusTip(_service.ServicesStatus())
    End Sub

    ''' <summary>
    ''' 工具栏启用服务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnStartService_Click(sender As Object, e As EventArgs) Handles TsBtnStartService.Click
        Try
            _service.StartService()
        Catch ex As Exception
            MsgBox($"StartService Error:{ex.Message}")
        End Try
        UpdateServiceStatusTip(_service.ServicesStatus())
    End Sub

    ''' <summary>
    ''' 工具栏停止服务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnCloseService_Click(sender As Object, e As EventArgs) Handles TsBtnCloseService.Click
        Try
            _service.StopService()
        Catch ex As Exception
            MsgBox($"StopService Error:{ex.Message}")
        End Try
        UpdateServiceStatusTip(_service.ServicesStatus())
    End Sub


    ''' <summary>
    ''' 工具栏重启服务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnRestartService_Click(sender As Object, e As EventArgs) Handles TsBtnRestartService.Click
        Try
            _service.RestartService()
        Catch ex As Exception
            MsgBox($"RestartService Error:{ex.Message}")
        End Try
        UpdateServiceStatusTip(_service.ServicesStatus())
    End Sub

#End Region


#Region "任务表格操作"
    Enum ColNameEnum
        Sn
        Act
        Type
        Name
        Max
    End Enum


    Private Sub InitGrid()
        With Grid1
            .NewFile()
            .BorderStyle = FlexCell.BorderStyleEnum.None
            .BackColorBkg = Color.Transparent
            .DisplayRowNumber = True
            .AutoRedraw = False
            .ExtendLastCol = True
            .Rows = 1
            .Cols = ColNameEnum.Max

            .Column(ColNameEnum.Sn).Width = 20
            .Column(ColNameEnum.Act).Width = 30
            .Column(ColNameEnum.Type).Width = 40
            .Column(ColNameEnum.Act).CellType = FlexCell.CellTypeEnum.CheckBox

            For col As Integer = 0 To ColNameEnum.Max - 1
                .Cell(0, col).Text = [Enum].GetName(GetType(ColNameEnum), col) '设置列名
            Next

            .AutoRedraw = True
            .Refresh()
        End With
    End Sub

    Private Sub Grid1_SelChange(sender As Object, e As FlexCell.Grid.SelChangeEventArgs) Handles Grid1.SelChange
        If e.FirstRow > 0 Then
            TabTasks.SelectedIndex = e.FirstRow - 1
        End If
    End Sub




#End Region


#Region "服务通讯"
    Private _tcpClient As AutsTcpClient

    ''' <summary>
    ''' 连接服务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnConnService_Click(sender As Object, e As EventArgs) Handles TsBtnConnService.Click
        UpdateTcpClient()
    End Sub

    ''' <summary>
    ''' 初始化网络套接字
    ''' 注册表中无端口号时会引发异常
    ''' </summary>
    Private Sub InitTcpClient()
        Static remoteIp As String = "127.0.0.1"
        Static remotePort As Integer = -1 '默认55533,实际使用从注册表中获取

        remotePort = CInt(UtsRegistry.DataServicePort)

        _tcpClient = New AutsTcpClient(remoteIp, remotePort)
    End Sub


    Private Sub UpdateTcpClient()
        Dim tcpConnect As Boolean
        If _tcpClient IsNot Nothing AndAlso _tcpClient.IsOpen Then
            _tcpClient.Close()
            tcpConnect = False
        Else
            Try
                InitTcpClient()
                _tcpClient.Open()
                tcpConnect = True
            Catch ex As Exception
                Console.WriteLine($"Open Tcp Client Error:{ex.Message}")
                tcpConnect = False
            End Try
        End If

        UpdateTcpTip(tcpConnect) '更新连接提示
        UpdateConnectionEnabled(tcpConnect) '根据连接,设置控件可操作性
    End Sub


    ''' <summary>
    ''' 更新网络的提示状态
    ''' </summary>
    ''' <param name="connected">是否连接成功</param>
    Private Sub UpdateTcpTip(connected As Boolean)
        If connected Then
            TssLblConnState.Text = $"已建立TCP连接！"
            TssLblConnState.ForeColor = Color.Green

            TsBtnConnService.Text = $"断连服务"
            TsBtnConnService.ForeColor = Color.Red
        Else
            TssLblConnState.Text = $"无TCP连接！"
            TssLblConnState.ForeColor = Color.Red

            TsBtnConnService.Text = $"连接服务"
            TsBtnConnService.ForeColor = Color.Green
        End If

    End Sub


    Private Sub UpdateConnectionEnabled(connected As Boolean)
        TsBtDelTasks.Enabled = connected
        TsBtnAddTasks.Enabled = connected
        TsBtnStartTasks.Enabled = connected
        TsBtnStopTasks.Enabled = connected
        TsBtnRestartTasks.Enabled = connected
        TsBtnGetTask.Enabled = connected
        TsBtnSetTasks.Enabled = connected
    End Sub

#End Region


#Region "任务命令"
    ''' <summary> 公共用户 </summary>
    Private _user As String = "Root"

    Private _tasks As New TaskForms

    ''' <summary>
    ''' 校验回复字符串
    ''' </summary>
    ''' <param name="replyString"></param>
    ''' <param name="cmdName"></param>
    ''' <returns></returns>
    Private Function CheckReplyString(replyString As String, cmdName As TaskJsonParam.CmdNamesEnum) As TaskJsonParam
        If String.IsNullOrWhiteSpace(replyString) Then Return Nothing

        Dim replyParam As TaskJsonParam
        replyParam = TaskJsonParam.DeserializeFormJson(replyString)

        If replyParam.CmdName <> cmdName Then Return Nothing

        Return replyParam
    End Function


    ''' <summary>
    ''' 添加任务
    ''' </summary>
    Private Sub AddTasks()
        _addFrom = New FrmAddTask
        If _addFrom.ShowDialog <> DialogResult.OK Then Return

        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.AddTasks, _user, Application.ProductName)
        taskParam.TasksInfo.Add(_addFrom.TaskForm.GetParams())
        ServiceCommunicator(taskParam)

        _addFrom.Dispose()
    End Sub


    Private Sub AddTaskGrid(taskStatus As String, taskType As String, taskName As String)
        Grid1.AddItem("")
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Act).Text = CStr(IIf(taskStatus = "Start", "1", "0"))
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Type).Text = taskType
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Name).Text = taskName
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Sn).SetFocus()
    End Sub

    Private Sub ChangeTaskGrid(taskStatus As String, taskType As String, taskName As String)
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Act).Text = CStr(IIf(taskStatus = "Start", "1", "0"))
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Type).Text = taskType
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Name).Text = taskName
        Grid1.Cell(Grid1.Rows - 1, ColNameEnum.Sn).SetFocus()
    End Sub


    Private Sub AddTaskForm(taskForm As ITaskForm)
        Dim tp As New TabPage
        taskForm.ShowForm(tp)
        TabTasks.TabPages.Add(tp)
    End Sub

    Private Sub RemoveTaskGrid(index As Integer)
        Grid1.Row(index + 1).Delete()
    End Sub

    Private Sub RemoveAtTaskForm(index As Integer)
        TabTasks.TabPages.RemoveAt(index)
    End Sub

    Private Sub StartTaskForm(index As Integer)
        Grid1.Cell(index + 1, ColNameEnum.Act).Text = "1"
    End Sub

    Private Sub StopTaskForm(index As Integer)
        Grid1.Cell(index + 1, ColNameEnum.Act).Text = "0"
    End Sub


    ''' <summary>
    ''' 删除任务
    ''' </summary>
    Private Sub DeleteTasks()
        If MsgBox("是否删除当前任务？", MsgBoxStyle.OkCancel) <> MsgBoxResult.Ok Then Return

        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.DeleteTasks, _user, Application.ProductName)
        taskParam.TasksName.Add(Grid1.Cell(TabTasks.SelectedIndex + 1, ColNameEnum.Name).Text)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 开启任务
    ''' </summary>
    Private Sub StartTasks()
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.StartTasks, _user, Application.ProductName)
        taskParam.TasksName.Add(Grid1.Cell(TabTasks.SelectedIndex + 1, ColNameEnum.Name).Text)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 暂停任务
    ''' </summary>
    Private Sub StopTasks()
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.StopTasks, _user, Application.ProductName)
        taskParam.TasksName.Add(Grid1.Cell(TabTasks.SelectedIndex + 1, ColNameEnum.Name).Text)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 获取任务参数
    ''' </summary>
    Private Sub GetTasksParam()
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.GetTasks, _user, Application.ProductName)
        taskParam.TasksName.Add(Grid1.Cell(TabTasks.SelectedIndex + 1, ColNameEnum.Name).Text)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 设置任务参数
    ''' </summary>
    Private Sub SetTasksParam()
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.SetTasks, _user, Application.ProductName)
        taskParam.TasksName.Add(Grid1.Cell(TabTasks.SelectedIndex + 1, ColNameEnum.Name).Text)
        taskParam.TasksInfo.Add(_tasks.GetParams(TabTasks.SelectedIndex))
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 重启任务，立即执行
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnRestartTasks_Click(sender As Object, e As EventArgs) Handles TsBtnRestartTasks.Click
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.RestartTasks, _user, Application.ProductName)
        taskParam.TasksName.Add(Grid1.Cell(TabTasks.SelectedIndex + 1, ColNameEnum.Name).Text)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 工具栏添加任务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnAddTasks_Click(sender As Object, e As EventArgs) Handles TsBtnAddTasks.Click, CmsBtnAddTasks.Click
        AddTasks()
    End Sub


    ''' <summary>
    ''' 工具栏删除任务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtDelTasks_Click(sender As Object, e As EventArgs) Handles TsBtDelTasks.Click, CmsBtnDeleteTasks.Click
        DeleteTasks()
    End Sub


    ''' <summary>
    ''' 工具栏开启任务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnStartTasks_Click(sender As Object, e As EventArgs) Handles TsBtnStartTasks.Click, CmsBtnStartTasks.Click
        StartTasks()
    End Sub

    ''' <summary>
    ''' 工具栏暂停任务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnStopTasks_Click(sender As Object, e As EventArgs) Handles TsBtnStopTasks.Click, CmsBtnStopTasks.Click
        StopTasks()
    End Sub

    ''' <summary>
    ''' 工具栏获取任务参数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnGetTask_Click(sender As Object, e As EventArgs) Handles TsBtnGetTask.Click, CmsBtnGetTasks.Click
        GetTasksParam()
    End Sub

    ''' <summary>
    ''' 工具栏设置任务参数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsBtnSetTasks_Click(sender As Object, e As EventArgs) Handles TsBtnSetTasks.Click, CmsBtnSetTasks.Click
        SetTasksParam()
    End Sub


    ''' <summary>
    ''' 右键菜单全部开启任务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub CmsBtnStartAllTasks_Click(sender As Object, e As EventArgs) Handles CmsBtnStartAllTasks.Click
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.StartAllTasks, _user, Application.ProductName)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 右键菜单全部暂停任务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub CmsBtnStopAllTasks_Click(sender As Object, e As EventArgs) Handles CmsBtnStopAllTasks.Click
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.StopAllTasks, _user, Application.ProductName)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 右键菜单全部删除任务
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub CmsBtnDeleteAllTasks_Click(sender As Object, e As EventArgs) Handles CmsBtnDeleteAllTasks.Click
        If MsgBox("是否删除所有任务？", MsgBoxStyle.OkCancel) <> MsgBoxResult.Ok Then Return
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.DeleteAllTasks, _user, Application.ProductName)
        ServiceCommunicator(taskParam)
    End Sub


    ''' <summary>
    ''' 右键菜单获取全部任务参数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub CmsBtnGetAllTasks_Click(sender As Object, e As EventArgs) Handles CmsBtnGetAllTasks.Click, CmsBtnRefreshList.Click
        Dim taskParam As New TaskJsonParam(TaskJsonParam.CmdNamesEnum.GetAllTasks, _user, Application.ProductName)
        ServiceCommunicator(taskParam)
    End Sub

    ''' <summary>
    ''' 与服务通讯,包含发送，接收，处理过程
    '''→◆Recv:     '接收
    '''←◇Send:     '发送
    ''' </summary>
    ''' <param name="taskParam"></param>
    Private Sub ServiceCommunicator(taskParam As TaskJsonParam)
        Dim aTime As String = Date.Now.ToString("yyyy-MM-dd HH:mm:ss:fff ")
        Try
            Dim jsonString As String = TaskJsonParam.SerializeToJson(taskParam) & vbCrLf
            _tcpClient.WriteJsonString(jsonString)  '发送数据

            AppendTextTip($"←◇Send[{aTime}]{vbLf}", Color.Gray)
            AppendTextTip($"{jsonString}{vbCrLf}", Color.Blue)
        Catch ex As Exception
            MsgBox($"SendJsonString Error:{ex.Message}")
            Return
        End Try

        Dim replyString As String = _tcpClient.ReadJsonString()

        Try
            Dim replyParam As TaskJsonParam = CheckReplyString(replyString, taskParam.CmdName)  '接收数据校验
            AppendTextTip($"→◆Recv[{aTime}]{vbLf}", Color.Gray)
            AppendTextTip($"{replyString}{vbCrLf}", Color.Green)

            If replyParam.CmdStatus = TaskJsonParam.CmdStatusEnum.Pass.ToString() Then
                DealFunction(replyParam)
                TssLblExcuteTip.Text = $"Cmd:{replyParam.CmdName},Excute Pass!"
                TssLblExcuteTip.ForeColor = Color.Green
            Else
                TssLblExcuteTip.Text = $"Cmd:{replyParam.CmdName} {replyParam.CmdStatus},Msg:{replyParam.CmdMsg}"
                TssLblExcuteTip.ForeColor = Color.Red
            End If
        Catch ex As Exception
            TssLblExcuteTip.Text = $"Cmd:{taskParam.CmdName} Deal ReplyString Error:{ex.Message}"
            TssLblExcuteTip.ForeColor = Color.Blue
            Return
        End Try
    End Sub



    Private Sub DealFunction(replyParam As TaskJsonParam)
        Select Case replyParam.CmdName
            Case TaskJsonParam.CmdNamesEnum.AddTasks
                DealAddTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.DeleteTasks
                DealDeleteTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.StartTasks, TaskJsonParam.CmdNamesEnum.RestartTasks
                DealStartTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.StopTasks
                DealStopTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.GetTasks
                DealGetTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.SetTasks
                DealSetTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.StartAllTasks, TaskJsonParam.CmdNamesEnum.RestartAllTasks
                DealStartAllTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.StopAllTasks
                DealStopAllTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.DeleteAllTasks
                DealDeleteAllTasks(replyParam)
            Case TaskJsonParam.CmdNamesEnum.GetAllTasks
                DealGetAllTasks(replyParam)
        End Select
    End Sub


    Private Sub DealStartAllTasks(replyParam As TaskJsonParam)
        For i As Integer = 1 To Grid1.Rows - 1
            Grid1.Cell(i, ColNameEnum.Act).Text = "1"
        Next
    End Sub

    Private Sub DealStopAllTasks(replyParam As TaskJsonParam)
        For i As Integer = 1 To Grid1.Rows - 1
            Grid1.Cell(i, ColNameEnum.Act).Text = "0"
        Next
    End Sub

    Private Sub DealDeleteAllTasks(replyParam As TaskJsonParam)
        Grid1.Rows = 1
        TabTasks.TabPages.Clear()
        _tasks.Clear()
    End Sub


    Private Sub DealGetAllTasks(replyParam As TaskJsonParam)
        DealDeleteAllTasks(replyParam)

        For Each taskInfo As Dictionary(Of String, String) In replyParam.TasksInfo
            Dim taskType As ServiceTask.ServiceTaskTypeEnum = CType([Enum].Parse(GetType(ServiceTask.ServiceTaskTypeEnum), taskInfo("Type")), ServiceTask.ServiceTaskTypeEnum)
            Dim taskForm As ITaskForm
            Select Case taskType
                Case ServiceTask.ServiceTaskTypeEnum.DbSync
                    taskForm = New FrmSyncTasks()
                Case ServiceTask.ServiceTaskTypeEnum.ListenJsonFile
                    taskForm = New FrmListenTasks()
                Case Else
                    Throw New Exception($"Unknow TaskType:{taskType}")
            End Select

            _tasks.Add(taskForm)
            AddTaskForm(taskForm)
            AddTaskGrid(taskInfo("Status"), taskInfo("Type"), taskInfo("Name"))

            taskForm.SetParam(taskInfo)
        Next
    End Sub


    Private _addFrom As FrmAddTask
    Private Sub DealAddTasks(replyParam As TaskJsonParam)
        _tasks.Add(_addFrom.TaskForm)
        AddTaskForm(_addFrom.TaskForm)
        AddTaskGrid("0", _addFrom.TaskForm.GetParams("Type"), _addFrom.TaskForm.GetParams("Name"))
    End Sub

    Private Sub DealDeleteTasks(replyParam As TaskJsonParam)
        _tasks.RemoveAt(TabTasks.SelectedIndex)
        RemoveTaskGrid(TabTasks.SelectedIndex)
        RemoveAtTaskForm(TabTasks.SelectedIndex)
    End Sub

    Private Sub DealStartTasks(replyParam As TaskJsonParam)
        _tasks.SetStatus(TabTasks.SelectedIndex, ServiceTask.ServiceTaskStatusEnum.Start)
        StartTaskForm(TabTasks.SelectedIndex)
    End Sub

    Private Sub DealStopTasks(replyParam As TaskJsonParam)
        _tasks.SetStatus(TabTasks.SelectedIndex, ServiceTask.ServiceTaskStatusEnum.Stop)
        StopTaskForm(TabTasks.SelectedIndex)
    End Sub

    Private Sub DealGetTasks(replyParam As TaskJsonParam)
        For Each taskInfo As Dictionary(Of String, String) In replyParam.TasksInfo
            If taskInfo.ContainsKey("Name") Then
                If _tasks.GetParams(TabTasks.SelectedIndex).Item("Name") = taskInfo.Item("Name") Then
                    ChangeTaskGrid(taskInfo("Status"), taskInfo("Type"), taskInfo("Name"))
                    _tasks.SetParams(TabTasks.SelectedIndex, taskInfo)
                Else
                    Console.WriteLine($"Unsearch Name:{taskInfo.Item("Name")}")
                End If
            Else
                Console.WriteLine($"UnExitst Name Filed!")
            End If
        Next
    End Sub


    Private Sub DealSetTasks(replyParam As TaskJsonParam)


    End Sub

#End Region

#Region "添加通讯记录"
    Private _isShowLog As Boolean = True '是否显示通讯记录数据
    Private _isShowTip As Boolean = True '是否显示通讯记录提示
    Private _isClosing As Boolean = False '是否窗体处于关闭状态
    ''' <summary>
    ''' 添加记录并设置格式
    ''' </summary>
    ''' <param name="str">添加的记录内容</param>
    ''' <param name="cor">需要设置的记录颜色</param>
    Private Sub AppendTextTip(ByVal str As String, ByVal cor As Color)
        Dim selStart As Integer
        Dim selLength As Integer
        selStart = RtxCommunicationLogs.TextLength
        RtxCommunicationLogs.AppendText(str)
        RtxCommunicationLogs.ScrollToCaret()  '关键语句：将焦点滚动到文本内容后 
        selLength = RtxCommunicationLogs.TextLength - selStart
        RtxCommunicationLogs.Select(selStart, selLength)
        RtxCommunicationLogs.SelectionColor = cor
    End Sub

    Private Sub AppendTipText(recordString As String, col As Color)
        If _isClosing Then Return
        If _isShowTip = False Then Return
        If RtxCommunicationLogs.InvokeRequired Then
            RtxCommunicationLogs.Invoke(New Action(Sub()
                                                       If RtxCommunicationLogs.Lines.Count >= 256 Then RtxCommunicationLogs.Clear()
                                                       AppendTextTip($"{recordString}", col)
                                                       RtxCommunicationLogs.ScrollToCaret()
                                                   End Sub))
        Else
            If RtxCommunicationLogs.Lines.Count >= 256 Then RtxCommunicationLogs.Clear()
            AppendTextTip($"{recordString}", col)
            RtxCommunicationLogs.ScrollToCaret()
        End If
    End Sub

    ''' <summary>
    ''' 点击是否收起通讯日志
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsmPackUpRecord_Click(sender As Object, e As EventArgs) Handles TsmPackUpRecord.Click
        SplMain.Panel2Collapsed = Not SplMain.Panel2Collapsed
        If Not SplMain.Panel2Collapsed Then
            TsmPackUpRecord.Text = $"隐藏通讯日志"
        Else
            TsmPackUpRecord.Text = $"显示通讯日志"
        End If

    End Sub

    ''' <summary>
    ''' 点击清空通讯日志
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TsmClearRecord_Click(sender As Object, e As EventArgs) Handles TsmClearRecord.Click
        RtxCommunicationLogs.Clear()
    End Sub

#End Region


#Region "一键配置更新"

    Private Sub TsmConfigUpdate_Click(sender As Object, e As EventArgs) Handles TsmConfigUpdate.Click
        Dim root As String = $"software\AUTS"
        If UtsRegistry.RootDirExists = False Then
            Try
                Microsoft.Win32.Registry.LocalMachine.CreateSubKey($"{root}\LocalDb")
                Microsoft.Win32.Registry.LocalMachine.CreateSubKey($"{root}\AUTS_DataService")
                Microsoft.Win32.Registry.LocalMachine.CreateSubKey($"{root}\AUTS_UpdateService")
            Catch ex As Exception
                Console.WriteLine($"创建注册表项失败! 失败原因：{ex.Message}")
            End Try
        End If

        '配置更新

        Dim result As DialogResult = FrmUpdateConfig.ShowDialog()
        InitSerName()
    End Sub

#End Region


#Region "关闭窗体"

    Private Sub FrmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing

    End Sub


    Private Sub 卸载服务ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 卸载服务ToolStripMenuItem.Click
        Dim filePath As String
        Using fileOpen As OpenFileDialog = New OpenFileDialog()
            fileOpen.Filter = $"服务执行程序(*.exe)|*.exe"
            If fileOpen.ShowDialog() <> DialogResult.OK Then
                Return
            End If
            filePath = fileOpen.FileName
        End Using

        If WinService.UnInstallService(filePath, Nothing) Then
            MsgBox($"路径：{filePath},卸载服务成功")
        Else
            MsgBox($"路径：{filePath},卸载服务失败！")
        End If
    End Sub

    Private Sub 输入路径卸载服务ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 输入路径卸载服务ToolStripMenuItem.Click
        Dim filePath As String = InputBox($"请输入服务执行文件路径", "卸载服务")
        If String.IsNullOrWhiteSpace(filePath) Then
            MsgBox($"路径：{filePath},是无效路径,请重新输入！")
            Return
        End If

        If WinService.UnInstallService(filePath, Nothing) Then
            MsgBox($"路径：{filePath},卸载服务成功")
        Else
            MsgBox($"路径：{filePath},卸载服务失败！")
        End If
    End Sub

#End Region



End Class