pls need help on Sockets msg problem see pic and source code pls edit it for me big thx
Printable View
pls need help on Sockets msg problem see pic and source code pls edit it for me big thx
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.
vb Code:
#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
Hi,
Here's an example how to check an item in a checklistbox and show it in a TextBox:
vb Code:
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.