Hilfe bei Videowiedergabe..

    Erstmal ein Hallo an alle =)


    Ich hab vor zeiten mit hilfe eurer seits ein kleinen internetradiostreamplayer gebastelt zusätzlich kann man einzelne mp3s mit abspielen,möchte aber wohl ganz gerne divx,mpeg,wmv usw. abspielen können... das gewünschte videomenü is schon im player verhanden (video button) schön wäre dann ein fullscreen nach dem laden des videos bzw. nach dem play klicken.. und das video eben startet.. schön wäre es wenn ich dazu funktionen vom wmp einbinden könnte... da ich auch das inetradiozeugs vom wmp übernommen habe... guckt es euch einfach mal an :) würde mich auf hilfe freuen und vielleicht hat der eine oder andere ja auch langeweile und macht mir das *kicher* bin da noch so der pro drinne.. hab zwar schon viel dazu gelernt.. aber lange rummsuchen und so is nich meine stärke... ich danke schonmal im vorraus =) ach ja.. noch nen kleine fehlermeldung die ich immer bekomm.. wenn ich zum mp3 menü switche und dann wieder oben rechts aufs X klick um zurückzuswitchen auf das eigendliche hauptmenü bekomm ich ne fehlermeldung und es geht aus :( nur wenn ich vorher ne mp3 geladen und abgespielt habe geht es ohne fehlermeldung.. freue mich auf antworten :) hier mein script :

    Spoiler anzeigen

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <bass.au3>
    #include <bassconstants.au3>

    ;Bass StartUp
    _BASS_STARTUP(@ScriptDir & "\BASS.dll")
    _BASS_Init(0, -1, 44100, 0, "")
    If @error Then
    MsgBox(0, "Error", "Sound konnte nicht Initialisiert werden!")
    Exit
    EndIf

    $main = GUICreate("Extrem Stream 2.1", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED) ;double buffering der GUI -> nur XP!
    GUISetBkColor(0x00000000)
    $start = GUICtrlCreateButton("Play", 10, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop = GUICtrlCreateButton("Stop", 110, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start2 = GUICtrlCreateButton("Play", 10, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop2 = GUICtrlCreateButton("Stop", 110, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start3 = GUICtrlCreateButton("Play", 10, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop3 = GUICtrlCreateButton("Stop", 110, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start4 = GUICtrlCreateButton("Play", 10, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop4 = GUICtrlCreateButton("Stop", 110, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start5 = GUICtrlCreateButton("Play", 10, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop5 = GUICtrlCreateButton("Stop", 110, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start6 = GUICtrlCreateButton("Play", 230, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop6 = GUICtrlCreateButton("Stop", 330, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start7 = GUICtrlCreateButton("Play", 230, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop7 = GUICtrlCreateButton("Stop", 330, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start8 = GUICtrlCreateButton("Play", 230, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop8 = GUICtrlCreateButton("Stop", 330, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start9 = GUICtrlCreateButton("Play", 230, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop9 = GUICtrlCreateButton("Stop", 330, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start10 = GUICtrlCreateButton("Play", 230, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop10 = GUICtrlCreateButton("Stop", 330, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start11 = GUICtrlCreateButton("Play", 467, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop11 = GUICtrlCreateButton("Stop", 567, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start12 = GUICtrlCreateButton("Play", 467, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop12 = GUICtrlCreateButton("Stop", 567, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start13 = GUICtrlCreateButton("Play", 467, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop13 = GUICtrlCreateButton("Stop", 567, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start14 = GUICtrlCreateButton("Play", 467, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop14 = GUICtrlCreateButton("Stop", 567, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start15 = GUICtrlCreateButton("Play", 467, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop15 = GUICtrlCreateButton("Stop", 567, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00ff0000)


    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    GUICtrlCreateButton("Hardstyle", 25, 2, 165)
    GUICtrlCreateButton("Heavy Metal/Rock", 25, 65, 165)
    GUICtrlCreateButton("Rnb/Black", 25, 132, 165)
    GUICtrlCreateButton("Chill Out", 25, 195, 165)
    GUICtrlCreateButton("Charts", 25, 260, 165)
    GUICtrlCreateButton("Trance", 250, 2, 165)
    GUICtrlCreateButton("Techno", 250, 65, 165)
    GUICtrlCreateButton("Hip Hop", 250, 132, 165)
    GUICtrlCreateButton("Jazz", 250, 195, 165)
    GUICtrlCreateButton("Schlager", 250, 260, 165)
    GUICtrlCreateButton("Dance", 480, 2, 165)
    GUICtrlCreateButton("Jumpstyle", 480, 65, 165)
    GUICtrlCreateButton("Salsa", 480, 132, 165)
    GUICtrlCreateButton("House", 480, 195, 165)
    GUICtrlCreateButton("Gabber", 480, 260, 165)

    $Video = GUICtrlCreateButton("Video", 165, 335, 100, 19)
    $Mp3 = GUICtrlCreateButton("Mp3", 390, 335, 100, 19)


    $label = GUICtrlCreateLabel(" Extrem Stream 2.1 created by: Gonzo", 300, 300, 630, 20)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetLimit(-1, 100, 0)
    GUISetState(@SW_SHOW, $main)
    $x = 1100
    AdlibRegister("Scroll_Label", 10)


    $videogui = GUICreate("Video Wiedergabe", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)
    GUISetBkColor(0x00000000)


    $Mp3gui = GUICreate("Mp3 Wiedergabe", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)
    GUISetBkColor(0x00000000)
    $Mp3Start = GUICtrlCreateButton("Play", 25, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Pause = GUICtrlCreateButton("Pause", 260, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Stop = GUICtrlCreateButton("Stop", 500, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Load = GUICtrlCreateButton("Load", 25, 20, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)


    GUISetState(@SW_HIDE, $Mp3)
    GUISetState(@SW_HIDE, $Video)
    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
    Case $main
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    AdlibUnRegister("Scroll_Label")
    Exit
    Case $start
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://85.12.25.90:7500"
    $oWMP.controls.play()
    Case $stop
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.53.138.151:8032/"
    $oWMP.controls.play()
    Case $stop2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w75a"
    $oWMP.controls.play()
    Case $stop3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/12XIIIIX12"
    $oWMP.controls.play()
    Case $stop4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://studio.njoyradio.at:8000"
    $oWMP.controls.play()
    Case $stop5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://cp2.internet-radio.org.uk:30626/"
    $oWMP.controls.play()
    Case $stop6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://listen.to.techno4ever.net"
    $oWMP.controls.play()
    Case $stop7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://205.188.215.229:8040"
    $oWMP.controls.play()
    Case $stop8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://stream2140.init7.net:80/"
    $oWMP.controls.play()
    Case $stop9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/Schlagerhits"
    $oWMP.controls.play()
    Case $stop10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.76.152.74:8000/"
    $oWMP.controls.play()
    Case $stop11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://83.169.61.15:8000"
    $oWMP.controls.play()
    Case $stop12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/Latina-Beat.m3u"
    $oWMP.controls.play()
    Case $stop13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://house.mthN.net:8500/"
    $oWMP.controls.play()
    Case $stop14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://91.143.81.239:8003/"
    $oWMP.controls.play()
    Case $stop15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $Mp3
    GUISetState(@SW_HIDE, $main)
    GUISetState(@SW_SHOW, $Mp3gui)
    Case $Video
    GUISetState(@SW_HIDE, $main)
    GUISetState(@SW_SHOW, $videogui)
    EndSwitch


    Case $Mp3gui
    Switch $nMsg[0]
    Case $Mp3Load
    $file = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")
    $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0)
    Case $Mp3Start
    If IsDeclared("MusicHandle") Then
    _BASS_ChannelPlay($MusicHandle, 0)
    EndIf
    Case $Mp3Pause
    If IsDeclared("MusicHandle") Then
    _BASS_ChannelPause($MusicHandle)
    EndIf
    Case $Mp3Stop
    If IsDeclared("MusicHandle") Then
    _BASS_ChannelStop($MusicHandle)
    $MusicHandle = ""
    EndIf
    Case $GUI_EVENT_CLOSE
    _BASS_ChannelStop($MusicHandle)
    GUISetState(@SW_SHOW, $main)
    GUISetState(@SW_HIDE, $Mp3gui)
    EndSwitch


    Case $videogui
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $main)
    GUISetState(@SW_HIDE, $videogui)
    EndSwitch
    EndSwitch
    WEnd


    Func Scroll_Label()
    GUICtrlSetPos($label, $x, 359)
    $x -= 1
    If $x = -400 Then $x = 600
    EndFunc ;==>Scroll_Label

    huch vergaß unter video die buttons einzufügen so is richtig:

    Spoiler anzeigen

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <bass.au3>
    #include <bassconstants.au3>

    ;Bass StartUp
    _BASS_STARTUP(@ScriptDir & "\BASS.dll")
    _BASS_Init(0, -1, 44100, 0, "")
    If @error Then
    MsgBox(0, "Error", "Sound konnte nicht Initialisiert werden!")
    Exit
    EndIf

    $main = GUICreate("Extrem Stream 2.1", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED) ;double buffering der GUI -> nur XP!
    GUISetBkColor(0x00000000)
    $start = GUICtrlCreateButton("Play", 10, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop = GUICtrlCreateButton("Stop", 110, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start2 = GUICtrlCreateButton("Play", 10, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop2 = GUICtrlCreateButton("Stop", 110, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start3 = GUICtrlCreateButton("Play", 10, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop3 = GUICtrlCreateButton("Stop", 110, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start4 = GUICtrlCreateButton("Play", 10, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop4 = GUICtrlCreateButton("Stop", 110, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start5 = GUICtrlCreateButton("Play", 10, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop5 = GUICtrlCreateButton("Stop", 110, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start6 = GUICtrlCreateButton("Play", 230, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop6 = GUICtrlCreateButton("Stop", 330, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start7 = GUICtrlCreateButton("Play", 230, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop7 = GUICtrlCreateButton("Stop", 330, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start8 = GUICtrlCreateButton("Play", 230, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop8 = GUICtrlCreateButton("Stop", 330, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start9 = GUICtrlCreateButton("Play", 230, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop9 = GUICtrlCreateButton("Stop", 330, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start10 = GUICtrlCreateButton("Play", 230, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop10 = GUICtrlCreateButton("Stop", 330, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start11 = GUICtrlCreateButton("Play", 467, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop11 = GUICtrlCreateButton("Stop", 567, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start12 = GUICtrlCreateButton("Play", 467, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop12 = GUICtrlCreateButton("Stop", 567, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start13 = GUICtrlCreateButton("Play", 467, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop13 = GUICtrlCreateButton("Stop", 567, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start14 = GUICtrlCreateButton("Play", 467, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop14 = GUICtrlCreateButton("Stop", 567, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start15 = GUICtrlCreateButton("Play", 467, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop15 = GUICtrlCreateButton("Stop", 567, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00ff0000)


    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    GUICtrlCreateButton("Hardstyle", 25, 2, 165)
    GUICtrlCreateButton("Heavy Metal/Rock", 25, 65, 165)
    GUICtrlCreateButton("Rnb/Black", 25, 132, 165)
    GUICtrlCreateButton("Chill Out", 25, 195, 165)
    GUICtrlCreateButton("Charts", 25, 260, 165)
    GUICtrlCreateButton("Trance", 250, 2, 165)
    GUICtrlCreateButton("Techno", 250, 65, 165)
    GUICtrlCreateButton("Hip Hop", 250, 132, 165)
    GUICtrlCreateButton("Jazz", 250, 195, 165)
    GUICtrlCreateButton("Schlager", 250, 260, 165)
    GUICtrlCreateButton("Dance", 480, 2, 165)
    GUICtrlCreateButton("Jumpstyle", 480, 65, 165)
    GUICtrlCreateButton("Salsa", 480, 132, 165)
    GUICtrlCreateButton("House", 480, 195, 165)
    GUICtrlCreateButton("Gabber", 480, 260, 165)

    $Video = GUICtrlCreateButton("Video", 165, 335, 100, 19)
    $Mp3 = GUICtrlCreateButton("Mp3", 390, 335, 100, 19)


    $label = GUICtrlCreateLabel(" Extrem Stream 2.1 created by: Gonzo", 300, 300, 630, 20)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetLimit(-1, 100, 0)
    GUISetState(@SW_SHOW, $main)
    $x = 1100
    AdlibRegister("Scroll_Label", 10)


    $videogui = GUICreate("Video Wiedergabe", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)
    GUISetBkColor(0x00000000)
    $Mp3Start = GUICtrlCreateButton("Play", 25, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Pause = GUICtrlCreateButton("Pause", 260, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Stop = GUICtrlCreateButton("Stop", 500, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Load = GUICtrlCreateButton("Load", 25, 20, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)


    $Mp3gui = GUICreate("Mp3 Wiedergabe", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)
    GUISetBkColor(0x00000000)
    $Mp3Start = GUICtrlCreateButton("Play", 25, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Pause = GUICtrlCreateButton("Pause", 260, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Stop = GUICtrlCreateButton("Stop", 500, 320, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $Mp3Load = GUICtrlCreateButton("Load", 25, 20, 130, 50)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)


    GUISetState(@SW_HIDE, $Mp3)
    GUISetState(@SW_HIDE, $Video)
    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
    Case $main
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    AdlibUnRegister("Scroll_Label")
    Exit
    Case $start
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://85.12.25.90:7500"
    $oWMP.controls.play()
    Case $stop
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.53.138.151:8032/"
    $oWMP.controls.play()
    Case $stop2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w75a"
    $oWMP.controls.play()
    Case $stop3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/12XIIIIX12"
    $oWMP.controls.play()
    Case $stop4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://studio.njoyradio.at:8000"
    $oWMP.controls.play()
    Case $stop5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://cp2.internet-radio.org.uk:30626/"
    $oWMP.controls.play()
    Case $stop6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://listen.to.techno4ever.net"
    $oWMP.controls.play()
    Case $stop7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://205.188.215.229:8040"
    $oWMP.controls.play()
    Case $stop8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://stream2140.init7.net:80/"
    $oWMP.controls.play()
    Case $stop9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/Schlagerhits"
    $oWMP.controls.play()
    Case $stop10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.76.152.74:8000/"
    $oWMP.controls.play()
    Case $stop11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://83.169.61.15:8000"
    $oWMP.controls.play()
    Case $stop12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/Latina-Beat.m3u"
    $oWMP.controls.play()
    Case $stop13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://house.mthN.net:8500/"
    $oWMP.controls.play()
    Case $stop14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://91.143.81.239:8003/"
    $oWMP.controls.play()
    Case $stop15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $Mp3
    GUISetState(@SW_HIDE, $main)
    GUISetState(@SW_SHOW, $Mp3gui)
    Case $Video
    GUISetState(@SW_HIDE, $main)
    GUISetState(@SW_SHOW, $videogui)
    EndSwitch


    Case $Mp3gui
    Switch $nMsg[0]
    Case $Mp3Load
    $file = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")
    $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0)
    Case $Mp3Start
    If IsDeclared("MusicHandle") Then
    _BASS_ChannelPlay($MusicHandle, 0)
    EndIf
    Case $Mp3Pause
    If IsDeclared("MusicHandle") Then
    _BASS_ChannelPause($MusicHandle)
    EndIf
    Case $Mp3Stop
    If IsDeclared("MusicHandle") Then
    _BASS_ChannelStop($MusicHandle)
    $MusicHandle = ""
    EndIf
    Case $GUI_EVENT_CLOSE
    _BASS_ChannelStop($MusicHandle)
    GUISetState(@SW_SHOW, $main)
    GUISetState(@SW_HIDE, $Mp3gui)
    EndSwitch


    Case $videogui
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $main)
    GUISetState(@SW_HIDE, $videogui)
    EndSwitch
    EndSwitch
    WEnd


    Func Scroll_Label()
    GUICtrlSetPos($label, $x, 359)
    $x -= 1
    If $x = -400 Then $x = 600
    EndFunc ;==>Scroll_Label

    @Gobana: Kenns du ['autoit']Der Autoit Skript[/'autoit'] ohne die ' ?
    Sieht dann so aus:

    [autoit]

    ;Der Autoit Skript

    [/autoit]


    Das sieht besser aus. 8)

    Nur keine Hektik - das Leben ist stressig genug

    mini Videoplayer
    Hier gibts eine Directshow UDF und die zweite Möglichkeit über den WMP ist auch angesprochen.

    Mein Tipp: Vergiss das, baue eine schöne Oberfläche um die Videodateien darzustellen und starte die Videos mit einem vernünftigen Player.
    MPC-HC würde sich da z.B. anbieten, da sind echte Profis am Werk die lange Erfahrung mit der Videowiedergabe unter windows haben.