✔ Shoutcast selfmade Tool

Bl4dE · 27. Februar 2007

N'abend liebe Leute.

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

Code:

•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:

Code:

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.

Code:

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

✔ Shoutcast selfmade Tool

Bl4dE

Mitglied

Neue Beiträge