Hallo Leute habe ein problem mir wurde schon insofern geholfen das ich bei einigen radios die streams mit meinem programm abspielen kann
leider hatt sich rausgestellt das ausgerechnet das radio das ich hören will nicht mit mediaplayer funktioniert
mit vlc player geht es ist es möglich das media player object durch vlc zu ersetzen ?
hier mal der Code
Spoiler anzeigen
#include <GUIConstants.au3>
#include <Sound.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <IE.au3>
$size = FileGetSize("C:\MT\BG.jpg")
[/autoit] [autoit][/autoit] [autoit]If $size = 0 then _1 ()
[/autoit] [autoit][/autoit] [autoit]Func _1 ()
DirCreate("C:\MT")
FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\BG.jpg", "C:\MT\BG.jpg")
FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\Play.jpg", "C:\MT\Play.jpg")
FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\Stop.jpg", "C:\MT\Stop.jpg")
FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\Close.jpg", "C:\MT\Close.jpg")
EndFunc
opt("guioneventmode",1)
$Form1 = GUICreate("M-T Radio", 205, 140, -1, -1,$WS_Popup)
$Button2 = GUICtrlCreatePic("C:\MT\Play.jpg",15, 95, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
guictrlsetonevent(-1,"Play")
$Button3 = GUICtrlCreatePic("C:\MT\Stop.jpg",60, 95, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
guictrlsetonevent(-1,"_exit")
guisetonevent($GUI_EVENT_CLOSE,"_exit")
$Pic2 = GUICtrlCreatePic("C:\MT\Close.jpg",180, 5, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
guictrlsetonevent(-1,"_exit2")
$Pic1 = GUICtrlCreatePic("C:\MT\BG.jpg", 0, 0, 205, 140, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_Disabled))
GUICtrlCreateLabel("",0,0,205,140,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
While 1
wend
func play()
_AnimButton ($Form1, $Button2)
$oWMP = ObjCreate ( "WMPLayer.ocx" ) ;Erstellt ein Windows Media Player Objekt (http://msdn.microsoft.com/en-us/library/bb249680(VS.85).aspx)
$oWMP.URL = "http://thompson-mu.no-ip.biz:8999/Listen.psl" ;Stellt die Eigenschaft "URL" zu dem Online-Stream
;von hr3.de ein, sollte automatisch starten
$oWMP.controls.play() ;explizit starten
[/autoit] [autoit][/autoit] [autoit]While $oWMP.playstate > 2 ;solang der Windows Media Player den Stream lädt, buffert, abspielt usw.
Sleep ( 10 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhört
WEnd
endfunc
func _exit()
_AnimButton ($Form1, $Button3)
exit
endfunc
func _exit2()
_AnimButton ($Form1, $Pic2)
exit
endfunc
Func _AnimButton($IDgui, $IDbtn, $delay=300)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc
nehmt bitte einen anderen sender her das genannte radio ist nur abends online heute nimmer
p.s. falls ihr die bilder braucht die hänge ich an
Mfg Eistee