While press on user you see message

[samirsana]

pls need help on Sockets msg problem see pic and source code pls edit it for me big thx

[sparrow1]

Hi,

Instead of Zip file, show us your code and the part where you have some difficulties with.

Most members, including me, doesn't open zip files.

[samirsana]

#Region "Server Code"
    Private Server As socketServer
    Private ServerOn As Boolean = False
    Private InUse() As Boolean
  
 
    Private Sub serverLogMessage(ByVal Message As String)
        Delegates.RichTextBoxes.appendText(Me, rtbServer, vbCrLf & Message)
    End Sub
 
    Private Sub serverSendToAllConnected(ByVal User As String, ByVal Message As String, Optional ByVal ExceptSock As Integer = -1)
        Dim j As Integer
        If isArraySafe(InUse) Then
            For i As Integer = 0 To InUse.Length - 1
                If Not (i = ExceptSock) Then
                    If InUse(i) Then
 
                        j = CheckedListBox1.SelectedIndex
                        If j < 0 Then
                            MsgBox("Veillez choisir un client ")
                        Else
                            Server.Send(j, "Server:  " & Message)
                        End If
                    End If
                End If
            Next
        End If
    End Sub
 
    Private Sub txtServeSend_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtServeSend.KeyPress
        If e.KeyChar = Chr(Keys.Enter) Then
            If Server IsNot Nothing Then
                serverSendToAllConnected("Your Unlock Code : ", txtServeSend.Text)
                serverLogMessage("Your Unlock Code :  " & txtServeSend.Text)
                txtServeSend.Text = ""
            End If
        End If
    End Sub
 
    Private Sub btnStopServe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStopServe.Click
        If Server Is Nothing Then
            Exit Sub
        Else
            If ServerOn = False Then
                Exit Sub
            Else
                Server.stopListen(True)
                serverLogMessage("No longer serving.")
                ServerOn = False
            End If
        End If
    End Sub
 
    Private Sub btnServe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnServe.Click
        If Server Is Nothing Then
            Server = New socketServer()
        Else
            If ServerOn = False Then
                Server = New socketServer()
            Else
                Exit Sub
            End If
        End If
 
        ServerOn = True
 
        AddHandler Server.IncomingData, AddressOf handleServerIncomingData
        AddHandler Server.Connected, AddressOf handleServerConnected
        AddHandler Server.ConnectionError, AddressOf handleServerConnectionError
        AddHandler Server.ConnectionRefused, AddressOf handleServerConnectionRefused
        AddHandler Server.Disconnected, AddressOf handleServerDisconnected
        AddHandler Server.DisconnectError, AddressOf handleServerDisconnectError
        AddHandler Server.IncomingDataError, AddressOf handleServerIncomingDataError
        AddHandler Server.ListenError, AddressOf handleServerListenError
        AddHandler Server.SendDataError, AddressOf handleServerSendDataError
 
        ReDim InUse(63)
 
        Server.Listen(64, txtServePort.Text)
 
        serverLogMessage("Now serving.")
    End Sub
 
    '************************************************************
    'Primary Socket Functionality
    '************************************************************
    Private Sub handleServerIncomingData(ByVal Sock As Integer, ByRef Data As String)
        If Data.Length > 0 Then
            serverLogMessage(Data)
        End If
    End Sub
 
    Private Sub handleServerConnected(ByVal Sock As Integer, ByVal RemoteAddress As String)
 
        serverLogMessage(RemoteAddress & ":" & Sock)
        count = count + 1
        InUse(Sock) = True
    End Sub
 
    Private Sub handleServerConnectionRefused(ByVal Message As String)
        serverLogMessage(Message)
    End Sub
 
    Private Sub handleServerDisconnected(ByVal Sock As Integer)
        serverLogMessage("Socket " & Sock & ":  Disconnected.")
        count = count - 1
        InUse(Sock) = False
    End Sub
 
    '************************************************************
    'Functional Error Reporting (Below)
    '************************************************************
    Private Sub handleServerConnectionError(ByVal Sock As Integer, ByVal Message As String)
        serverLogMessage("Socket " & Sock & ":  " & Message)
    End Sub
 
    Private Sub handleServerDisconnectError(ByVal Sock As Integer, ByVal Message As String)
        serverLogMessage("Socket " & Sock & ":  " & Message)
    End Sub
 
    Private Sub handleServerIncomingDataError(ByVal Sock As Integer, ByVal Message As String)
        serverLogMessage("Socket " & Sock & ":  " & Message)
    End Sub
 
    Private Sub handleServerListenError(ByVal Message As String)
        serverLogMessage("Error:  " & Message)
        ServerOn = False
    End Sub
 
    Private Sub handleServerSendDataError(ByVal Sock As Integer, ByVal Message As String)
        serverLogMessage("Socket " & Sock & ":  " & Message)
    End Sub
