Sub connect()
 
        Dim arrByte As Array = {&H0, &H0, &H0, &H0, &H0, &H1, &H46, &H46, &H30, _
          &H3F, &H2, &H41, &H30, &H43, &H32, &H30, &H37, &H46, &H30, &H30, _
          &H30, &H30, _
                                &H32, &H33, &H35, &H39, &HFF, &HFF, &HFF, &H31, _
                                &HFE, &H45, &HFD, &H6B, &HFA, &H43, &H20, &HFA, _
                                &H50, &H3, &H30, &H62, &H61, _
                                &H62, &H4}
 
        Dim za As Byte = 0
        Dim e As Integer = 0
 
        Do While za <> &H4
            za = arrByte(e)
            e = e + 1
        Loop
 
        Using tcpClient As New System.Net.Sockets.TcpClient()
            tcpClient.Connect("192.168.1.170", 10002)
            Using s As System.Net.Sockets.NetworkStream = tcpClient.GetStream()
                s.Write(arrByte(), 0, e) 'Senden
            End Using 'Verbindung schließen
        End Using
 
    End Sub