Stationær net radio

Noget ala dette:

http://www.consumer.philips.com/global/b2c/ce/catalog/product.jhtml;jsessionid=R0DZBDDHCUKEOCRQNAVRX1YKGBUVGHAW?divId=0&groupId=AUDIO&catId=HOMEAUDIO_CAT&subCatId=MICROSYSTEMS&productId=MCI200_EU

Jaaa, godt nok ik' lige den jeg så... men ja sådan en.
Hvor finder man sådan nogle i danmark, og hva' koster de?

du kan få et lille script af mig, når du starter den spørger den om du vil lytte til P3, trykker du kommer P3 efter et halvt minuts tid.

Option Explicit

'Sti til MeidaPlayer
Const StiTilMP = """C:\Programmer\Windows Media Player\mplayer2.exe"""
'URL til stream P3
Const URLTilStream = "http://www.dr.dk/nav/netplayer/p3-wmp.asx"
'Antal sekunder der skal ventes på svar
Const AntalSek = 5

'Opret Shell-objekt
Dim oshell
Set oShell = WScript.CreateObject("Wscript.shell")

'Spørg brugeren
Dim svar, spg
spg = "Kl. er " & formatdateTime(now,4)& " - "
spg = spg & "Vil du lytte til P3?"
svar = oShell.popup(spg, AntalSek, "Radioavis",4+32)

'Hvis svar er Nej eller der "timesud"
if svar = 7 or svar = -1 then
    set oShell = nothing
    wscript.quit
end if

'Start Mplayer med P3 stream
oShell.run stitilmp & " " & URLTilStream

'Ryd op
Set oshell = Nothing

kopier det ind i notepad, gem den som P3.vbs

som du kan se er det en visual basic fil.

retaxes> øhh.. hva' skal jeg bruge det til?

når du starter den spørger den om du vil lytte til P3, trykker du kommer P3 efter et halvt minuts tid.

retaxes> Ja og? Prøv at læs mit spørgsmål :o)

Slet ingen der kender priser på sådan nogle?

brevkasserne> smider du et svar, så kan du få lidt point

nå ik'...