✔ Shoutcast selfmade Tool

[Bl4dE]

N'abend liebe Leute.

Ich bin gerade dabei ein kleines Shoutcast-Tool zu schreiben, welches folgende Dinge ausgibt:

•Playing: Titel(Show)
•Server: url.zum.stream:port/listen.pls
•Listener: x/max
•Peak:

->eben gennau wie diese MSL-Scripte[IRC] oder TCL-Scripte[Eggdrop]

Allerdings scheitere ich an der Abfrage der Daten.
Ich kann erfolgreich eine Verbindung über Winsock herstellen und ab dem
Senden des Headers tritt mein problem auf.
Header:

GET /7 HTTP/1.1
Host: t4k3.de
User-Agent: Mozilla

Ich hab zusätzlich wärend des sendens den "Get Data"-Button deaktivieren lassen, damit das Programm keinen fehler verursacht.
Mein Problem:
Ich bekomme keine Daten vom Server zurück, bzw. es werden keine daten ausgegeben.

Evtl. könnt ihr den Fehler finden, oder mir einfach sagen, was ich ändern sollte.

Option Explicit
Dim server As String
Dim port As Long
Dim dataRequest As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)

Private Sub btnGetData_click()
      
    'Daten in var speichern
    server = txtAddr.Text
    port = txtPort.Text
    'Header setzen
    dataRequest = "GET /7 HTTP/1.1" & Chr(13) & Chr(10) & _
                    "Host: t4k3.de" & Chr(13) & Chr(10) & _
                    "User-Agent: Mozilla" & Chr(13) & Chr(10)
    'Connection Status zeigen
    txtContent.Text = "Connection to " & vbCrLf & _
                        "Server: " & server & vbCrLf & _
                        "Port: " & port
    Sleep (500)
    'Connection aufbauen
    sock.Connect server, port
    

End Sub

Private Sub sock_connect()
    
    Sleep (900)
    txtContent.Text = "Connection to " & vbCrLf & _
                        "Server: " & server & vbCrLf & _
                        "Port: " & port & vbCrLf & _
                        "--------------" & vbCrLf & _
                        "established"
                        
    'wenn eine verbindung besteht -> header(dataRequest) senden
    Sleep (1000)
    sock.SendData dataRequest
End Sub



Private Sub sock_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    btnGetData.Enabled = False
End Sub


Private Sub sock_DataArrival(ByVal bytesTotal As Long)
    On Error Resume Next
    Dim data As String
    
    sock.GetData data
    txtContent.Text = "Data Arrival:" & vbCrLf & data
    btnGetData.Enabled = True
    sock.Close
End Sub

Ich bin für jeden Hinweis und jede Hilfe dankbar