Excel Forum

Code: Select all

 Private Sub Hosting_port()
        Try
            MyTcpListener = New TcpListener(IPAddress.Any, 6666)
            MyTcpListener.Start()
            While True
                Try
                    MySocket = MyTcpListener.AcceptSocket
                    Dim MyNetworkStream As NetworkStream = New NetworkStream(MySocket)
                    Dim Mystr As StreamReader = New StreamReader(MyNetworkStream)

                    While True

                        DataArray = Split(Mystr.ReadLine, ",")
                        MsgBox(DataArray)
                        Temp = DataArray(0)
                        Humi = DataArray(1)

                        Dim colum1, colum2, colum3 As String
                        colum1 = txtTime
                        colum2 = DataArray(0)
                        colum3 = DataArray(1)

                        Dim filename As String = "" & FN & "" & txtDate1 & ".txt"
                        Dim writer As System.IO.StreamWriter = New StreamWriter(filename, True)
                        writer.WriteLine("Time  " & colum1 & "  Temp.   " & colum2 & "  Humidity    " & colum3)
                        writer.Close()
                    End While
                Catch ex1 As Exception
                    MessageBox.Show("Can't Receive", "WiFiLogtech Message:...")
                End Try
            End While
        Catch ex As Exception
            MessageBox.Show("Disconnect", "WiFiLogtech Message:...")
        End Try
    End Sub