Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports System.Xml


Public Class frmCommander
    Public clsXML As New XMLReaderIO

    Private tcpThread As Thread

    Private Sub frmCommander_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Start thread process for client
        tcpThread = New Thread(AddressOf GetData)
        tcpThread.Start()

        txtOutput.Enabled = False

        clsXML.Read()
    End Sub

    Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
        DisconnectSetup()

        'TcpClient.Close()
    End Sub

    Private Sub ConnectSetup()
        txtOutput.Enabled = True
        btnSend.Enabled = True
        btnDisconnect.Enabled = True

        pnl_RemoteManagement.BringToFront()

    End Sub

    Private Sub DisconnectSetup()
        txtOutput.Enabled = False
        txtOutput.Clear()
        btnSend.Enabled = False

        btnDisconnect.Enabled = False

        pnl_RemoteManagement.SendToBack()
    End Sub

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        Dim sendData As [Byte]() = Encoding.ASCII.GetBytes(txtOutput.Text & "@" & "Test")

        'nStream.Write(sendData, 0, sendData.Length)
    End Sub

    Private Sub picAddLoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picAddLoc.Click
        frmAddLocation.ShowDialog()
    End Sub

    Private Sub lblAddLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblAddLocation.Click
        frmAddLocation.ShowDialog()
    End Sub

    Private Sub picConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picConnect.Click
        If oLV.SelectedItems.Count = 0 Then
            MessageBox.Show("Please select a location to connect to:", "No Selection", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        Else
            Dim strLocationIP As String = oLV.SelectedItems(0).SubItems(3).Text
            Dim tcpClient As New TcpClient
            Dim nStream As NetworkStream = tcpClient.GetStream

            Try
                tcpClient.Connect(strLocationIP, 1979)

                nStream = tcpClient.GetStream()

                If nStream.CanRead And nStream.CanWrite Then
                    Debug.Print("Connected to " & strLocationIP)

                    ConnectSetup()

                    'Thread1.Start()
                    GetData()
                End If

            Catch ex As Exception
                Debug.Print(ex.ToString)
            End Try
        End If

    End Sub

    Private Sub GetData()
        Thread.Sleep(1000)  ' Slight pause
        Dim bytesRead(1024) As Byte ' 1K byte

        '   If nStream.CanRead Then

        Dim sbMessage As StringBuilder = New StringBuilder()
        Dim numberOfBytesRead As Integer = 0

        '   Do
        ' If nStream.CanWrite Then
        ' numberOfBytesRead = nStream.Read(bytesRead, 0, bytesRead.Length)
        sbMessage.AppendFormat("{0}", Encoding.ASCII.GetString(bytesRead, 0, numberOfBytesRead))
        'Else
        Debug.Print("Unable to read data")
        ' End If

        '  Loop While (nStream.DataAvailable)

        Debug.Print(("You received the following message : " + sbMessage.ToString()))
        ' Else
        Debug.Print("Data empty")
        ' End If
    End Sub

    Private Sub lblConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblConnect.Click
        If oLV.SelectedItems.Count = 0 Then
            MessageBox.Show("Please select a location to connect to:", "No Selection", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        Else
            Dim strLocationIP As String = oLV.SelectedItems(0).SubItems(3).Text

            '    Try
            '    TcpClient.Connect(strLocationIP, 1979)

            'nStream = TcpClient.GetStream()

            '   If nStream.CanRead And nStream.CanWrite Then
            Debug.Print("Connected to " & strLocationIP)

            ConnectSetup()
            GetData()

        End If
        ' Catch ex As Exception
        ' Debug.Print(ex.ToString)
        'End Try
        'End If
    End Sub

    Private Sub picConfigManagement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picConfigManagement.Click
        pnl_RemoteManagement.SendToBack()
    End Sub

    Private Sub lblConfigManagement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblConfigManagement.Click
        pnl_RemoteManagement.SendToBack()
    End Sub

    Private Sub btnChangeTZ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChangeTZ.Click
        TZChange.ShowDialog()
    End Sub

    Private Sub btnTaxInNRGTCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTaxInNRGTCheck.Click
        Dim senddata As [Byte]() = Encoding.ASCII.GetBytes("TAXINGT" & "@" & "")

        '  nStream.Write(senddata, 0, senddata.Length)

    End Sub

    Private Sub btnTestMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestMsg.Click
        Dim bytData As [Byte]() = Encoding.ASCII.GetBytes("TESTMSG" & "@" & "HI")
        '   nStream.Write(bytData, 0, bytData.Length)
        '  nStream.Flush()
    End Sub
End Class

Public Class XMLReaderIO
    Dim xmlConfigReader As New XmlTextReader("Locations.xml")
    Dim intID As Integer, intLocationNum As Integer, intMachineNum As Integer
    Dim strIPAddress As String, strLocationName As String

    Public Sub Read()
        ' Read contents of XML File into the Listview

        While xmlConfigReader.Read()
            If xmlConfigReader.Name = "Location" Then
                If xmlConfigReader.HasAttributes Then
                    While xmlConfigReader.MoveToNextAttribute()
                        If xmlConfigReader.Name = "ID" Then
                            intID = CInt(xmlConfigReader.Value)
                        End If
                    End While
                End If
            End If

            If xmlConfigReader.Name = "LocationNumber" Then intLocationNum = Trim(xmlConfigReader.ReadString())
            If xmlConfigReader.Name = "MachineNumber" Then intMachineNum = Trim(xmlConfigReader.ReadString())
            If xmlConfigReader.Name = "LocationName" Then strLocationName = Trim(xmlConfigReader.ReadString())
            If xmlConfigReader.Name = "IPAddress" Then strIPAddress = Trim(xmlConfigReader.ReadString())


            If xmlConfigReader.Name.ToString() = "Location" And xmlConfigReader.NodeType.ToString() = "EndElement" Then
                Debug.Print("ID #" & intID)
                Debug.Print("Loc #" & intLocationNum)
                Debug.Print("Mac #" & intMachineNum)
                Debug.Print("Location Name: " & strLocationName)
                Debug.Print("Location IP: " & strIPAddress)

                ' Add the read data back to the Listview object
                Dim itm As New ListViewItem(intLocationNum.ToString, 0)

                itm.SubItems.Add(intMachineNum.ToString)
                itm.SubItems.Add(strLocationName.ToString)
                itm.SubItems.Add(strIPAddress.ToString)

                clsMain.oLV.Items.Add(itm)
            End If
        End While

        xmlConfigReader.Close()

    End Sub

End Class