Find content
Not Telling
I wrote this simple code to send a string to a client, once it attached to my listen:
Module Module1
Dim Listen_Thread As Thread
Dim Client_Thread As Thread
Private Listener As System.Net.Sockets.Socket
Private ClientSocket As System.Net.Sockets.Socket
Private bmsg() As Byte
Sub Main()
' write your code here
Dim Msg As String = "This is a transmission test to check the first message. I hope it arrives safety and quickly .... bye bye !"
Dim sMsg() As Char = Msg.ToCharArray
ReDim bmsg(sMsg.Length - 1)
Dim i As Integer
For i = 1 To sMsg.Length
bMsg(i - 1) = CByte(Microsoft.VisualBasic.Strings.AscW(sMsg(i - 1)))
Next
Listener = New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Dim ListEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 5001)
Listener.Bind(ListEndPoint)
Listener.Listen(1)
Listen_Thread = New Thread(AddressOf listener_thread)
Listen_Thread.Start()
End Sub
Private Sub listener_thread()
While (True)
Try
ClientSocket = Listener.Accept
Debug.Print("Client accepted ")
Client_Thread = New Thread(AddressOf Clienter_thread)
Client_Thread.Start()
Catch ex As System.Net.Sockets.SocketException
Debug.Print("Error, not connected .. : " & ex.Message)
If Not Client_Thread Is Nothing Then
Client_Thread.Abort()
Client_Thread = Nothing
End If
End Try
End While
End Sub
Private Sub Clienter_thread()
While (True)
Dim MessReady As Boolean = False
Thread.Sleep(1000)
Debug.Print("bytes send")
ClientSocket.Send(bmsg)
End While
End Sub
End Module
Then i run and opened HyperTerminal
It works for a while ... then in Hyperterminal i receive a lot of characters and it stop.
You can check simply with Hyperterminal ... i Can't find where is the problem ...
Any Help, please ?
Thanks a lot
