Internetradio empfangen

Dankeschön

Siehe Überschrift.

Ist das möglich?
Wenn ja,wie?
Mit der Ie.au3,also dann in einem Pixel die Seite darstellen?

Also ich würde es gerne mit 1Live versuchen.....

Schonmal Dankeschön,Dankeschön

**Alina**

Hallo Dankeschön.

Also in einem Pixel wird das sicherlich nichts, aber ansonsten:

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstants.au3>

GUICreate("Onlineradio", 500, 400)
Guictrlcreatelabel("Einfach auf den gewünschten Radiosender klicken",40, 20)
$antenne = GUICtrlCreateButton("Antenne Bayern", 40, 50, 90)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

; Exit
$Button_1 = GuiCtrlCreateButton("Exit", 390, 350, 100, 40)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

Select
Case $msg = $antenne
Run("C:\programme\internet explorer\iexplore.exe")
Winwaitactive("about:blank - ")
sleep(1000)
Send("{TAB}")
sleep(500)
send("http://www.antenne.de")
Send("{ENTER}")
Case $msg = $Button_1
Exit
EndSelect
WEnd

[/autoit]

Muß noch für 1 Live (Domian ???) angepaßt werden.

Gruß, Crazy-A.

progandy

Es geht sogar noch anders... Mit der MediaPlayer UDF: http://www.autoitscript.com/forum/index.php?showtopic=27352

Spoiler anzeigen

[autoit]

