Button mit neuen gui verbinden

  • huhu :) so hab in mein script ein button erstellt namens videostream nun möchte ich das sich auf den klick des buttons ein neues gui öffnet damit ich dort weitere buttons einfügen kann.. ganz unten habe ich schon das versteckte gui erstellt und weiter oben den Videostream button mit den der gui geöffnet werden soll.. hier mal mein bisheriges script:


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

    GUICreate("Extrem Stream 2.0", 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("Videostream", 275, 335, 100,19)

    $label = GUICtrlCreateLabel(" Extrem Stream 2.0 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)
    $x = 1100
    AdlibRegister("Scroll_Label", 10)


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    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:30168/"
    $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://www.antenne.de/webradio/chann…r-karussell.wmx"
    $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://91.121.176.72:8062"
    $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://lime.citrus3.com:8076/"
    $oWMP.controls.play()
    Case $stop15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()


    EndSwitch

    WEnd


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


    GUISetState(@SW_HIDE)
    $Video = GUICreate("Videostream", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)


    nun fehlt mir nur der befehl.... denke ich mal :)

  • machs so ;)

    Spoiler anzeigen
    [autoit]


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

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

    $main = GUICreate("Extrem Stream 2.0", 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)

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

    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)

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

    $Video = GUICtrlCreateButton("Videostream", 275, 335, 100, 19)

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

    $label = GUICtrlCreateLabel(" Extrem Stream 2.0 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)

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

    $videogui = GUICreate("Videostream", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)

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

    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:30168/"
    $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://www.antenne.de/webradio/channels/…r-karussell.wmx"
    $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://91.121.176.72:8062"
    $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://lime.citrus3.com:8076/"
    $oWMP.controls.play()
    Case $stop15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $video
    GUISetState(@SW_HIDE, $main)
    Guisetstate(@SW_SHOW, $videogui)
    EndSwitch
    case $videogui
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $main)
    Guisetstate(@SW_HIDE, $videogui)
    EndSwitch
    EndSwitch
    WEnd

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

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

    [/autoit]

    und bitte benutz für längere quelltexte immer die spoiler

  • danke für die hilfe.. nur sollte das ersten gui noch zu sehen sein und das wenn ich gui 2 beende gui1 noch bleibt ^^ also sprich einfach ein zweites fenster was sich hin und herschieben lässt zum buttons einfügen :) würde mich um hilfe freuen ;)

    Einmal editiert, zuletzt von Gobana (19. Februar 2010 um 19:40)

  • Spoiler anzeigen
    [autoit]

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

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

    $main = GUICreate("Extrem Stream 2.0", 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)

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

    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)

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

    $Video = GUICtrlCreateButton("Videostream", 275, 335, 100, 19)

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

    $label = GUICtrlCreateLabel(" Extrem Stream 2.0 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)

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

    $videogui = GUICreate("Videostream", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)

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

    GUISetState(@SW_HIDE, $Video)
    While 1
    $nMsg = GUIGetMsg(1)
    switch $nMsg[1]
    case $main
    Switch $nMsg[0]; hier alles für die erste gui einfügen...
    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:30168/"
    $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://www.antenne.de/webradio/channels/…r-karussell.wmx"
    $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://91.121.176.72:8062"
    $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://lime.citrus3.com:8076/"
    $oWMP.controls.play()
    Case $stop15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $video
    Guisetstate(@SW_SHOW, $videogui)
    EndSwitch
    case $videogui; hier alles für die 2te gui einfügen buttons und so...
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Guisetstate(@SW_HIDE, $videogui)
    EndSwitch
    EndSwitch
    WEnd

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

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

    [/autoit]