Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ 
  "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As _ 
  String, ByVal szFileName As String, ByVal dwReserved As Long, _ 
  ByVal lpfnCB As Long) As Long 
   
  Public Function DownloadFile(URL As String, _ 
      LocalFilename As String) As Boolean 
      Dim lngRetVal As Long 
      lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) 
      If lngRetVal = 0 Then DownloadFile = True 
  End Function 
  Function TestRegExp(myPattern As String, myString As String) 
     'Create objects. 
     Dim objRegExp As RegExp 
     Dim objMatch As Match 
     Dim colMatches   As MatchCollection 
     Dim RetStr As String 
      
     ' Create a regular expression object. 
     Set objRegExp = New RegExp 
   
     'Set the pattern by using the Pattern property. 
    objRegExp.Pattern = myPattern 
   
     ' Set Case Insensitivity. 
     objRegExp.IgnoreCase = True 
   
     'Set global applicability. 
     objRegExp.Global = True 
   
     'Test whether the String can be compared. 
     If (objRegExp.Test(myString) = True) Then 
   
     'Get the matches. 
      Set colMatches = objRegExp.Execute(myString)   ' Execute search. 
   
      For Each objMatch In colMatches   ' Iterate Matches collection. 
   
        RetStr = RetStr & objMatch.Value & "'." & vbCrLf 
      Next 
     Else 
      RetStr = "String Matching Failed" 
     End If 
     TestRegExp = RetStr 
  End Function 
  Private Sub Command1_Click() 
  Dim text As String 
  Dim text2 As String 
  Dim text3 As String 
  DownloadFile "http://radyosilivrim.radyodestek.com:8120/played.html", App.Path + "\temp.html" 
      Open App.Path + "\temp.html" For Input As #1 
      text = Input(LOF(1), 1) 
      Close #1 
   
     text2 = TestRegExp("\d\d:\d\d:\d\d<.*\)", text) 
      
   
     text3 = Replace(TestRegExp("\<td>.*\<b>", text2), "<td>", "") 
   
     MsgBox Replace(text3, "<b>", "") 
  End Sub 
  

 
   
  Private Sub Form_Load() 
  Timer1_Timer 
  Timer1.Interval = 10000 
  Timer1.Enabled = True 
  End Sub 
   
  Private Sub Timer1_Timer() 
  Dim text As String 
  Dim text2 As String 
  Dim text3 As String 
  DownloadFile "http://radyosilivrim.radyodestek.com:8120/played.html", App.Path + "\temp.html" 
      Open App.Path + "\temp.html" For Input As #1 
      text = Input(LOF(1), 1) 
      Close #1 
   
     text2 = TestRegExp("\d\d:\d\d:\d\d<.*\)", text) 
      
   
     text3 = Replace(TestRegExp("\<td>.*\<b>", text2), "<td>", "") 
   
     Label1.Caption = Replace(text3, "<b>", "") 
  End Sub