'/ Klasse VLM
Public Class VLM
 
    '/ globale Variablen
    Private _host As String
    Private _port As String
    Private _TcpClient As New System.Net.Sockets.TcpClient()
    Private _NetStream As System.Net.Sockets.NetworkStream
    Private _StreamWriter As System.IO.StreamWriter
    Private _StreamReader As System.IO.StreamReader
 
    '/ Konstruktor
    Public Sub New(ByVal host As String, ByVal port As Integer)
 
        '/ Verbindung herstellen
        _host = host
        _port = port
 
    End Sub
 
    '/ Function StarteMainStream
    Public Sub StarteMainStream()
 
        '/ Verbindung starten
        StarteVerbindung()
 
        '/ Stream-Instanz anlegen
        System.Threading.Thread.Sleep(3000)
        _StreamWriter.WriteLine("new mainstream broadcast")
...
 
        '/ Verbindung beenden
        BeendeVerbindung()
 
    End Sub
 
    '/ Function StarteMainAufnahme
    Public Sub StarteMainAufnahme(ByVal name As String)
 
        '/ Verbindung starten
        StarteVerbindung()
 
        '/ Aufnahme-Instanz anlegen
        System.Threading.Thread.Sleep(3000)
        _StreamWriter.WriteLine("new mainaufnahme broadcast")
...
 
        '/ Verbindung beenden
        BeendeVerbindung()
 
    End Sub
 
    '/ Sub BeendeMainAufnahme
    Public Sub BeendeMainAufnahme()
 
        '/ Verbindung starten
        StarteVerbindung()
 
        '/ Aufnahme anhalten und Job löschen
        System.Threading.Thread.Sleep(3000)
        _StreamWriter.WriteLine("control mainaufnahme stop")
        System.Threading.Thread.Sleep(3000)
        _StreamWriter.WriteLine("del mainaufnahme")
        System.Threading.Thread.Sleep(3000)
        _StreamWriter.WriteLine()
 
        '/ Verbindung beenden
        BeendeVerbindung()
 
    End Sub
 
    End Sub
 
    '/ Sub StarteVerbindung
    Private Sub StarteVerbindung()
 
        '/ Socketverbindung zum RZSTREAM öffnen
        _TcpClient.Connect(_host, _port)
 
        '/ den Stream der Socketverbindung verwenden
        _NetStream = _TcpClient.GetStream()
        _StreamReader = New System.IO.StreamReader(_NetStream, _
          System.Text.Encoding.ASCII)
        _StreamWriter = New System.IO.StreamWriter(_NetStream, _
        System.Text.Encoding.ASCII)
        _StreamWriter.AutoFlush = True
 
        '/ auf eine Antwort maximal so lange warten
        _NetStream.ReadTimeout = 2000
 
        '/ das Passwort übermitteln
        _StreamWriter.WriteLine("admin")
 
        '/ erste Zeile interessiert nicht --> weglesen
        _StreamReader.ReadLine()
 
        '/ Prüfen ob die Welconmemessage kommt, ansonsten Fehler
        If Not _StreamReader.ReadLine().StartsWith("Welcome, Master") Then
            Throw New Exception("RZSTREAM is answering but with wrong" & _
              "welcomemessage.")
        End If
 
 
    End Sub
 
    '/ Sub BeendeVerbindung
    Private Sub BeendeVerbindung()
 
        '/ Workaround für VLC-Bug!
        System.Threading.Thread.Sleep(3000)
        _StreamReader.ReadLine()
 
        '/ Verbindung beenden
        _TcpClient.Close()
 
    End Sub
 
End Class