Member Avatar for turquito

Hi all

I would like to know how i can obtain the address from intent radio staion for download music. The program RadioTracker do it, but what is the base for to do that?, first to have the web address where is the file (mp3, wmv, ...) and second according the address then download.

I would like ear your comments.

Thanks

Adolfo

  • 2 Contributors
  • 3 Replies
  • 112 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by choudhuryshouvi

Dani AI

Generated

A quick reality check and a practical path forward.

is right: what you need is the actual stream or playlist endpoint, not the visible player. ’s WebBrowser trick is useful when the page includes explicit anchors or playlist links, but many players hide the real URL inside playlists, JavaScript, or a runtime request. First step: discover whether the page points to a playlist (.m3u/.m3u8/.pls/.asx) or directly to a stream (an .mp3/.aac URL or an HLS manifest). Use the browser Network panel to look for those files while the page loads (Chrome DevTools Network). Read the playlist file to find the true endpoint — formats are documented here: M3U, PLS, HLS.

For VB6: rather than only scraping the rendered DOM, fetch the page or playlist text and parse it. A common pattern is to GET the playlist with MSXML2.XMLHTTP, split the response into lines, ignore comments, and extract URLs or playlist keys (File1= entries, <ref href=...> in ASX, etc.). Example of the initial fetch/parse step:

Dim xhr As Object
Set xhr = CreateObject("MSXML2.XMLHTTP")
xhr.Open "GET", playlistUrl, False
xhr.setRequestHeader "User-Agent", "Mozilla/5.0"
xhr.send
If xhr.Status = 200 Then
  content = xhr.responseText
  ' Split content and search for http(s) lines or FileN= entries
End If

Notes and troubleshooting:

  • Many radio streams are live and must be recorded (saved while the stream runs) rather than "downloaded" as a finite file. Use ADODB.Stream or call a tool like ffmpeg to capture and mux for you (ffmpeg.org).
  • Some servers expect specific headers (User-Agent, Referer) or ICY metadata requests; others use redirects or time-limited tokens. Follow redirects, preserve cookies, and mimic browser headers when necessary.
  • Respect copyright and station terms: recording or redistributing streams may be restricted.

This complements ’s DOM approach: use DOM scraping for visible links and use HTTP fetching + playlist parsing to resolve hidden stream URLs; then choose recording vs. straight download depending on whether the endpoint is a live stream or a static file.

Recommended Answers

All 3 Replies

Member Avatar for choudhuryshouvi

is this related to vb6?

Member Avatar for turquito

yes, vb 6. Maybe i am confuse, but we are talking of a tracker or something similar. I mean, i would like take all url of each object into a web page, images, sound, mp2, wmv, files, etc...select and download.

Member Avatar for choudhuryshouvi

yes, vb 6. Maybe i am confuse, but we are talking of a tracker or something similar. I mean, i would like take all url of each object into a web page, images, sound, mp2, wmv, files, etc...select and download.

ok...you can try this code snippet. just follow the instructions.

List all Links on a particular site :-
The following recursive sub will list all links on a particular document, including all links inside frames (any level) and places them in a list box. If you got a form (form1), a listbox (list1), a command button, and a webbrowser (webbrowser1); you could call this sub like this form command1_click: "ListAllLinks webbrowser.document, List1".

[B]Show the links text in the listbox[/B] :-

Public Sub ListAllLinks(doc As Variant, List As ListBox)
  If doc.frames.length = 0 Then
    For i = 0 To doc.links.length - 1
      List.AddItem doc.links(i).outerText
    Next i
  Else
    For i = 0 To doc.frames.length - 1
      ListAllLinks doc.frames(i).Document, List
    Next i
  End If
End Sub

[B]Show the links url in the listbox[/B] :-

Public Sub ListAllLinkUrls(doc As Variant, List As ListBox)
  If doc.frames.length = 0 Then
  For i = 0 To doc.links.length - 1
    List.AddItem doc.links(i).href
  Next i
  Else
    For i = 0 To doc.frames.length - 1
      ListAllLinkUrls doc.frames(i).Document, List
   Next i
  End If
End Sub

notify me if this works. here is a screenshot for you.

regards
Shouvik

Screenshot.JPG 84.43 KB
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.