"Shawnmb" wrote:

> Hi everybody,
> I'm still relatively new to VB.NET, so please excuse me in my
> noobishness :)
> So far I have started working off of a client/server socket tutorial
> (http://www.eggheadcafe.com/articles/20020323.asp), essentially I'm
> writing a console application that listens on a specific port and
> outputs all data to the console, later on I would like to add replies
> to specific incoming data. I also am not sure what encoding the
> incoming data will be, I'm not sure how to have VB figure that out.
>
> Here is the code so far (nothing special at all):
>
> Imports System.Net
> Imports System.Net.Sockets
> Imports System.Text
> Imports System.IO
> Imports System.Random
>
> Module Module1
> Sub Main()
> Console.WriteLine("Loading...")
> Const portNum As Integer = 2107
> Console.WriteLine("Port " & portNum & " bound.")
> Dim Listener As New System.Net.Sockets.TcpListener(portNum)
> Console.WriteLine("Waiting for a connection...")
> Listener.Start()
>
> Try
> Dim tcpClient As TcpClient = Listener.AcceptTcpClient()
> Console.WriteLine("Connection established.")
> Dim networkStream As NetworkStream = tcpClient.GetStream()
> Dim bytes(tcpClient.ReceiveBufferSize) As Byte
> networkStream.Read(bytes, 0,
> CInt(tcpClient.ReceiveBufferSize))
> Dim clientdata As String = Encoding.ASCII.GetString(bytes)
> Console.WriteLine(("Recieved: " + clientdata))
>
> 'We aren't sending a response yet ^^
> 'Dim responseString As String = "Connected."
> 'Dim sendBytes As [Byte]() =
> Encoding.ASCII.GetBytes(responseString)
> 'networkStream.Write(sendBytes, 0, sendBytes.Length)
> If clientdata = "exit" Then
> tcpClient.Close()
> Listener.Stop()
> End
> End If
>
> Catch e As Exception
> MsgBox("Boom")
> Console.WriteLine(e.ToString())
> Console.ReadLine()
> End Try
>
> End Sub
>
> End Module
>
> Does anyone have any suggestions or tips for me? ^_^
> Thanks,
> Shawn
>