Davros,
this look cool, did you post you TCP sample somewhere?
this look cool, did you post you TCP sample somewhere?
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Imports System.Net Imports System.Net.Sockets Imports System.Text Imports System.Timers Module MainModule Dim clientSocket As TcpClient Dim ns As NetworkStream Dim ns1 As NetworkStream Dim TCPServerMonitorTimer As New Timer(10000) ' 2000 = 2sec ' 10000 = 10 sec Sub Main() AddHandler TCPServerMonitorTimer.Elapsed, AddressOf MonitorTCPServer TCPServerMonitorTimer.Enabled = True ConnectToServer() While True End While End Sub Private Function ConnectToServer() As Boolean Try Dim ip As String = "192.168.0.226" Dim port As Integer = 20108 clientSocket = New TcpClient(ip, port) Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf getMessage) ctThread.Start() Return True Catch ex As Exception Try clientSocket.Close() Catch End Try Console.WriteLine(ex) Return False End Try End Function Private Sub getMessage() Try Dim ns As NetworkStream = clientSocket.GetStream() While True Dim toReceive(100000) As Byte Dim length As Integer = ns.Read(toReceive, 0, toReceive.Length) Dim text As String = Encoding.ASCII.GetString(toReceive, 0, length) Console.WriteLine(text) Dim toSend() As Byte = Encoding.ASCII.GetBytes("Send me") ns.Write(toSend, 0, toSend.Length) End While Catch ex As Exception Console.WriteLine(ex) End Try End Sub Private Sub SendData(textToSendToServer As String) Try Dim ns1 As NetworkStream = clientSocket.GetStream() Dim toSend() As Byte = Encoding.ASCII.GetBytes(textToSendToServer) ns1.Write(toSend, 0, toSend.Length) Catch ex As Exception Console.WriteLine(ex) Try clientSocket.Close() Catch End Try ConnectToServer() End Try End Sub Private Sub MonitorTCPServer(source As Object, e As ElapsedEventArgs) SendData("") End Sub End Module
Comment