German mehrer Fragen Bezgl. einen Text an einen PC schicken

Imports System.Net.Sockets, System.Threading, System.IO
Public Class Form1
    Dim listener As New Net.Sockets.TcpListener(9092) '32118
    Dim client As TcpClient
    Dim message As String



    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
        listener.Stop()
        Application.Exit()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'tablet Tcip 1 = "192.168.177.31" tablet 2 = 192.168.177.32
        listener.Start()
        Dim listthread As New Thread(New ThreadStart(AddressOf listening))
        listthread.Start()

    End Sub
    Private Sub listening()
        listener.Start()

    End Sub


    Private Sub tmrlistener_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrlistener.Tick
        If listener.Pending = True Then
            message = ""
            client = listener.AcceptTcpClient()
            Dim reader As New StreamReader(client.GetStream())
            While reader.Peek > -1
                message = message + Convert.ToChar(reader.Read()).ToString

            End While
            rtbRecieveText.AppendText(message)
        End If
    End Sub

   

End Class

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
Dim AStreams As AsyncStreams 
Dim Server As ServerSocket 
Dim Socket1 As Socket
Dim port As String
Dim ServerIp As String
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
Dim Button1 As Button
Dim Button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   'Activity.LoadLayout("Layout1")
Activity.LoadLayout("1")
port = 9092
ServerIp="192.168.178.26"
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub connet
Try 
Socket1.Initialize("Socket1")
Socket1.Connect(ServerIp ,port, 20000)
Catch 
ToastMessageShow( "Non conesso", True) 
End Try 
End Sub


Sub Socket1_Connected (Connected As Boolean) 
If Connected = True Then 
ToastMessageShow( "Connesso", True) 
AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams") 
End If
End Sub

Sub send_data(data As String)

If AStreams.IsInitialized = True Then 
Dim buffer() As Byte 
data=data
buffer = data.GetBytes("UTF8") 
AStreams.Write(buffer) 
End If
End Sub

Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String 
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") 
ToastMessageShow( msg, True)
End Sub

Sub AStreams_Error 
ToastMessageShow( LastException.Message, True)
End Sub

Sub Button1_Click
connet
End Sub
Sub Button2_Click
send_data("hello!")
End Sub