denne opsætning er lavet til P3, koster ikke noget og fungerer fint.
-------------------------------------------------------------------------------
Option Explicit
'Omdøb filen til P3.vbs
'Sti til MeidaPlayer
Const StiTilMP = """E:\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