Visual Basic

Imports System.Net.Sockets<br />
Imports System.Text<br />
Imports System.Net<br />
<br />
<br />
Public Class Eventlogger<br />
    Const portNumber As Integer = 779<br />
    Dim ipAddress As ipAddress = Dns.Resolve("localhost").AddressList(0)<br />
    Dim tcpListener = New tcpListener(portNumber)<br />
    Private ListenThread<br />
    Private parent As frmMain<br />
    Private TcpClient As tcpClient<br />
    Private password = "test"<br />
    Private listening As Boolean = False<br />
<br />
<br />
<br />
    Public Sub setParent(ByVal frmMain As frmMain)<br />
        parent = frmMain<br />
    End Sub<br />
<br />
    Public Sub startListening()<br />
        parent.btnStartListening.Enabled = False<br />
        parent.btnStopListening.Enabled = True<br />
<br />
        Console.WriteLine("listener started")<br />
        ListenThread = New System.Threading.Thread(AddressOf Listen)<br />
        ListenThread.name = "listener"<br />
        ListenThread.Start()<br />
        listening = True<br />
<br />
<br />
    End Sub<br />
<br />
    Public Sub stopListening()<br />
        parent.btnStartListening.Enabled = True<br />
        parent.btnStopListening.Enabled = False<br />
        listening = False<br />
<br />
        Console.ReadLine()<br />
        tcpListener.Stop()<br />
        Console.WriteLine("listener stopped")<br />
        ListenThread.Join()<br />
<br />
    End Sub<br />
<br />
    Protected Sub Listen()<br />
        While (listening)<br />
            tcpListener.Start()<br />
            Console.WriteLine("Waiting for connection...")<br />
            Try<br />
<br />
<br />
                'Accept the pending client connection and return             <br />
                'a TcpClient initialized for communication. <br />
                TcpClient = tcpListener.AcceptTcpClient()<br />
                Console.WriteLine("Connection accepted.")<br />
<br />
                While (listening)<br />
<br />
<br />
                    ' Get the stream<br />
                    Dim networkStream As NetworkStream = TcpClient.GetStream()<br />
<br />
<br />
                    ' Read the stream into a byte array<br />
                    Dim bytes(TcpClient.ReceiveBufferSize) As Byte<br />
                    networkStream.Read(bytes, 0, CInt(TcpClient.ReceiveBufferSize))<br />
<br />
<br />
<br />
                    ' Return the data received from the client to the console.<br />
                    Dim clientdata As String = Encoding.ASCII.GetString(bytes)<br />
                    Console.WriteLine((clientdata))<br />
<br />
                    If InStr(clientdata, "Password") Then<br />
                        Dim responseString As String = password & vbCrLf & "status" & vbCrLf<br />
                        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)<br />
                        networkStream.Write(sendBytes, 0, sendBytes.Length)<br />
                        Console.WriteLine(("Password send"))<br />
                    End If<br />
                End While<br />
<br />
<br />
                'Dim responseString As String = "Connected to server."<br />
                'Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)<br />
                'networkStream.Write(sendBytes, 0, sendBytes.Length)<br />
                'Console.WriteLine(("Message Sent /> : " + responseString))<br />
<br />
<br />
<br />
                'Any communication with the remote client using the TcpClient can go here.<br />
                'Close TcpListener and TcpClient.<br />
<br />
<br />
                TcpClient.Close()<br />
<br />
            Catch e As Exception<br />
                Console.WriteLine(e.ToString())<br />
                Console.ReadLine()<br />
            End Try<br />
        End While<br />
<br />
    End Sub<br />
    Private Sub closeTab()<br />
        tcpListener = Nothing<br />
    End Sub<br />
<br />
End Class