 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 982
Wohnort: Deutschland
|
 Verfasst am: So Dez 23, 2007 2:47 am Titel: Radio-LiveStream für den Systray NDR 2 und Co. |
 |
|
Hallo,
das ist ein kleines Programm für Live-Radio-Streams mit VLC oder Media Player!
Ihr könnt zwischen VLC-Player(falls vorhanden) und Mediaplayer wählen,sie starten im Hintergrund und lassen sich über das Trayicon bedienen.
(Titelinfos für einige Sender,SWR3,NDR2,NDR1,WDR4,Moskau Radio - DeepMix)
Ich empfehle VLC,weil er deutlich schneller startet.  Über die ini lassen sich aber auch andere Player einstellen.
Unterstützt werden nat. auch "normale" Playlists! 
Exe-Version(Installer) letzte Änderung, Datum: 09.07.2010
ZIP-Version letzte Änderung, Datum: 09.07.2010
EDIT:
Änderungen Datum:
* 10:59 Freitag, 2. Juli 2010 v1.1.2.6
* probleme behoben wenn sich Reload und timer 'wm' überschnitten
* Playlist 'Jump' angepasst
* 10:10 Donnerstag, 1. Juli 2010 version v1.1.2.5
* sicherheitshalber loop für WinGet 'player_uid'
* Playlist für 'DeepMix Radio Moskau' angepasst und titelinformationen hinzugefügt
* 23:49 Dienstag, 29. Juni 2010 version v1.1.2.4
* aufgeräumt(Process close)
* fensterhandle nun über unique ID (probleme mit neuer VLC-version behoben)
* 13:22 Samstag, 26. Juni 2010 version v1.1.2.3
* Tray-Mode,bei jedem wechsel der titelinformationen kommt ein neuer traytip(im traymenü deaktivierbar)
* 13:22 Samstag, 26. Juni 2010 version v1.1.2.2
* anpassungen für die benutzung der portablen vlc-version
* WDR4 hinzugefügt
* Titelinfos für NDR1 und WDR4
* 14:03 Freitag, 8. Mai 2009 version v1.1.1
* Titelermittlung für NDR2 und SWR3 angepasst(geänderte Webseiten der Anbieter)
| Code: | /*
Das ist ein kleines Programm für Live-Radio-Streams mit VLC oder Media Player!
Ihr könnt zwischen VLC-Player(falls vorhanden) und Mediaplayer wählen,sie starten im Hintergrund und lassen sich über das Trayicon bedienen.
Ich empfehle VLC,weil er deutlich schneller startet.
bereits integrierte Sender:
• 1.FM - The 90's.m3u
• 1LIVE.m3u
• Antenne Brandenburg.m3u
• Big R Radio - 100.7 The Mix.m3u
• Blackbeat-Songs.m3u
• Bremen Eins.m3u
• Bremen Vier rockt.m3u
• Bremen Vier.m3u
• Das Modul.m3u
• DASDING.asf
• DELUXE LOUNGE RADIO.m3u
• DELUXE RADIO.m3u
• Fritz.m3u
• harmonyFM.m3u
• hr1.m3u
• hr3.m3u
• Jump Radio.m3u
• Moskau Radio - DeepMix.pls
• N-JOY Flavor Mix.m3u
• N-JOY Top 40.m3u
• N-JOY.m3u
• NDR 90,3.m3u
• NDR1.m3u
• NDR2.m3u
• Radio Brocken.m3u
• radioBerlin 88,8.m3u
• RMF 80's.m3u
• RMF Bravo.m3u
• RMF Classic Rock.m3u
• RMF Club.m3u
• RMF Dance.m3u
• RMF Hot New.m3u
• RMF Party.m3u
• SR1.m3u
• SWR3.m3u
• Techno4Ever Radio.m3u
• WDR 2.m3u
• WDR 5.m3u
• WDR 4.m3u
• YOU FM.m3u
Unterstützt werden nat. auch normale Playlists!
Playlists und Icons kannst du selbst erweitern/löschen,Icon muss den gleichen Namen tragen wie die Playlist(pls,m3u).
In %A_ScriptDir%\PL\ werden sie gespeichert
*/
SetBatchLines, -1
#Persistent
SplitPath, A_ScriptFullPath, OutFileName, OutDir, OutExtension, Filename, OutDrive
if A_IsCompiled
FileGetVersion, vv, %A_ScriptName%
Else
IniRead, vv, %A_ScriptName%.ini, VERSION, FILE_VER, 0
FileGetTime, script_time, %A_ScriptName%
FormatTime, script_time2, %script_time%,
version = V%vv% vom %script_time2%
tr_list = SWR3.m3u,NDR2.m3u,NDR1.m3u,WDR4.m3u,Moskau Radio - DeepMix.pls
Gosub, iniread
IfExist, %A_ScriptDir%\PL
Loop, %A_ScriptDir%\PL\*.*
{
SplitPath, A_LoopFileLongPath, OutFileName, , OutExtension, OutNameNoExt2
If OutExtension in m3u,pls
Menu, m3u, add, %OutNameNoExt2%, mhandle
}
Else
{
MsgBox, 16, Fehler!, Das Playlist-Verzeichnis(PL) konnte nicht gefunden werden!`nAbbruch!
ExitApp
}
If hotke != kein
Hotkey, %hotke%, hotke, ON
If hotkek != kein
Hotkey, %hotkek%, hotkek, ON
Menu, tray, NoStandard
Menu, subMenu, add, Windows Media Player, mpwählen
Menu, subMenu, add, VLC media player, vlcwählen
Menu, Tray, Add, %playerv% zeigen, zeig
Menu, Tray, Add, %playerv% verstecken, verst
Menu, Tray, tip, - %m3u3% - %A_ScriptName%
Menu, Tray, Add, Player, :subMenu
Menu, Tray, Add, Playlist, :m3u
Menu, Tray, Add
Menu, Tray, Add, Tray-Mode, toogle_traymode
Menu, Tray, Add, Player neu starten (%hotke%), hotke
Menu, Tray, Add, Info, about
Menu, Tray, Add, Beenden - %playerv% (%hotkek%), ende
Menu, tray, Default, %playerv% zeigen
if traymode
Menu, tray, Check, Tray-Mode
Menu, subMenu, Check, %playerv%
IfNotExist, %A_ProgramFiles%\VideoLAN\VLC\vlc.exe
Menu, tray, Delete, Player
Menu, m3u, Check, %m3u3%
Gui, +ToolWindow
Gui, +AlwaysOnTop
Gui, Color, F4F3FF
Gui, font, s14, Verdana
Gui, Add, Progress, vproz -Smooth 0x8 w350 h18
Gui, Add, Text, +Center CNavy, %playerv% wird geladen...
Gui, Add, Picture, x160 w40 h-1 +Center, % ((FileExist(A_ScriptDir "\PL\" OutNameNoExt ".ico")) ? A_ScriptDir "\PL\" OutNameNoExt ".ico" : "")
Gui, Show, , Bitte warten!.....%m3u3%.....
SetTimer, Push, 45
IfNotExist, %player%
{
MsgBox, 16, Fehler!, %player% wurde nicht gefunden!`nEventuell fehlerhafte ini-Datei löschen.`nAbbruch!
ExitApp
}
Run, %player% "%m3u%", , , player_pid
If m3u2 in %tr_list%
{
Gosub, trayt
SetTimer, trayt ,20000
}
Loop, 100
{
index := A_Index
WinGet, player_uid, ID, ahk_pid %player_pid%
if player_uid
Break
Sleep, 200
}
; ToolTip, pid: %player_pid%`nu_id(%index%): %player_uid%
Gosub, vlc_h
Sleep, % vorlauf * 1000
SetTimer, Push, Off
Gui, Show, Hide, Bitte warten!
TrayTip, %m3u3%, Weitere Optionen mit Rechtsklick...`n%trayt%, 20
; Sleep, 3000
SetTimer, wm ,300
Return
; ------------------------------------------------------------------------------
toogle_traymode:
traymode := !traymode
if traymode
Menu, tray, Check, Tray-Mode
Else
Menu, tray, UnCheck, Tray-Mode
Return
; ######################### mit ausgewählter playlist neustart
mhandle:
IfExist, %A_ScriptDir%\PL\%A_ThisMenuItem%.m3u
{
m3u = %A_ScriptDir%\PL\%A_ThisMenuItem%.m3u
m3u2 = %A_ThisMenuItem%.m3u
}
IfExist, %A_ScriptDir%\PL\%A_ThisMenuItem%.pls
{
m3u = %A_ScriptDir%\PL\%A_ThisMenuItem%.pls
m3u2 = %A_ThisMenuItem%.pls
}
IfExist, %A_ScriptDir%\PL\%A_ThisMenuItem%.asf
{
m3u = %A_ScriptDir%\PL\%A_ThisMenuItem%.asf
m3u2 = %A_ThisMenuItem%.asf
}
hotke:
Gosub, iniwrite
SetTimer, wm ,Off
DetectHiddenWindows, On
WinClose, ahk_id %player_uid%
Sleep, 300
Process, Close, %player_pid%
Reload
; ######################### player verstecken
; benötigt bei portabler version von vlc
vlc_h:
WinWait, ahk_id %player_uid%, , 15,
WinHide, ahk_id %player_uid%
Return
; ######################### player verstecken
verst:
WinHide, ahk_id %player_uid%
Menu, tray, Default, %playerv% zeigen
Return
; ######################### player sichtbar machen
zeig:
DetectHiddenWindows, On
WinShow, ahk_id %player_uid%
Menu, tray, Default, %playerv% verstecken
Return
; ######################### fortschritsbalken bewegen
Push:
GuiControl, , proz, 1
Return
; ######################### überprüfen,ob player läuft
wm:
DetectHiddenWindows, On
IfWinNotExist, ahk_pid %player_pid%
ExitApp
Return
; #########################
iniwrite:
IniWrite, %player%, Settings_%Filename%.ini, player, player
IniWrite, %playerk%, Settings_%Filename%.ini, player, playerk
IniWrite, %playerv%, Settings_%Filename%.ini, player, playerv
IniWrite, %vorlauf%, Settings_%Filename%.ini, player, vorlauf
IniWrite, %traymode%, Settings_%Filename%.ini, player, traymode
IniWrite, %m3u%, Settings_%Filename%.ini, playlist, m3u
IniWrite, %m3u2%, Settings_%Filename%.ini, playlist, m3u2
IniWrite, %hotke%, Settings_%Filename%.ini, player, HK
IniWrite, %hotkek%, Settings_%Filename%.ini, player, HKK
Return
; #########################
iniread:
IniRead, player, Settings_%Filename%.ini, player, player, %A_ProgramFiles%\Windows Media Player\wmplayer.exe
IniRead, playerk, Settings_%Filename%.ini, player, playerk, wmplayer.exe
IniRead, playerv, Settings_%Filename%.ini, player, playerv, Windows Media Player
IniRead, vorlauf, Settings_%Filename%.ini, player, vorlauf, 15
IniRead, traymode, Settings_%Filename%.ini, player, traymode, 1
IniRead, m3u, Settings_%Filename%.ini, playlist, m3u, http://ndr.ic.llnwd.net/stream/ndr_ndr2_hi_mp3
IniRead, m3u2, Settings_%Filename%.ini, playlist, m3u2, NDR2.m3u
IniRead, hotke, Settings_%Filename%.ini, player, HK, ^#r
IniRead, hotkek, Settings_%Filename%.ini, player, HKK, ^#k
StringTrimRight, m3u3, m3u2, 4
Gosub, icon
Return
; ######################## trayicon setzen
icon:
SplitPath, m3u, OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive
IfExist, %A_ScriptDir%\PL\%OutNameNoExt%.ico
Menu, tray, icon, %A_ScriptDir%\PL\%OutNameNoExt%.ico
Else
Menu, tray, icon, %A_ScriptDir%\PL\LiveRadio Standart.ico
Return
; ######################### player wählen,neustart
mpwählen:
If player = %A_ProgramFiles%\Windows Media Player\wmplayer.exe
Return
SetTimer, wm ,Off,
DetectHiddenWindows, On
WinClose, ahk_id %player_uid%
Sleep, 300
Process, Close, %player_pid%
player = %A_ProgramFiles%\Windows Media Player\wmplayer.exe
playerk = wmplayer.exe
playerv = Windows Media Player
vorlauf = 15
Gosub, iniwrite
Reload
Return
; ######################### vlc wählen,neustart
vlcwählen:
If playerk = vlc.exe
Return
SetTimer, wm ,Off,
DetectHiddenWindows, On
WinClose, ahk_id %player_uid%
Sleep, 300
Process, Close, %player_pid%
player = %A_ProgramFiles%\VideoLAN\VLC\vlc.exe
playerk = vlc.exe
playerv = VLC media player
vorlauf = 7
Gosub, iniwrite
Reload
Return
; ######################### beenden
hotkek:
GuiClose:
ende:
Gosub, iniwrite
DetectHiddenWindows, On
WinClose, ahk_id %player_uid%
Sleep, 300
Process, Close, %player_pid%
Sleep, 200
ExitApp
; ######################### infotext
about:
txt =
(
Das ist ein kleines Programm für Live-Radio-Streams mit VLC oder Media Player!
Ihr könnt zwischen VLC-Player(falls vorhanden) und Mediaplayer wählen,
sie starten im Hintergrund und lassen sich über das Trayicon bedienen.
Ich empfehle VLC,weil er deutlich schneller startet.
Über die ini lassen sich aber auch andere Player einstellen.
Playlists und Icons kannst du selbst erweitern/löschen,
Icon muss den gleichen Namen tragen wie die Playlist(pls,m3u,asf).
In
%A_ScriptDir%\PL\
werden sie gespeichert.
gewählter Player:`t%playerv%
Version:`t%version%
)
txt2 =
(
aktueller Sender:`t%m3u2%
)
; MsgBox, 64, %Filename%, %txt%
Guisiz = 900
Gui 2: font, s9, Verdana
Gui 2: Add, Picture, Icon222 , Shell32.dll
Gui 2: add, text, x+15, %txt%
Gui 2: add, text, h40, %txt2%
Gui 2: Add, Picture, x+15 yp-15 w40 h-1, % ((FileExist(A_ScriptDir "\PL\" OutNameNoExt ".ico")) ? A_ScriptDir "\PL\" OutNameNoExt ".ico" : "")
If m3u2 in %tr_list%
Gui 2: Add, edit, x55 y+1 w600 +ReadOnly, % "aktueller Titel: " trayt
Gui 2: add, Button, +Default x55 yp+50 w35, OK
Gui 2: show,
Return
; -------------------------------------------------------------------------
2ButtonOK:
; MsgBox
Gui 2: Destroy
Return
; -------------------------------------------------------------------------
trayt:
trayt_old = %trayt%
If m3u2 = WDR4.m3u
trayt := titeltip4()
If m3u2 = NDR1.m3u
trayt := titeltip3()
If m3u2 = SWR3.m3u
trayt := titeltip()
if m3u2 = NDR2.m3u
trayt := titeltip2()
if m3u2 = Moskau Radio - DeepMix.pls
trayt := titeltip_deepmix()
Menu, Tray, tip, % "- " m3u3 " - " A_ScriptName "`naktueller Titel:`n" trayt
if (traymode and trayt_old != trayt)
TrayTip, %m3u3%, Weitere Optionen mit Rechtsklick...`n%trayt%, 20
Return
; -------------------------------------------------------------------------
; Funktion zum ermitteln des aktuellen Titels SWR3
titeltip()
{
; einstellungen
link = http://www.swr3.de/index.php
tmp = %A_Temp%\ndr.tmp ;tempdatei
vor = <div class="onAirNowFront_interpretTitle"> ; muss zuvor gefunfen werden
FileDelete, %tmp%
URLDownloadToFile, %link%, %tmp%
If ErrorLevel
Return "keine Daten,Fehler beim Download"
FileRead, str, %tmp%
if ErrorLevel
Return "Fehler beim Einlesen der Daten"
Loop, Parse, str, `n
{
IfInString, A_LoopField, %vor%
{
vora = %A_Index% ; zeile die vorinfo enthält
Continue
}
if (A_Index = vora + 1)
{
StringSplit, teil, A_LoopField, >,
StringReplace, artist, teil2, </a, ,
}
if (A_Index = vora + 2)
{
StringSplit, teil, A_LoopField, >,
StringReplace, titel, teil2, </a, ,
Break
}
}
if !vora
Return "Initialzeile nicht gefunden"
Return artist " - " titel
}
; -------------------------------------------------------------------------
; Funktion zum ermitteln des aktuellen Titels NDR2
titeltip2()
{
; einstellungen
link = http://www.ndr2.de ;/pages_idx_lib/0,,SPM6962,00.html
tmp = %A_Temp%\ndr.tmp ;tempdatei
sestr = <li class="song1"> ; so beginnt die Zeile vor dem interpreten
FileDelete, %tmp%
URLDownloadToFile, %link%, %tmp%
If ErrorLevel
Return "keine Daten,Fehler beim Download"
FileRead, str, %tmp%
if ErrorLevel
Return "Fehler beim Einlesen der Daten"
Loop, Parse, str, `n
{
if !vora
IfInString, A_LoopField, %sestr%
{
vora = %A_Index% ; zeile die vorinfo enthält
Continue
}
if vora
{
if (A_Index = vora + 3)
titel1 := SubStr(A_LoopField, 22, -7)
if (A_Index = vora + 4)
{
titel2 := SubStr(A_LoopField, 20, -11)
Break
}
}
}
if !vora
Return "Initialzeile nicht gefunden"
Return szeichen(titel1) " - " szeichen(titel2)
}
; -------------------------------------------------------------------------
; Funktion zum ermitteln des aktuellen Titels NDR1
titeltip3()
{
; einstellungen
link = http://www.ndr1niedersachsen.de ;/pages_idx_lib/0,,SPM6962,00.html
tmp = %A_Temp%\ndr.tmp ;tempdatei
sestr = <div class="boxhead">Es läuft:</div> ; so beginnt die Zeile vor dem interpreten
FileDelete, %tmp%
URLDownloadToFile, %link%, %tmp%
If ErrorLevel
Return "keine Daten,Fehler beim Download"
FileRead, str, %tmp%
if ErrorLevel
Return "Fehler beim Einlesen der Daten"
Loop, Parse, str, `n
{
if !vora
IfInString, A_LoopField, %sestr%
{
vora = %A_Index% ; zeile die vorinfo enthält
Continue
}
if vora
{
if (A_Index = vora + 2)
{
RegExMatch(A_LoopField, ">([^>]*)</a></h2>", titel)
}
}
}
if !vora
Return "Initialzeile nicht gefunden"
Return szeichen(titel1)
}
; ------------------------------------------------------------------------------
; Funktion zum ermitteln des aktuellen Titels WDR4
titeltip4()
{
; einstellungen
link = http://www.wdr.de/radio/wdr4/playlist ;/pages_idx_lib/0,,SPM6962,00.html
tmp = %A_Temp%\ndr.tmp ;tempdatei
sestr = <td headers="uhrzeit" class=" ; so beginnt die Zeile vor dem interpreten
FileDelete, %tmp%
URLDownloadToFile, %link%, %tmp%
If ErrorLevel
Return "keine Daten,Fehler beim Download"
FileRead, str, %tmp%
if ErrorLevel
Return "Fehler beim Einlesen der Daten"
Loop, Parse, str, `n
{
if !vora
IfInString, A_LoopField, %sestr%
{
vora = %A_Index% ; zeile die vorinfo enthält
Continue
}
if vora
{
if (A_Index = vora + 2)
{
needle = <td headers="interpret">(.*)</td>
RegExMatch(A_LoopField, needle, titela)
}
if (A_Index = vora + 1)
{
needle = <td headers="songtitel">(.*)</td>
RegExMatch(A_LoopField, needle, titel)
}
}
}
if !vora
Return "Initialzeile nicht gefunden"
Return szeichen(titela1) " - " szeichen(titel1)
}
; ------------------------------------------------------------------------------
; Funktion zum ermitteln des aktuellen Titels DeepMix Radio Moskau
titeltip_deepmix()
{
; einstellungen
link = http://www.deepmix.eu ;/pages_idx_lib/0,,SPM6962,00.html
tmp = %A_Temp%\ndr.tmp ;tempdatei
sestr = <span class="playnow"> ; so beginnt die Zeile vor dem interpreten
FileDelete, %tmp%
URLDownloadToFile, %link%, %tmp%
If ErrorLevel
Return "keine Daten,Fehler beim Download"
FileRead, str, %tmp%
if ErrorLevel
Return "Fehler beim Einlesen der Daten"
Loop, Parse, str, `n
{
if !vora
IfInString, A_LoopField, %sestr%
{
vora = %A_Index% ; zeile die vorinfo enthält
Continue
}
if vora
{
if (A_Index = vora + 1)
{
; Izhevski - Cartoon Studio: Just the Way I Feel</span><br><br style="font-size: 6px;">
needle = \s*(\w+.*)</span
RegExMatch(A_LoopField, needle, titela)
}
}
}
if !vora
Return "Initialzeile nicht gefunden"
Return szeichen(titela1)
}
; -------------------------------------------------------------------------
szeichen(LoopField)
{
; Sonderzeichen aus html ersetzen
StringReplace, LoopField, LoopField, &`;, &, All
StringReplace, LoopField, LoopField, ä`;, ä, All
StringReplace, LoopField, LoopField, Ä`;, Ä, All
StringReplace, LoopField, LoopField, ö`;, ö, All
StringReplace, LoopField, LoopField, Ö`;, O, All
StringReplace, LoopField, LoopField, ü`;, ü, All
StringReplace, LoopField, LoopField, Ü`;, U, All
StringReplace, LoopField, LoopField, ß`;, ß, All
StringReplace, LoopField, LoopField, '`;, ', All
StringReplace, LoopField, LoopField, ê, ê, All
StringReplace, LoopField, LoopField, é, é, All
Return LoopField
}
; -------------------------------------------------------------------------
^#p:: ; PL-Menü aufrufen
Menu, m3u, Show
Return
; -------------------------------------------------------------------------
^#UP::
next := (position = 1 ? anzahl_pl : (position - 1))
Gosub, nex
Return
; -------------------------------------------------------------------------
^#DOWN::
next := (position = anzahl_pl ? 1 : (position + 1))
Gosub, nex
Return
; -------------------------------------------------------------------------
nex: ; nächste PL
Loop, %A_ScriptDir%\PL\*.*
{
SplitPath, A_LoopFileFullPath, OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive
If OutExtension in m3u,pls,asf
{
anzahl_pl2++
If anzahl_pl2 = %next%
{
m3u = %A_LoopFileFullPath%
m3u2 = %A_LoopFileName%
Gosub, hotke
}
}
}
Return
/*
Änderungen Datum:
* 10:59 Freitag, 2. Juli 2010 v1.1.2.6
* probleme behoben wenn sich Reload und timer 'wm' überschnitten
* Playlist 'Jump' angepasst
* 10:10 Donnerstag, 1. Juli 2010 version v1.1.2.5
* sicherheitshalber loop für WinGet 'player_uid'
* Playlist für 'DeepMix Radio Moskau' angepasst und titelinformationen hinzugefügt
* 23:49 Dienstag, 29. Juni 2010 version v1.1.2.4
* aufgeräumt(Process close)
* fensterhandle nun über unique ID (probleme mit neuer VLC-version behoben)
* 13:22 Samstag, 26. Juni 2010 version v1.1.2.3
* Tray-Mode,bei jedem wechsel der titelinformationen kommt ein neuer traytip(im traymenü deaktivierbar)
* 13:22 Samstag, 26. Juni 2010 version v1.1.2.2
* anpassungen für die benutzung der portablen vlc-version
* WDR4 hinzugefügt
* Titelinfos für NDR1 und WDR4
* 14:03 Freitag, 8. Mai 2009 version v1.1.1
* Titelermittlung für NDR2 und SWR3 angepasst(geänderte Webseiten der Anbieter)
* 14:06 Mittwoch, 6. Mai 2009 version v1.1.0
* VLC-Fehlermeldungen unterdrücken(vlc_fehler_killen)
* 31.12.2008 18:53:54 version v1.0.9
* Titelanzeige wurde bei jedem sender aktiviert
* 23.12.2008 23:35:17 version v1.0.8
* kleine schönheitsoperationen
* SWR3 nun auch mit Titelinfos aus dem netz
* STRG+Win+P ruft Playlistmenü zum zappen auf
* STRG+Win+UP Sender hoch
* STRG+Win+DOWN Sender runter
09.08.2008 13:21:33 version v1.0.7
* titelinformationen als traytip für icon und in Infodialog aus webseite ermitteln(vorerst nur NDR2)
15.06.2008 00:47:55
* asf als PL hinzugefügt
* icon in startgui
* Hotkey zum beenden,lässt sich in der ini-Datei(HKK) ändern,"kein" für keinen Hotkey eintragen
22.05.2008 13:15:46
*Hotkey und Menüeintrag zum Reload hinzugefügt,Default ist STRG+Win+R,lässt sich in der ini-Datei(HK) ändern,"kein" für keinen Hotkey eintragen
01.02.2008 17:37:32
* versucht erkennbare struktur zu erzeugen
* erweiterung aus pl-anzeige entfernt
* fehlerkontrolle erweitert
01.31.2008 03:35:32
* neuer traytip
* etliche icons hinzugefügt
30.01.2008
* Installer (erstellt Unterverzeichnis mit Playlists und Icons)
* es lassen sich jetzt leicht eigene Playlist und Icons hinzufügen
|
_________________
Mit freundlichen Grüßen
fredchf
Zuletzt bearbeitet von fredchf am Fr Jul 09, 2010 7:31 pm, insgesamt 28-mal bearbeitet |
|
| Nach oben |
|
 |
Chucky
Anmeldedatum: 07.01.2006
Beiträge: 928
Wohnort: Land der tausend Berge
|
| Verfasst am: Di Dez 25, 2007 12:00 am Titel: |
|
|
Nette Idee  , geht auch gut mit WinAmp.
Gibt's eigentlich im Web eine Liste mit Stream-Adressen regionaler Webradios (wenn ja, wo) ? Also nicht (nur) die "besten Hits der 80er 90er"-Sender o. ä., sondern (auch) NDR, WDR, BR, MDR, HR usw. ? |
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 982
Wohnort: Deutschland
|
| Verfasst am: Di Dez 25, 2007 12:32 am Titel: |
|
|
Hallo Chucky,
meinst Du vielleicht sowas hier?
http://web.ard.de/radio/radionet/
Ich hatte eigentlich eine andere Seite benutzt,die ich jetzt aber nicht finden kann!  
_________________
Mit freundlichen Grüßen
fredchf |
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 982
Wohnort: Deutschland
|
| Verfasst am: Di Dez 25, 2007 12:36 am Titel: |
|
|
jetzt habe ich es
| Zitat: | | Nette Idee Cool, geht auch gut mit WinAmp. |
Ja,nur ist Winamp bei mir mit einigen PlugIns mittlerweile recht langsam startend!  Den MediaPlayer hat eigentlich jeder,der startet zügig und wird sonst bei mir nicht genutzt.(bevorzuge VLC und Winamp)
_________________
Mit freundlichen Grüßen
fredchf |
|
| Nach oben |
|
|
Chucky
Anmeldedatum: 07.01.2006
Beiträge: 928
Wohnort: Land der tausend Berge
|
| Verfasst am: Di Dez 25, 2007 11:56 pm Titel: |
|
|
Genau sowas meinte ich, Dein erster Link war auch schon gut. Danke für Deine Recherche ! | Zitat: | | Ja,nur ist Winamp bei mir mit einigen PlugIns mittlerweile recht langsam startend! |
Ich benutze standhaft seit Jahren den Winamp 2.91  , der ist schnell. Für exotischere Formate nehme ich ebenfalls den VLC-Player; den MediaPlayer nur, wenn's wirklich nicht anders geht.
__________________________________________
Created with BBCodeWriter 7.0 - the one and only  |
|
| Nach oben |
|
|
Catman
Anmeldedatum: 02.02.2007
Beiträge: 38
|
| Verfasst am: So Jan 27, 2008 8:40 pm Titel: |
|
|
He, das ist mal nee cooles Teil. Ich höre oft beim Surfen Radio. Und es nervt sich immer durch die ganzen Links zu klick0rn bis man am Stream ist.
Eine Frage hätte ich dennoch. Wäre es denn möglich mehrere Streams in einem Script unter zu bringen, so das man über das Trayicon z.B. über nen Rechtsklick eine Auswahl seiner Lieblingsender hat, und dann zur Not wechseln kann?
Ich bin ehrlich, ich hab null Plan davon, aber AHK ist der Hammer, es macht das Leben mit dem Pc angenehmer!
|
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 982
Wohnort: Deutschland
|
| Verfasst am: So Jan 27, 2008 9:41 pm Titel: |
|
|
hi catman,
klar ist das möglich!
hatte ich mir auch eigentlich vorgenommen,aber weil ich eigentlich nur ndr2 höre und die resonanz bescheiden war,habe ich keine weitere arbeit investiert. 
wenn es dir freude machen sollte,kann ich das leicht beenden!?
_________________
Mit freundlichen Grüßen
fredchf |
|
| Nach oben |
|
|
Catman
Anmeldedatum: 02.02.2007
Beiträge: 38
|
| Verfasst am: Mo Jan 28, 2008 12:24 am Titel: |
|
|
Das wär fein, was soll ich für Zuarbeit leisten?
|
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 982
Wohnort: Deutschland
|
| Verfasst am: Mo Jan 28, 2008 12:41 am Titel: |
|
|
hallo,
schon erledigt,siehe anfangspost!
du kannst es ja nach deinen wünschen umbauen oder verfeinern.
_________________
Mit freundlichen Grüßen
fredchf |
|
| Nach oben |
|
|
Catman
Anmeldedatum: 02.02.2007
Beiträge: 38
|
| Verfasst am: Mo Jan 28, 2008 12:04 pm Titel: |
|
|
Da sag ich nur: "Ganz grosses Kino!"
Ich bin einfach nur begeistert, danke für die schnelle Antwort, und natürlich auch für dein Engagement!
|
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 982
Wohnort: Deutschland
|
| Verfasst am: Mi Jan 30, 2008 7:17 am Titel: |
|
|
hallo!
ich habe das script jetzt mal so angepasst,das sich jeder leicht seine eigenen playlist und icons hizufügen kann! die playlists und dazugehörigen icons werden jetzt in einem unterverzeichnis gespeichert,erkannt und dann automatisch ins das traymenü aufgenommen
nebenbei habe ich die zahl,siehe oben,der integrierten playlists(radio-streams)deutlich erhöht.(anregung von catman)
_________________
Mit freundlichen Grüßen
fredchf |
|
| Nach oben |
|
|
Lirave
Anmeldedatum: 02.10.2007
Beiträge: 175
Wohnort: Dresden
|
| Verfasst am: Mi Jan 30, 2008 12:26 pm Titel: |
|
|
ich habe dazu mal ne frage
ich habe die exe runtergeladen und installiert und dann gestartet
dann habe ich den vlc player ausgewählt und dann habe ich jump ausprobiert
klappt bis jetzt alles perfekt
aber es klappt nicth bei Hit radio sachsen
( die anderen habe ich jetzt noch nciht probiert)
und dann hätte ich noch ne frage, ist es möglich mit einem Hotkey eine Aufnahme zu starten?
(natürlich nur wenn es legal ist, kenne mich da nciht 100% aus)
ist ein super Programm respekt
_________________
Gruß Lirave |
|
| Nach oben |
|
|
BoBo¨
Gast
|
| Verfasst am: Mi Jan 30, 2008 2:27 pm Titel: |
|
|
*verdammt mir fehlt das *würg*-icon*
Wenns für mich nen Grund gibt ab Landesgrenze das Radio abzuschalten dann den.
Diese,
"Ich-Duz-meine-Zuhörer-weil-ich-dann-als-berufsjugendlicher-einfach-viel-cooler-rüberkomme-wenn-ich-action-news-ankündige-
-die-nichts-anderes-sind-als-britney-spears-news-und-zwischen-der-grusel-mucke-der-80er-und-90er-die-brauchbarste-information-
-die-warnung-vor-ner-radarfalle-in-weixdorf-ist",
gehn mir aufn keks und werden nur noch getoppt von "Nu nu, Mutti - alles gute zu deinem Ehrentag *wobei im Hintergrund bereits Rex Gildo angespielt wird*"
Degustibus non est disputandum |
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 982
Wohnort: Deutschland
|
| Verfasst am: Mi Jan 30, 2008 2:59 pm Titel: |
|
|
hi bobo!
| Zitat: | | *verdammt mir fehlt das *würg*-icon* |
ich kenne diesen sender zwar nicht persönlich,aber sender ,auf die diese beschreibung passen könnte, gibt es sicher in jeder region!
_________________
Mit freundlichen Grüßen
fredchf |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 705
Wohnort: switzerland
|
| Verfasst am: Mi Jan 30, 2008 8:28 pm Titel: |
|
|
danke für's program fredchf
Lirave
| Zitat: | | und dann hätte ich noch ne frage, ist es möglich mit einem Hotkey eine Aufnahme zu starten? |
hier ein Beispiel mit streamripper
hatte den letzten streamripper downloaded, bekam aber mehrere Fehlermeldungen, intl.dll fehlt ( und weitere Fehler )
könnt ihr paar Beispiele zeigen ?
http://streamripper.sourceforge.net/
http://sourceforge.net/project/showfiles.php?group_id=6172&package_id=135477&release_id=548485
http://downloads.sourceforge.net/streamripper/streamripper-win32-1.63-beta-1.zip?modtime=1192968639&big_mirror=0
im script unten ein Downloadlink ältere Version ,wird nur benötigt :
streamripper.exe und tre.dll
das Beispiel hier funktioniert mit dem älteren streamripper
PLAY1=plays radio hawaii
RECORD1=record radio hawaii
DOWNLOAD2=download ein scetch von HR3 (mp3-datei)
RECORDED= öffnet folder c:\_recording
wie bekomme ich hin das die MP3 Datei in ordner C:\_recording\HR3\Hellseher.mp3 heisst ?
(sonst auch urldownloadtofile Befehl benützen)
im Moment:
C:\_RECORDING\HR3\Streamripper_rips\sr_program_2008_01_30_20_21_55.mp3
| Code: | MODIFIED=20080130
/*
streamripper example
records radio or download mp3 to c:\_recording
*/
STR=%A_scriptdir%\STREAMRIPPER
ifnotexist,%STR%
FileCreateDir,%STR%
STREAMRIPPER =%A_scriptdir%\streamripper\streamripper.exe
ifnotexist,%streamripper%
goto,dnl
C1=Hawaii
C3=http://70.84.73.66:8000
Gui,1:Add,Button,x10 y10 h25 w100 gPLAY1 ,PLAY1
Gui,1:Add,Button,x10 y40 h25 w100 gRECORD1 ,RECORD1
Gui,1:Add,Button,x120 y10 h25 w100 gDOWNLOAD2 ,DOWNLOAD2
Gui,1:Add,Button,x230 y10 h25 w100 gRECORDED ,RECORDED
Gui,1:Show, x100 y50 w370 h70,RADIO
return
;----------------------------------------------------
PLAY1:
Gui,1:submit,nohide
adre=%C1%.pls
ifnotexist,%adre%
Fileappend,[playlist]`nNumberOfEntries=1`nFile1=%C3%`n,%adre%
run,%adre%
return
;----------------------------
RECORD1:
Gui,1:submit,nohide
ifexist,%streamripper%
run,%COMSPEC% /K "%streamripper%" %C3% --xs_padding=7000:9000 -t -d c:\_recording
return
;-----------------------------
DOWNLOAD2:
runwait,%COMSPEC% /c "%streamripper%" http://www.hr-online.de/website/static/podcasting/hr3_lachenmitklaus/Hellseher.mp3 -a -c -T -A -d c:\_recording\HR3,,hide
Loop,C:\_recording\HR3\Streamripper_rips\*.cue
{
Filedelete,%A_LoopFileFullPath%
}
run,c:\_recording\HR3\Streamripper_rips
return
;-----------------------------
RECORDED:
run,c:\_recording
return
;----------------------------
guiclose:
exitapp
;----------------------------
dnl:
{
text31=
(
Download
-streamripper.exe with tre.dll and put in subfolder Streamripper
from
http://streamripper.sourceforge.net/
Want you download these programs ?
)
msgbox, 262180, Start URL,%text31%
ifmsgbox,NO
{
exitapp
return
}
else
{
;run,http://streamripper.sourceforge.net/
;run,http://sourceforge.net/project/showfiles.php?group_id=6172&package_id=135477&release_id=548485
;run,http://downloads.sourceforge.net/streamripper/streamripper-win32-1.63-beta-1.zip?modtime=1192968639&big_mirror=0
run,http://www.autohotkey.net/~garry/WGETSTREAMMP3DIRECTCUT.zip
exitapp
return
}
}
return
|
|
|
| Nach oben |
|
|
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
|
Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de |
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
