Chat client in

By: Issac  

The Chat Client is a Windows based Application and its main function is to send message to Chat Server. The connection request is one which intiates all sort of acivities and Chat client is responsible for that.

The VB.NET Multithreaded Chat Server Program has two sections.

  • Chat Server
  • Chat Client

The Chat Client here is to connect the PORT 8888 of the Chat Server in “ “. Here we have given “”, because Chat Server and Chat Client are running on the same machine. When we start the Chat Client program, we have to enter a User Name just for identifying in Server. The Client program connect to the Chat Server and starts a Thread for receiving the messages from client, Here we implement an infinite loop in the function getMessage () and call this function in a Thread.


Create a new VB.NET Windows based project and put the source code in it..

Imports System.Net.Sockets
Imports System.Text
Public Class Form1
    Dim clientSocket As New System.Net.Sockets.TcpClient()
    Dim serverStream As NetworkStream
    Dim readData As String
    Dim infiniteCounter As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim outStream As Byte() = _
        System.Text.Encoding.ASCII.GetBytes(TextBox2.Text + "$")
        serverStream.Write(outStream, 0, outStream.Length)
    End Sub

    Private Sub msg()
        If Me.InvokeRequired Then
            Me.Invoke(New MethodInvoker(AddressOf msg))
            TextBox1.Text = TextBox1.Text + _
			 Environment.NewLine + " >> " + readData
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
        readData = "Conected to Chat Server ..."
        clientSocket.Connect("", 8888)
        'Label1.Text = "Client Socket Program - Server Connected ..."
        serverStream = clientSocket.GetStream()

        Dim outStream As Byte() = _
        System.Text.Encoding.ASCII.GetBytes(TextBox3.Text + "$")
        serverStream.Write(outStream, 0, outStream.Length)

        Dim ctThread As Threading.Thread = _
		 New Threading.Thread(AddressOf getMessage)
    End Sub

    Private Sub getMessage()
        For infiniteCounter = 1 To 2
            infiniteCounter = 1
            serverStream = clientSocket.GetStream()
            Dim buffSize As Integer
            Dim inStream(10024) As Byte
            buffSize = clientSocket.ReceiveBufferSize
            serverStream.Read(inStream, 0, buffSize)
            Dim returndata As String = _
            readData = "" + returndata
    End Sub
End Class

Archived Comments

1. Phylliscicky
View Tutorial          By: Phylliscicky at 2017-01-19 10:43:34

2. what items do i add?
View Tutorial          By: Camo at 2015-09-30 23:02:10

3. Thanks a lot man with the server -side code.
View Tutorial          By: bot at 2011-12-03 15:04:28

4. Wow, incredible code!! With some brains this is a perfect start for my new trojan (: ty!
View Tutorial          By: Dem0-n at 2011-06-11 07:10:12

5. Hi. I have implemented the code and controls just the way you have explained above but everytime I t
View Tutorial          By: eibod at 2011-02-13 04:58:44

6. Hi. I have implemented the code and controls just the way you have explained above but everytime I t
View Tutorial          By: eibod at 2011-02-13 04:49:24

7. dd
View Tutorial          By: chandrasekar at 2010-03-29 23:24:46

8. Hii... pls how can I create a aerver with an interface just like the client with it having a listen
View Tutorial          By: WAZIRI at 2010-03-16 11:12:11

9. And how did you do that ?
Can you share it with us ?

View Tutorial          By: Arsenio at 2009-07-18 23:01:00

10. Nevermind, I was able to modify both applications to work well when the client decided to log off.
View Tutorial          By: Matthew at 2009-06-16 14:10:20

11. Okay, I have implemented this and it works, except for one thing. Running it from the compiler, whe
View Tutorial          By: Matthew at 2009-06-16 13:08:48

12. chat
View Tutorial          By: zahra zare at 2009-05-10 07:07:57

Most Viewed Articles (in )

Latest Articles (in

Comment on this tutorial