#include <IE.au3>
#NoTrayIcon
#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $lastURL = ""
$IEGUI = GUICreate("WebRadio",200,200)
GUISetBkColor(0)
$oWMP = _wmpcreate(1,0,0,200,200)
_wmpvalue($oWMP,"controls")
;~ $oIE = _IECreateEmbedded()
;~ $GuiIE = GUICtrlCreateObj($oIE,0,0,100,100)
;~ GUISetState()
GUICreate("Onlineradio", 500, 400)
;~ GUICtrlCreateObj($oIE,0,0,
Guictrlcreatelabel("Einfach auf den gewünschten Radiosender klicken",40, 20)
$antenne = GUICtrlCreateButton("Antenne Bayern", 40, 50, 90)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$Toggle = GuiCtrlCreateButton("Toggle Player", 100, 350, 100, 40)

[/autoit] [autoit][/autoit] [autoit]

$Stop = GuiCtrlCreateButton("Pause", 270, 350, 100, 40)
; Exit
$Button_1 = GuiCtrlCreateButton("Exit", 390, 350, 100, 40)

[/autoit] [autoit][/autoit] [autoit]

Dim $ShowHide[2] = [@SW_HIDE,@SW_SHOW], $PlayErShow = 0
While 1
$extMsg = GUIGetMsg(1)
$msg = $extMsg[0]

Select
Case $msg = $antenne
If $lastURL <> "EinsLive" Then
$lastURL = "EinsLive"
_wmploadmedia($oWMP,"http://www.wdr.de/wdrlive/media/einslivedigi.m3u",1)
Else
_wmpvalue($oWMP,"play")
EndIf
Case $msg = $Toggle
$PlayErShow = Not $PlayErShow
GUISetState($ShowHide[$PlayErShow],$IEGUI)
Case $msg = $Stop
_wmpvalue($oWMP,"pause")
Case $msg = $Button_1 Or $msg = -3
If $extMsg[1] = $IEGUI Then
GUISetState(@SW_HIDE,$IEGUI)
$PlayErShow = 0
Else
_wmpvalue($oWMP,"stop")
Exit
EndIf
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#cs
_wmpcreate($show, $left, $top, $width = 100, $height = 100)
$show: 1 = shows controls
2 = hides controls

[/autoit] [autoit][/autoit] [autoit]

Return: The object for the control
#ce
Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
$oWMP = ObjCreate("WMPlayer.OCX")
If $oWMP = 0 Then Return 0
$oWMP.settings.autoStart = "False"
If $show = 1 Then
GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
EndIf
Return $oWMP
EndFunc
#cs
_wmploadmedia( $object, $URL, $autostart = 1 )
$object: Object returned from the _wmpcreate()
$URL: Path or URL of the media
$autostart: 1 = yes
0 = no

[/autoit] [autoit][/autoit] [autoit]

Return: None
#ce
Func _wmploadmedia(ByRef $object, $URL, $autostart = 1 )
$object.URL = $URL
While Not $object.controls.isAvailable("play")
Sleep(1)
WEnd
If $autostart = 1 Then $object.controls.play()
EndFunc
#cs
_wmpsetvalue( $object, $setting, $para=1 )
$object: Object returned from the _wmpcreate()
$setting: "play"
"stop"
"pause"
"invisible" (Hides all)
"control" (Shows controls)
"nocontrol" (Hides controls)
"fullscreen"
"step" (frames to step before freezing)
"fastforward"
"fastreverse"
"volume" (0 To 100)
"rate" (-10 To 10)
"playcount"

[/autoit] [autoit][/autoit] [autoit]

Return: None
#ce
Func _wmpvalue( $object, $setting, $para=1 )
Select
Case $setting = "play"
If $object.controls.isAvailable("play") Then $object.controls.play()
Case $setting = "stop"
If $object.controls.isAvailable("stop") Then $object.controls.stop()
Case $setting = "pause"
If $object.controls.isAvailable("pause") Then $object.controls.pause()
Case $setting = "invisible"
$object.uiMode = "invisible"
Case $setting = "controls"
$object.uiMode = "mini"
Case $setting = "nocontrols"
$object.uiMode = "none"
Case $setting = "fullscreen"
$object.fullscreen = "true"
Case $setting = "step"
If $object.controls.isAvailable("step") Then $object.controls.step($para)
Case $setting = "fastForward"
If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward()
Case $setting = "fastReverse"
If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse()
Case $setting = "volume"
$object.settings.volume = $para
Case $setting = "rate"
$object.settings.rate = $para
Case $setting = "playcount"
$object.settings.playCount = $para
Case $setting = "setposition"
$object.controls.currentPosition = $para
Case $setting = "getposition"
Return $object.controls.currentPosition
Case $setting = "getpositionstring";Returns HH:MM:SS
Return $object.controls.currentPositionString
Case $setting = "getduration"
Return $object.currentMedia.duration
EndSelect
EndFunc

[/autoit]

Dankeschön

Ich versteh den Code nicht
Kannst du die wichtigsten Funktionen des UDF mal erklären (die was damit zu tun haben) ?
Oder hinter jeder der _wmp* einen Kommentar für den zweck schreiben?

Wäre nett....

Dankeschön,Dankeschön

@Crazy-A: Wenn du auf die 1Liveseite gehst,bemerkst du,dass man mit einem Enter nichtmals Ansatzweise zum Ziel kommst !

Außerdem sollte es am liebsten kein eigenes Skript sein,sondern ein Knopf in einem großes Skript.
Und wenn man dann "öffentlich" den Internet Explorer öffnet und die Maus bewegt,trifft das mitncihten den Geschmack des Benutzers.
Aber danke für den Versuch,geh doch mal auf die Website !

Edit: Ich seh gerade den Link: http://www.wdr.de/wdrlive/media/einslive.m3u
Wie kann man das einspielen?
Am besten OHNE externe Programme (falls das geht)

progandy

Bei der WMP-UDF stehen doch schon Kommentare dran
_wmpvalue ist dafür da, verschiedene Sachen, wie z.B. Play / Pause / Stop oder auch den Anzeigemodus zu setzten
_wmpcreate erstellt das Mediaplayer-Objekt
_wmploadmedia ist ja wohl selbst erklärend
Und ich hab schon den EinsLive-Stream eingebaut

Dankeschön

Ok,danke.

Die _wmps hab ich jetzt verstanden,fehlen nurnoch die anderen 90%

Erlaubst du mir , den Code in den Datenschredder einzubauen?
Wenn ja, welchen Namen soll ich dann zu den Credits nehmen ( und logischerweise wenn man den Player startet) ?
progandy ?

progandy

Also, die UDF ist von CyberZeroCool und klar, den Code kannst du einbauen. Und den Code hab ich zu 90% nicht selber gemacht Also musst du mich auch nicht nennen.
Zum Zeigen/ Verstecken der MediaplayerGUI hab ich mir ein Array gemacht, damit ich auf @SW_Show mit 1/true und auf @SW_HIDE mit 0 /False zugreifen kann. Das erspart eine Switch oder If -Abfrage

**Greenhorn**

Zitat von Dankeschön

@Crazy-A: Wenn du auf die 1Liveseite gehst,bemerkst du,dass man mit einem Enter nichtmals Ansatzweise zum Ziel kommst !

Außerdem sollte es am liebsten kein eigenes Skript sein,sondern ein Knopf in einem großes Skript.
Und wenn man dann "öffentlich" den Internet Explorer öffnet und die Maus bewegt,trifft das mitncihten den Geschmack des Benutzers.
Aber danke für den Versuch,geh doch mal auf die Website !

Was für eine Antwort hast Du denn auf die Frage erwartet ???

Zitat von Dankeschön

Mit der Ie.au3,also dann in einem Pixel die Seite darstellen?

Gruß
Greenhorn

**Alina**

Zitat von Dankeschön

@Crazy-A: Wenn du auf die 1Liveseite gehst,bemerkst du,dass man mit einem Enter nichtmals Ansatzweise zum Ziel kommst !

Dankeschön.

Die Überschrift war doch "Internetradio empfangen", oder? Wie sollte ich nach der Fragestellung da wissen, was Du genau meinst.
Ich bin davon ausgegangen, das Du 1-Live hören möchtest über den INet-Explorer und das geht mit dem Script den ich Dir gegeben habe.
Das nun die Frage klarer dargestellt wurde, bringt es in ein anderes Licht, aber einem kann nicht ein Licht auf gehen, wo die Glühbirne fehlt
(eindeutige und klare Fragestellung).

Okay?

Gruß, Crazy-A.

Dankeschön

Ay Ay,Sir

**Alina**

Lady, please

Dankeschön

Zitat

Es geht sogar noch anders... Mit der MediaPlayer UDF: http://www.autoitscript.com/forum/index.php?showtopic=27352

Habe ich jetzt mal (für ein neues Projekt, daher sorry fürs ausbuddeln) includet.
Welche Formate werden denn alles unterstützt und wo kann ich eine Webradio-Sammelliste finden ?
Ich habe leider kaum Lust, tagelang das WWW nach irgendwelchen Radios zu durchforsten :\
Hoffe, da kennt jemand einen Link

(Fragen unterstrichen )

Mfg,
Dankeschön

**Stilgar**

Formate:
Alles was an DirectShow Codecs installiert ist

"Radiolisten":
http://www.screamer-radio.com/directory/
http://dir.xiph.org/index.php
http://www.shoutcast.com/
dürften vorerst reichen

Sirocool

so geht es auch bei mir nur das kein fenster mehr mit auf geht und aus ini gelesen wird

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.0.0
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>
#include <IE.au3>
$INI= @ScriptDir & "\Sender.ini"

[/autoit] [autoit][/autoit] [autoit]

$oWMP = _wmpcreate(1,0,0,200,200)
_wmpvalue($oWMP,"controls")

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 250, 66, 446, 539)
GUISetBkColor(0xFFFFFF)
$Combo1 = GUICtrlCreateCombo("", 8, 24, 145, 25)
GUICtrlSetData(-1,iniRead ($INI,"Sender","Sender",""),"EinsLive")
$Button1 = GUICtrlCreateButton("Play", 168, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $combo1
If GUICtrlRead($Combo1)=GUICtrlRead($Combo1) then

;"http://www.wdr.de/wdrlive/media/einslivedigi.m3u",1)
EndIf
Case $Button1
_wmploadmedia($oWMP,IniRead ($INI,"URL",GUICtrlRead($Combo1),""),1)
EndSwitch
WEnd
Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
$oWMP = ObjCreate("WMPlayer.OCX")
If $oWMP = 0 Then Return 0
$oWMP.settings.autoStart = "False"
If $show = 1 Then
GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
EndIf
Return $oWMP
EndFunc
Func _wmploadmedia(ByRef $object, $URL, $autostart = 1 )
$object.URL = $URL
While Not $object.controls.isAvailable("play")
Sleep(1)
WEnd
If $autostart = 1 Then $object.controls.play()
EndFunc
Func _wmpvalue( $object, $setting, $para=1 )
Select
Case $setting = "play"
If $object.controls.isAvailable("play") Then $object.controls.play()
Case $setting = "stop"
If $object.controls.isAvailable("stop") Then $object.controls.stop()
Case $setting = "pause"
If $object.controls.isAvailable("pause") Then $object.controls.pause()
Case $setting = "invisible"
$object.uiMode = "invisible"
Case $setting = "controls"
$object.uiMode = "mini"
Case $setting = "nocontrols"
$object.uiMode = "none"
Case $setting = "fullscreen"
$object.fullscreen = "true"
Case $setting = "step"
If $object.controls.isAvailable("step") Then $object.controls.step($para)
Case $setting = "fastForward"
If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward()
Case $setting = "fastReverse"
If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse()
Case $setting = "volume"
$object.settings.volume = $para
Case $setting = "rate"
$object.settings.rate = $para
Case $setting = "playcount"
$object.settings.playCount = $para
Case $setting = "setposition"
$object.controls.currentPosition = $para
Case $setting = "getposition"
Return $object.controls.currentPosition
Case $setting = "getpositionstring";Returns HH:MM:SS
Return $object.controls.currentPositionString
Case $setting = "getduration"
Return $object.currentMedia.duration
EndSelect
EndFunc

[/autoit]

und so sieht ini aus

Spoiler anzeigen

[Sender]
Sender=EinsLive
[URL]
EinsLive=http://www.wdr.de/wdrlive/media/einslivedigi.m3u

**bernd670**

Hallo,

zum Thema Webradio-Sammellisten!

Für Set-Top-Boxen gibt es ein StreamOnTV-Client. Für diesen SOT-Client gibt es auch ein Add-On für Internet-Radio das eine umfangreiche Sammlung an Adressen (ca. 230) für Webradio beinhaltet. Lade einfach die Zip-Datei runter und entpacke sie in einen neuen Ordner. Im Verzeichnis <Ordner mit entpacker Zip-Datei>\Hard Disk\Sonstiges\Internet-Radio\ findest Du die Sammlung der Adressen in m3u-Dateien.