1. Read the question carefully


2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar


3. If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome


4. If the question is inappropriate then click the 'vote to remove message' button

1. Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
   
   
2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
   
   
3. Keep the subject line brief, but descriptive. eg "File Serialization problem"
   
   
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
   
   
5. Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
   
   
6. Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
   
   
7. If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode HTML tags when pasting" checkbox before pasting anything inside the PRE block, and make sure "Ignore HTML tags in this message" check box is unchecked.
   
   
8. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
   
   
9. Please do not post links to your question in one forum from another, unrelated forum (such as the lounge). It will be deleted.
   
   
10. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
    
    
11. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
    
    
12. No advertising or soliciting.
    
    
13. We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

Imports System.Text
Imports System.Net.Sockets

Public Class Chat

    Public ipbox As String = "localhost"
    Public portbox As String = "5090"
    Dim TextEnter As New TextBox
    Dim TextSender As New TextBox



    Public Delegate Sub DisplayInvoker(ByVal t As String)
    Private Declare Function FlashWindow Lib "user32" _
  (ByVal hwnd As Long, _
   ByVal bInvert As Long) As Long

    Dim a As String
    Dim b As String
    Dim hrs, secs, mins As Integer
    Dim f As Integer

    Private myclient As TcpClient
    Private mydata(1024) As Byte
    Private mytext As New StringBuilder()
    Public mainClient As String


    'procedure to send strings to the server
    Private Sub Send(ByVal t As String)
        On Error Resume Next
        Dim w As New IO.StreamWriter(myclient.GetStream)
        w.Write(t & vbCr, & System.Text.Encoding.UTF32)
        w.Flush()
    End Sub

    'reads bytes from the server
    Private Sub DoRead(ByVal ar As IAsyncResult)
        Dim intCount As Integer

        Try
            intCount = myclient.GetStream.EndRead(ar)
            If intCount < 1 Then
                chatbox.AppendText("Disconnected" & vbCrLf)
                Exit Sub
            End If

            BuildString(mydata, 0, intCount)

            myclient.GetStream.BeginRead(mydata, 0, 1024, AddressOf DoRead, Nothing)
        Catch e As Exception
            
        End Try
    End Sub

    'transforms bytes into strings
    Private Sub BuildString(ByVal Bytes() As Byte, ByVal offset As Integer, ByVal count As Integer)
        Dim intIndex As Integer

        For intIndex = offset To offset + count - 1
            If Bytes(intIndex) = 10 Then
                mytext.Append(vbLf)

                Dim params() As Object = {mytext.ToString}
               
                Me.Invoke(New DisplayInvoker(AddressOf Me.DisplayText), params)

                mytext = New StringBuilder()
                
            Else
                mytext.Append(ChrW(Bytes(intIndex)))
            End If
        Next
    End Sub


    'displays the received text to the chat box
    Private Sub DisplayText(ByVal t As String)
        

        If LSet(t, 5) = "clear" Then
            friendsbox.Items.Clear()
            chatbox.AppendText("")
        Else
            If LSet(t, 7) = "client:" Then
                f = len(t)
                b = (Strings.Right(t, f - 7))
                friendsbox.Items.Add(Strings.Left(b, Len(b) - 2), 0)
                chatbox.AppendText("")
            Else
                If LSet(t, 8) = "closenow" Or LSet(t, 5) = "User:" Then
                    chatbox.AppendText("")
                Else
                   
                    t.Replace("<BR>", vbCrLf)
                    chatbox.AppendText(t)
                    'chatbox.AppendText("------------------------------------------------------------------------------" & vbCrLf)
                    FlashWindow(Me.Handle.ToInt64, True)
                End If

            End If
        End If
    End Sub

    'sends the text from the sendbox when pressing ENTER
    Private Sub sendbox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles sendbox.KeyDown
        If e.KeyCode = Keys.Return Then
            btnEnviar.PerformClick()

                 End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        secs = secs + 1
      
        GroupBox1.Text = "Conectado a : " & hrs & ":" & mins & ":" & secs
        If secs = 60 Then
            mins = mins + 1
            secs = 0
        End If
        If mins = 60 Then
            hrs = hrs + 1
            mins = 0
        End If


    End Sub

    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Send("closenow" & a)
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles friendsbox.SelectedIndexChanged

    End Sub

    Private Sub btnSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Close()
    End Sub

    Private Sub PortAndIPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PortAndIPToolStripMenuItem.Click

    End Sub

    Private Sub DisconectarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconectarToolStripMenuItem.Click
        Send("closenow" & a)
        chatbox.AppendText("Disconnected" & vbCrLf)
      
        sendbox.Enabled = False
        Timer1.Enabled = False
      
        GroupBox1.Text = "00:00:00"
                DisconectarToolStripMenuItem.Visible = False
    End Sub

    Private Sub Chat_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Send("closenow" & a)

    End Sub

    Private Sub Chat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        If ipbox <> "" And portbox <> "" Then
            chatbox.AppendText("Requesting Connection..." & vbCrLf)
            On Error GoTo 10
            ipbox = InputBox("Digite o IP", "Digite o IP")

            myclient = New TcpClient(ipbox, portbox)
            myclient.GetStream.BeginRead(mydata, 0, 1024, AddressOf DoRead, Nothing)
            'Status1.Panels(0).Text = "Requesting Connection..."
            GroupBox1.Text = "Requesting Connection..."
            chatbox.AppendText("Connected..." & vbCrLf)
            chatbox.AppendText("------------------------------------------------------------------------------" & vbCrLf)
            'Status1.Panels(0).Text = "Connected to " & ipbox & ":" & portbox
            ChatGroupBox.Text = "Chat  -  Conectado ao IP : " & ipbox & " - Porta : " & portbox
            Timer1.Enabled = True
            a = InputBox("Enter Nickname:", "Chat 2003")
            If a = "" Then
                MessageBox.Show("Digite um Nick") ' NÃO SERÁ NESCESSÁRIO DEPOIS PORQUE AQUI IRÁ FIKA O NOME DO USUÁRIO LOGADO
                Close()
            Else
                Send("User:" & a)
                sendbox.Enabled = True
                DisconectarToolStripMenuItem.Visible = True
            End If

        End If
