Visual Basic

<br />
case RM_STATUS_RIPPING:<br />
        if (m_curinfo.track_count < m_opt.dropcount) {<br />
        strcpy(status_str, "skipping...   ");<br />
        } else {<br />
        strcpy(status_str, "ripping...    ");<br />
        }<br />
        format_byte_size(filesize_str, m_curinfo.filesize);<br />
        fprintf(stderr, "[%14s] %.50s [%7s]\r",<br />
            status_str,<br />
            m_curinfo.filename,<br />
            filesize_str);<br />
        break;

Module Module1<br />
<br />
    Sub Main()<br />
        Dim server As String = "http://64.62.194.11:8095"<br />
        Dim serverPath As String = "/"<br />
<br />
        Dim destPath As String = "C:\\" ' destination path for saved songs<br />
<br />
        Dim request As Net.HttpWebRequest = Nothing ' web request<br />
        Dim response As Net.HttpWebResponse = Nothing ' web response<br />
<br />
        Dim metaInt As Integer = 0 ' blocksize of mp3 data<br />
        Dim count As Integer = 0 'byte counter<br />
        Dim metadataLength As Integer = 0 ' length of metadata header<br />
<br />
        'metadata header that contains the actual songtitle<br />
        Dim metadataHeader As String = ""<br />
        'last metadata header, to compare with <br />
        'new header and find next song<br />
        Dim oldMetadataHeader As String = Nothing<br />
<br />
        ' receive buffer<br />
        Dim buffer(512) As Byte<br />
        For counter As Integer = 0 To 512<br />
            buffer(counter) = New Byte<br />
        Next<br />
<br />
        'input stream on the webrequest<br />
        Dim socketStream As System.IO.Stream = Nothing<br />
<br />
        'output stream on the destination file<br />
        Dim byteOut As System.IO.Stream = Nothing<br />
<br />
<br />
        ' create request<br />
        request = System.Net.HttpWebRequest.Create(server)<br />
<br />
        'clear old request header and build <br />
        'own header to activate Icy-metadata<br />
        request.Headers.Clear()<br />
        request.Headers.Add("GET", serverPath + " HTTP/1.0")<br />
        'needed to receive metadata informations<br />
        request.Headers.Add("Icy-MetaData", "1")<br />
        request.UserAgent = "WinampMPEG/5.09"<br />
<br />
        'execute request<br />
        Try<br />
            response = request.GetResponse()<br />
<br />
        Catch ex As Exception<br />
            Console.WriteLine(ex.Message)<br />
            Console.ReadLine()<br />
            Return<br />
        End Try<br />
<br />
<br />
        metaInt = Convert.ToInt32(response.GetResponseHeader("icy-metaint"))<br />
<br />
       <br />
    End Sub<br />
<br />
End Module