#End Region
 
#Region "Client Code"
    Private Client As socketClient
 
    Private Sub clientLogMessage(ByVal Message As String)
        Delegates.RichTextBoxes.appendText(Me, rtbClient, vbCrLf & Message)
    End Sub
 
    Private Sub btnClientConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClientConnect.Click
        Client = New socketClient()
 
        AddHandler Client.Connected, AddressOf handleClientConnected
        AddHandler Client.ConnectionError, AddressOf handleClientConnectionError
        AddHandler Client.Disconnected, AddressOf handleClientDisconnected
        AddHandler Client.DisconnectError, AddressOf handleClientDisconnectError
        AddHandler Client.IncomingData, AddressOf handleClientIncomingData
        AddHandler Client.IncomingDataError, AddressOf handleClientIncomingDataError
        AddHandler Client.SendDataError, AddressOf handleClientSendDataError
 
        Client.Connect(txtClientIP.Text, txtClientPort.Text)
    End Sub
 
    Private Sub txtClientSend_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtClientSend.KeyPress
        If e.KeyChar = Chr(Keys.Enter) Then
            If Client IsNot Nothing Then
                If Client.isConnected Then
                    Client.Send(txtClientName.Text & ":  " & txtClientSend.Text)
                    clientLogMessage(txtClientName.Text & ":  " & txtClientSend.Text)
                    txtClientSend.Text = ""
                End If
            End If
        End If
    End Sub
 
    '************************************************************
    'Primary Socket Functionality
    '************************************************************
    Private Sub handleClientConnected()
        clientLogMessage("Connected!")
    End Sub
 
    Private Sub handleClientDisconnected()
        clientLogMessage("Disconnected!")
    End Sub
 
    Private Sub handleClientIncomingData(ByRef Data As String)
        If Data.Length > 0 Then
            clientLogMessage(Data)
        End If
    End Sub
 
 
    '************************************************************
    'Functional Error Reporting (Below)
    '************************************************************
    Private Sub handleClientConnectionError(ByVal Message As String)
        clientLogMessage(Message)
    End Sub
 
    Private Sub handleClientDisconnectError(ByVal Message As String)
        clientLogMessage(Message)
    End Sub
 
    Private Sub handleClientIncomingDataError(ByVal Message As String)
        clientLogMessage(Message)
    End Sub
 
    Private Sub handleClientSendDataError(ByVal Message As String)
        clientLogMessage(Message)
    End Sub
#End Region

[sparrow1]

Hi,

Here's an example how to check an item in a checklistbox and show it in a TextBox:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        CheckedListBox1.Items.Add("Send Newsletter")
        CheckedListBox1.Items.Add("Send me Tip of of the Day")
        CheckedListBox1.Items.Add("Send me Deals")
        CheckedListBox1.Items.Add("Authentication")
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sb As New System.Text.StringBuilder
 
        If CheckedListBox1.CheckedItems.Count <> 0 Then
 
            For Each item In CheckedListBox1.CheckedItems
 
                sb.Append(item & " " & Environment.NewLine)
 
                sb.Append("")
            Next
            TextBox1.Text = (sb.ToString())
        Else
            MsgBox("Select an Item")
 
        End If
    End Sub

I hope it helps to give you an idee how to do it in your application.