10:     If sendbox.Enabled = False Then
            chatbox.AppendText("Unable to resolve to Server...Please try again")
        End If
        mainClient = ""

        sendbox.Select()
    End Sub

    Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
        Send("closenow" & a)
        Close()
    End Sub

    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        If sendbox.Text = "" Then
            sendbox.Text = ""

        Else
            Dim text As String = sendbox.Text

            text = sendbox.Text.Replace(vbCr, "<BR>")
            text = Replace(text, vbLf, "")
            text = text.Trim(" ")

            Send(a & " - disse:  " & text)
            Chr(8)
            sendbox.Clear()
            sendbox.Select()

        End If

    End Sub

Imports System.Net.Sockets
Imports System.Text
Public Class Client
    'References: Microsoft Developers Library(http://msdn.microsoft.com)


    'the main client class
    Public Event Connected(ByVal sender As Client)
    Public Event Disconnected(ByVal sender As Client)
    Public Event LineReceived(ByVal sender As Client, ByVal Data As String)

    Private mgID As Guid = Guid.NewGuid
    Private marData(1024) As Byte
    Private mobjText As New StringBuilder()

    ' only one of the following is used at any time
    Private mobjClient As TcpClient
    Private mobjSocket As Socket

    ' initialize with a raw socket
    Public Sub New(ByVal s As Socket)
        mobjSocket = s
        RaiseEvent Connected(Me)
        mobjSocket.BeginReceive(marData, 0, 1024, SocketFlags.None, AddressOf DoReceive, Nothing)
    End Sub

    ' initialize with a TcpClient object
    Public Sub New(ByVal client As TcpClient)
        mobjClient = client
        RaiseEvent Connected(Me)
        mobjClient.GetStream.BeginRead(marData, 0, 1024, AddressOf DoStreamReceive, Nothing)
    End Sub

    'identify a client 
    Public ReadOnly Property ID() As String
        Get
            Return mgID.ToString
        End Get
    End Property

    'gets the received bytes
    Private Sub DoStreamReceive(ByVal ar As IAsyncResult)
        Dim intCount As Integer

        Try
            SyncLock mobjClient.GetStream
                intCount = mobjClient.GetStream.EndRead(ar)
            End SyncLock
            If intCount < 1 Then
                RaiseEvent Disconnected(Me)
                Exit Sub
            End If

            BuildString(marData, 0, intCount)
            SyncLock mobjClient.GetStream
                mobjClient.GetStream.BeginRead(marData, 0, 1024, AddressOf DoStreamReceive, Nothing)
            End SyncLock
        Catch e As Exception
            RaiseEvent Disconnected(Me)
        End Try
    End Sub

    'gets the received bytes
    Private Sub DoReceive(ByVal ar As IAsyncResult)
        Dim intCount As Integer

        Try
            intCount = mobjSocket.EndReceive(ar)
            If intCount < 1 Then
                RaiseEvent Disconnected(Me)
                Exit Sub
            End If

            BuildString(marData, 0, intCount)

            mobjSocket.BeginReceive(marData, 0, 1024, SocketFlags.None, AddressOf DoReceive, Nothing)
        Catch e As Exception
            RaiseEvent Disconnected(Me)
        End Try
    End Sub

    'transforms bytes to strings
    Private Function ByteToString(ByVal Bytes() As Byte) As String
        Dim objSB As New System.Text.StringBuilder(UBound(Bytes) + 1)
        Dim intIndex As Integer

        With objSB
            For intIndex = 0 To UBound(Bytes)
                .Append(ChrW(Bytes(intIndex)))
            Next
            Return .ToString
        End With
    End Function

    'transforms bytes to strings
    Private Function ByteToString(ByVal Bytes() As Byte, ByVal offset As Integer, ByVal count As Integer) As String
        Dim objSB As New System.Text.StringBuilder(count)
        Dim intIndex As Integer

        With objSB
            For intIndex = offset To offset + count - 1
                .Append(ChrW(Bytes(intIndex)))
            Next
            Return .ToString
        End With
    End Function

    Private Sub BuildString(ByVal Bytes() As Byte, ByVal offset As Integer, ByVal count As Integer)
        Dim intIndex As Integer

        For intIndex = offset To offset + count - 1
            If Bytes(intIndex) = 13 Then
                RaiseEvent LineReceived(Me, mobjText.ToString)
                mobjText = New StringBuilder()
            Else
                mobjText.Append(ChrW(Bytes(intIndex)))
            End If
        Next
    End Sub

    'sends to the clients
    Public Sub Send(ByVal Data As String)
        If IsNothing(mobjClient) Then
            Dim arData(Len(Data) - 1) As Byte
            Dim intIndex As Integer

            For intIndex = 1 To Len(Data)
                arData(intIndex - 1) = Asc(Mid(Data, intIndex, 1))
            Next

            mobjSocket.BeginSend(arData, 0, Len(Data), SocketFlags.None, Nothing, Nothing)
        Else
            SyncLock mobjClient.GetStream
                Dim w As New IO.StreamWriter(mobjClient.GetStream)
                w.Write(Data)
                w.Flush()
            End SyncLock
        End If
    End Sub

    'sends to the clients
    Public Sub Send(ByVal Data() As Byte, ByVal offset As Integer, ByVal count As Integer)
        If IsNothing(mobjClient) Then
            mobjSocket.BeginSend(Data, offset, count, SocketFlags.None, Nothing, Nothing)
        Else
            SyncLock mobjClient.GetStream
                mobjClient.GetStream.BeginWrite(Data, offset, count, Nothing, Nothing)
            End SyncLock
        End If
    End Sub


End Class

Norm .net wrote:

You need to refactorize the incoming param list, and possible invoke the method if concurrency is required, also create a method extension this will help during execution of the object.

Johnkokk wrote:

Does it make sense to you ?