VB 2008 IF ABFRAGE SOCKET

Imports System.Net.Sockets
Imports System.Text

Public Class Form1

    Private SimpleServer As TcpListener
    Private Client As New TcpClient
    Private Stream As NetworkStream
    Dim bytes() As Byte
    Dim Bytes2() As Byte


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        SimpleServer = New TcpListener(System.Net.IPAddress.Parse(0), 12345)

        SimpleServer.Start()

        SimpleServer.BeginAcceptTcpClient(AddressOf OnConnect, New Object)

    End Sub

    Private Sub OnConnect(ByVal ar As System.IAsyncResult)
        Client = SimpleServer.EndAcceptTcpClient(ar)
        Stream = Client.GetStream

        ReDim bytes(Client.ReceiveBufferSize)
        Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object)
    End Sub

    Private Sub onGetData(ByVal ar As System.IAsyncResult)


        Dim s As String = "shutdown"  
        Dim clientdata As String = Encoding.ASCII.GetString(bytes)
        If clientdata = s Then
            MsgBox("rechner abschalten")  
        End If


    End Sub

End Class

if clientdata = s Then

Imports System.Net.Sockets
Imports System.Text

Public Class Form1

    Private SimpleClient As New TcpClient
    Private Stream As NetworkStream


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(textbox1.text)
        Stream.Write(sendBytes, 0, sendBytes.Length)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SimpleClient.Connect("192.168.25.32", 12345)  
        Stream = SimpleClient.GetStream
        TextBox2.Text = Stream.ToString
    End Sub
End Class