removed old useless program, url always changed
use vlc.exe
for URL see :
http://www.shoutcast.com
freeware internet radio player:
http://www.screamer-radio.com/
( I use vlc.exe ) , example file >> CH_NEWS_DRS4.m3u
http://stream.srg-ssr.ch/drs4news/mp3_128.m3u
example to record & listen Portugal Radio ( see http://www.shoutcast.com for actual url-adress )
MODIFIED=20110616 ;-------- http://www.autohotkey.com/forum/topic3260.html --- ;-- streamripper : http://streamripper.sourceforge.net/ ;-- mp3directcut : http://www.mpesch3.de/ STREAMRIPPER =%A_scriptdir%\streamripper.exe n1=Radio_Portugal f1=%n1%.pls P1=http://81.92.219.11:9984 P2=http://72.29.70.19:8306 ifnotexist,%f1% gosub,crea run,%f1% run,%p2%/played.html ifexist, %streamripper% goto,record2 return record2: ifexist, %streamripper% run,%COMSPEC% /K %streamripper% %P1% -t -d _STREAM else msgbox, 262208,Can't RECORD`n%n1%,%streamripper% don't exist return CREA: { e4x= (Ltrim Join`r`n [playlist] numberofentries=2 File1=%P1% Title1=(#1 - 1/300) Radio Ondas de Portugal Length1=-1 File2=%P2% Title2=(#2 - 11/600) Radio Ondas de Portugal Length1=-1 Version=2 ) fileappend,%e4x%`r`n,%f1% } return
Example to watch and record television (CCTV4) with vlc.exe
MODIFIED = 20090201 URL1=mms://cctv-live-cctv1.wm.llnwd.net/cctv_live_cctv4 ;--- this example play/record china tv CCTV4 with vlc.exe ---- ;-------------------------------------------------------------- #NoEnv SetBatchlines -1 SendMode Input setworkingdir, %a_scriptdir% REC =c:\_RECORDED1 run,%COMSPEC% /C if not exist \%REC%\NUL MD %REC%,,hide Gui,2:Color,black Gui,2:Font, S10 CDefault , Lucida Console TelevisionINI=%A_scriptdir%\TelevisionINI.ini ifnotexist,%TelevisionINI% { IniWrite,c:\_RECORDED1 , %TelevisionINI% ,RecordPath , KEY1 IniWrite,%A_programfiles%\VideoLAN\VLC\vlc.exe , %TelevisionINI% ,VLCPath , KEY1 } ;-------------- TOOLS --------------------------- Menu,S2,add,Select once path where Record Video ,MH11 Menu,S2,add,Select once path vlc.exe ,MH12 Menu,S2,add,Download vlc.exe if not exist ,MH13 ;menu, myMenuBar, Add, Settings ,:S1 menu, myMenuBar, Add, Tools ,:S2 gui,2:menu,MyMenuBar ;---------------------------------------------------- Gui,2:Add,Button, x10 y10 h25 w100 gPLAY1 ,Watch Gui,2:Add,Button, x130 y10 h25 w100 gRecord1 ,Record Gui,2:Add,Button, x10 y50 h25 w220 gRecord2 ,Record and Watch Gui,2:Add,Button, x250 y10 h25 w150 gFolder1 ,FOLDER-RECORDED Gui,2:Add,Button, x250 y50 h25 w150 gProgram1 ,Program IniRead, Rec , %TelevisionINI% ,RecordPath , KEY1 IniRead, VLCPath1 , %TelevisionINI% ,VLCPath , KEY1 Gui,2:Show, x0 y0 h100 w410 ,Television TV ifexist,%VLCPath1% return else msgbox, 262208,Check if vlc.exe exist,Vlc.exe didn't found`nClick on Tools to download vlc.exe or`nClick on Tools to select the correct path from vlc.exe return ;------------------------------------------------------------------- 2Guiclose: exitapp MH11: IniRead, Rec , %TelevisionINI% ,RecordPath , KEY1 msgbox, 262468, Where to record Video,The folder`n%REC%`nis selected to record TV Television`nWant you select a new Folder ? ifmsgbox,no return FileSelectFolder,MF, if MF= return IniWrite,%MF% , %TelevisionINI% ,RecordPath , KEY1 return MH12: FileSelectFile, SelectedFile, 3,%A_programfiles% , Open a file, ExeFile (*.exe) if SelectedFile= return IniWrite,%Selectedfile% , %TelevisionINI% ,VLCPath , KEY1 return MH13: run,http://www.videolan.org/vlc/ return Folder1: Gui,2:submit,nohide IniRead, Rec , %TelevisionINI% ,RecordPath , KEY1 run,%rec% return Play1: Gui,2:submit,nohide IniRead, VLCPath1 , %TelevisionINI% ,VLCPath , KEY1 run,%VLCPath1% %URL1% return record1: Gui,2:submit,nohide IniRead, Rec , %TelevisionINI% ,RecordPath , KEY1 IniRead, VLCPath1 , %TelevisionINI% ,VLCPath , KEY1 WHERE=%REC%\%A_now%_Television.mpg BBBB= :sout=#transcode{vcodec=mp2v,vb=1024,scale=1,acodec=mp3,ab=192,channels=2}:duplicate{dst=std{access=file,mux=ps,dst="%where%"}} run,%VLCPath1% %URL1% %BBBB% return record2: Gui,2:submit,nohide IniRead, Rec , %TelevisionINI% ,RecordPath , KEY1 IniRead, VLCPath1 , %TelevisionINI% ,VLCPath , KEY1 WHERE=%REC%\%A_now%_Television.mpg BBBB= :sout=#transcode{vcodec=mp2v,vb=800,scale=1,acodec=mp3,ab=128,channels=2}:duplicate{dst=display,dst=std{access=file,mux=ps,dst="%where%"}} run,%VLCPath1% %URL1% %BBBB% return Program1: run,http://www.cctv-4.com return ;===================================================================================================