Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Radio Television Record & Play


  • Please log in to reply
2 replies to this topic
garry
  • Spam Officer
  • 3219 posts
  • Last active: Sep 20 2018 02:47 PM
  • Joined: 19 Apr 2005
MODIFIED 20110616
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

;===================================================================================================


cgrongs
  • Members
  • 1 posts
  • Last active: Feb 28 2011 08:36 AM
  • Joined: 28 Feb 2011
like the old program Internetradio, start also programs,replace date in url
added:

garry
  • Spam Officer
  • 3219 posts
  • Last active: Sep 20 2018 02:47 PM
  • Joined: 19 Apr 2005
sorry, removed useless old program
url always changed, use http://www.shoutcast.com
with vlc.exe works everything fine