garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
 Verfasst am: Do Okt 27, 2005 10:39 pm Titel: Radio |
 |
|
ein einfacher script um im Internet Radio zu hören und aufzunehmen (MP3)
um aufzunehmen:download streamripper.exe und tre.dll
download MP3directCut mit lame_enc.dll >direct Aufname und MP3 bearbeiten
in diesem Beispiel:
record1 und record2 nimmt mit streamripper auf (beide Sender , ohne zu starten) in Ordner stream
record3: nimmt auf mit MP3directCut (Sender muss laufen)
record4: TV Finland, keine Aufnahme
| Code: | ;2005-11-10 garry, InternetRadio_test.ahk (easy)
;============================================================================
;record1:
;streamripper = http://streamripper.sourceforge.net/
; (streamripper.exe and tre.dll)
; recorded music in folder stream
;
;record2 when not possible with streamripper:
;record direct the sound you hear (select first the path where to save the music) , cut MP3
;MP3directCut = http://www.mpesch3.de/
; record :stereoMix (analog:8) must be selected
; speaker:wave
;=============================================================================
#NoTrayIcon
NAME=InternetRadio
TR=ANGOLA;http://67.15.82.69:8092;USA-Country;http://130.166.72.1:8006;Mauritius;rtsp://realserver.intnet.mu:554/tplus_encoder/taalfm.rm;TV-Suomi;http://ra.yle.fi/ramgen/yle24/video/uusin_rk.rm
run,%COMSPEC% /C if not exist \STREAM\NUL MD STREAM,,hide
run,%COMSPEC% /C if not exist \PLAYLIST\NUL MD PLAYLIST,,hide
SM1:=12 ;record Stereo Mix for MP3directCut
SM2:=50 ;wave for MP3directCut
SM3:=100 ;volume
soundset,0,master,mute ;SPEAKER=MASTER ON
SoundSet,%SM3%,master ;SPEAKER=MASTER volume
soundset, 0,WAVE,mute ;WAVE ON
SoundSet,%SM2%,WAVE ;WAVE volume
soundset, 0,ANALOG:8,mute ;activate doesn`t work
SoundSet,%SM1%,ANALOG:8 ;Stereo Mix recording work
Gui, Color, 000000
Gui, Font, S10 CDefault , FixedSys
Gui, Show, x300 y0 w500 h175,%NAME%
Gui,add,button,x10 y35 w110 h20,Record1
Gui,add,button,x130 y35 w110 h20,Record2
Gui,add,button,x250 y35 w110 h20,Record3
Gui,add,button,x370 y35 w110 h20,Record4
Gui,Add,Button,x10 y70 w110 h20,Shout-Cast
Gui,Add,Button,x130 y70 w110 h20,Winamp
Gui,Add,Button,x250 y70 w110 h20,Radio-Search
Gui,Add,Button,x370 y70 w110 h20,TV-Search
Gui,Add,Button,x10 y150 w110 h20,RECORD
Gui,Add,Button,x130 y150 w110 h20,DirectCut
Gui,Add,Button,x250 y150 w110 h20,STREAM ;here recorded mp3 with streamripper
Gui,Add,Button,x370 y150 w110 h20,PLAYLIST ;store here PLS/RAM/WPL/m3u...
Gui,add, GroupBox, x5 y88 w480 h60
Gui,Add,Button,x130 y122 w110 h20,MIXER
Gui,Add,Button,x250 y122 w110 h20,MUTE_ON/OFF
Gui,Add,Text,cred x125 y100 w110 h20,<REC 05-40
Gui,Add,Slider, x10 y100 w110 h20 vSlider Range5-40 gSliderRel,%SM1%
Gui,Add,Edit,cred x10 y122 w110 h20 vEditText1 gEdit1,
Gui,Add,Text,cwhite x300 y100 w70 h20,VOLUME>
Gui,Add,Slider, x370 y100 w110 h20 vVolume Range0-100 gVolumeX,%SM3%
Gui,Add,Edit, x370 y122 w110 h20 vEditText2 gEdit2,
StringSplit,BX,TR,`;
Loop, %BX0%
Gui, Add, button,gButton1 x10 y10 w110 h20,%BX1%
Gui, Add, button,gButton2 x130 y10 w110 h20,%BX3%
Gui, Add, button,gButton3 x250 y10 w110 h20,%BX5%
Gui, Add, button,gButton4 x370 y10 w110 h20,%BX7%
return
;--------------------------------------------------------------------
SliderRel:
Gui, Submit, NoHide
SoundSet,%slider%,Analog:8
GuiControl,, EditText1, %Slider%
Return
Edit1:
Gui, Submit, Nohide
GuiControl,, Slider, %EditText1%
Return
;----------------------------------------
VolumeX:
Gui, Submit, NoHide
SoundSet,%volume%,master
GuiControl,, EditText2,%volume%
Return
Edit2:
Gui, Submit, Nohide
GuiControl,,volume,%EditText2%
Return
;-----------------------------------------
buttonMUTE_ON/OFF:
soundset,+1,master,mute
return
;------------------------------------------
buttonRecord:
ifexist, %A_ScriptDir%\MP3directCut\mp3directcut.exe
run,"%A_ScriptDir%\MP3directCut\mp3directcut.exe" "/r"
return
buttonDirectCut:
ifexist, %A_ScriptDir%\MP3directCut\mp3directcut.exe
run,%A_ScriptDir%\MP3directCut\mp3directcut.exe
return
buttonSTREAM:
run,%A_ScriptDir%\STREAM
return
buttonPLAYLIST:
run,%A_ScriptDir%\PLAYLIST
return
;------------------------------------------
Gui,submit,nohide
button1:
P=%BX2%
GOSUB GS1
return
button2:
P=%BX4%
GOSUB GS1
return
button3:
P=%BX6%
GOSUB GS1
return
button4:
P=%BX8%
GOSUB GS1
return
GS1:
;ifexist,%A_ProgramFiles%\REAL10-5GOLD\realplay.exe
;run,"%A_ProgramFiles%\REAL10-5GOLD\realplay.exe" "%P%"
ifexist,%A_ProgramFiles%\REALPLAYER\realplay.exe
run,"%A_ProgramFiles%\REALPLAYER\realplay.exe" "%P%"
return
buttonRecord1:
P=%BX2%
ifexist, %A_ScriptDir%\streamripper.exe
run,%COMSPEC% /K streamripper.exe %P% --xs_padding=5000:5000 -t -d STREAM
return
buttonRecord2:
P=%BX4%
ifexist, %A_ScriptDir%\streamripper.exe
run,%COMSPEC% /K streamripper.exe %P% --xs_padding=5000:5000 -t -d STREAM
return
buttonRecord3:
P=%BX6%
ifexist, %A_ScriptDir%\MP3directCut\mp3directcut.exe
run,"%A_ScriptDir%\MP3directCut\mp3directcut.exe" "/r"
return
buttonRecord4:
P=%BX8%
msgbox,record for %BX8% not possible
return
buttonMixer:
run,sndvol32.exe
CN=RunDLL32.EXE shell32.dll,Control_RunDLL mmsys.cpl,,1
run,%CN%
return
buttonShout-cast:
run,http://www.shoutcast.com
return
buttonRadio-search:
run,http://www.radio-locator.com/cgi-bin/home
return
buttonTV-search:
;run,%A_ProgramFiles%\Internet Explorer\IEXPLORE.EXE http://www.wwitv.com/portal.htm?http://www.wwitv.com/television/index.html
;run,%A_ProgramFiles%\Mozilla Firefox\firefox.exe http://www.wwitv.com/portal.htm?http://www.wwitv.com/television/index.html
run,http://www.wwitv.com/portal.htm?http://www.wwitv.com/television/index.html
return
buttonWinAmp:
run,%A_ProgramFiles%\Winamp\winamp.exe
return
GuiClose:
ExitApp
|
|
|
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
