Hauptfensterenster soll nach buttonklick noch offen sein

  • Ich will einen script machen mit dem man programme starten kann die man häufig verwendet(klappt gut), aber nachdem ich auf einen Button geklickt hab soll das Fenster noch auf sein.
    Was muss ich an meinem script ändern damit das fenster($Form1) offen bleibt???

    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\tobi\eigene dateien\ultim.kxf
    $Form1 = GUICreate("Form1", 349, 251, 322, 213)
    $TabSheet = GUICtrlCreateTab(0, 0, 345, 249)
    $Programme = GUICtrlCreateTabItem("Programme starten")
    $Button1 = GUICtrlCreateButton("Rechner", 16, 32, 121, 25, $WS_GROUP)
    $IntExp = GUICtrlCreateButton("Internet Explorer", 16, 64, 121, 25, $WS_GROUP)
    $Arbeitsplatz = GUICtrlCreateButton("Arbeitsplatz", 208, 64, 121, 25, $WS_GROUP)
    $wmplayer = GUICtrlCreateButton("Windows Media Player", 208, 32, 121, 25, $WS_GROUP)
    $Word = GUICtrlCreateButton("WordPad (Texteditor)", 16, 96, 121, 25, $WS_GROUP)
    $editor = GUICtrlCreateButton("Editor", 208, 96, 121, 25, $WS_GROUP)
    $cmd = GUICtrlCreateButton("Eingabeaufforderung", 16, 128, 121, 25, $WS_GROUP)
    $Laufwerk = GUICtrlCreateTabItem("CD Laufwerk auswerfen")
    $Label1 = GUICtrlCreateLabel("Ihr müsst wissen welches Laufwerk euer CD Laufwerk ist", 32, 32, 272, 17)
    $c = GUICtrlCreateButton("C:", 16, 64, 121, 25, $WS_GROUP)
    $e = GUICtrlCreateButton("E:", 16, 96, 121, 25, $WS_GROUP)
    $d = GUICtrlCreateButton("D:", 208, 64, 121, 25, $WS_GROUP)
    $g = GUICtrlCreateButton("G:", 16, 128, 121, 25, $WS_GROUP)
    $h = GUICtrlCreateButton("H:", 208, 96, 121, 25, $WS_GROUP)
    $z = GUICtrlCreateButton("Z:", 16, 192, 121, 25, $WS_GROUP)
    $l = GUICtrlCreateButton("L:", 208, 160, 121, 25, $WS_GROUP)
    $m = GUICtrlCreateButton("M:", 208, 192, 121, 25, $WS_GROUP)
    $i = GUICtrlCreateButton("I:", 208, 128, 121, 25, $WS_GROUP)
    $k = GUICtrlCreateButton("K:", 16, 160, 121, 25, $WS_GROUP)
    $Windows = GUICtrlCreateTabItem("Windows Optionen")
    $sys = GUICtrlCreateButton("Systemsteuerung", 8, 32, 121, 25, $WS_GROUP)
    $softw = GUICtrlCreateButton("Installierte Software", 208, 32, 121, 25, $WS_GROUP)
    $bildschirmtast = GUICtrlCreateButton("Bildschirmtastatur", 8, 64, 121, 25, $WS_GROUP)
    $task = GUICtrlCreateButton("Taskmanager", 208, 64, 121, 25, $WS_GROUP)
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $IntExp
    Run("iexplore")
    ExitLoop
    Case $Arbeitsplatz
    Run("explorer")
    ExitLoop
    Case $wmplayer
    Run("wmplayer")
    ExitLoop
    Case $Word
    Run("WordPad")
    ExitLoop
    Case $editor
    Run("notepad")
    ExitLoop
    Case $cmd
    Run("cmd")
    ExitLoop
    Case $Button1
    Run("calc")
    ExitLoop
    Case $c
    CDTray("C", "closed")
    ExitLoop
    Case $e
    CDTray("E", "closed")
    ExitLoop
    Case $d
    CDTray("D", "closed")
    ExitLoop
    Case $g
    CDTray("G", "closed")
    ExitLoop
    Case $h
    CDTray("H", "closed")
    ExitLoop
    Case $z
    CDTray("Z", "closed")
    ExitLoop
    Case $l
    CDTray("L", "closed")
    ExitLoop
    Case $m
    CDTray("M", "closed")
    ExitLoop
    Case $i
    CDTray("I", "closed")
    ExitLoop
    Case $k
    CDTray("K", "closed")
    ExitLoop
    Case $sys
    Run("control")
    ExitLoop
    Case $softw
    Run("appwiz.cpl")
    ExitLoop
    Case $bildschirmtast
    Run("osk")
    ExitLoop
    Case $task
    Run("taskmgr")
    ExitLoop
    EndSwitch
    WEnd

    [/autoit]
  • so?

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\tobi\eigene dateien\ultim.kxf
    $Form1 = GUICreate("Form1", 349, 251, 322, 213)
    $TabSheet = GUICtrlCreateTab(0, 0, 345, 249)
    $Programme = GUICtrlCreateTabItem("Programme starten")
    $Button1 = GUICtrlCreateButton("Rechner", 16, 32, 121, 25, $WS_GROUP)
    $IntExp = GUICtrlCreateButton("Internet Explorer", 16, 64, 121, 25, $WS_GROUP)
    $Arbeitsplatz = GUICtrlCreateButton("Arbeitsplatz", 208, 64, 121, 25, $WS_GROUP)
    $wmplayer = GUICtrlCreateButton("Windows Media Player", 208, 32, 121, 25, $WS_GROUP)
    $Word = GUICtrlCreateButton("WordPad (Texteditor)", 16, 96, 121, 25, $WS_GROUP)
    $editor = GUICtrlCreateButton("Editor", 208, 96, 121, 25, $WS_GROUP)
    $cmd = GUICtrlCreateButton("Eingabeaufforderung", 16, 128, 121, 25, $WS_GROUP)
    $Laufwerk = GUICtrlCreateTabItem("CD Laufwerk auswerfen")
    $Label1 = GUICtrlCreateLabel("Ihr müsst wissen welches Laufwerk euer CD Laufwerk ist", 32, 32, 272, 17)
    $c = GUICtrlCreateButton("C:", 16, 64, 121, 25, $WS_GROUP)
    $e = GUICtrlCreateButton("E:", 16, 96, 121, 25, $WS_GROUP)
    $d = GUICtrlCreateButton("D:", 208, 64, 121, 25, $WS_GROUP)
    $g = GUICtrlCreateButton("G:", 16, 128, 121, 25, $WS_GROUP)
    $h = GUICtrlCreateButton("H:", 208, 96, 121, 25, $WS_GROUP)
    $z = GUICtrlCreateButton("Z:", 16, 192, 121, 25, $WS_GROUP)
    $l = GUICtrlCreateButton("L:", 208, 160, 121, 25, $WS_GROUP)
    $m = GUICtrlCreateButton("M:", 208, 192, 121, 25, $WS_GROUP)
    $i = GUICtrlCreateButton("I:", 208, 128, 121, 25, $WS_GROUP)
    $k = GUICtrlCreateButton("K:", 16, 160, 121, 25, $WS_GROUP)
    $Windows = GUICtrlCreateTabItem("Windows Optionen")
    $sys = GUICtrlCreateButton("Systemsteuerung", 8, 32, 121, 25, $WS_GROUP)
    $softw = GUICtrlCreateButton("Installierte Software", 208, 32, 121, 25, $WS_GROUP)
    $bildschirmtast = GUICtrlCreateButton("Bildschirmtastatur", 8, 64, 121, 25, $WS_GROUP)
    $task = GUICtrlCreateButton("Taskmanager", 208, 64, 121, 25, $WS_GROUP)
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $IntExp
    Run("iexplore")
    Case $Arbeitsplatz
    Run("explorer")
    Case $wmplayer
    Run("wmplayer")
    Case $Word
    Run("WordPad")
    Case $editor
    Run("notepad")
    Case $cmd
    Run("cmd")
    Case $Button1
    Run("calc")
    Case $c
    CDTray("C", "closed")
    Case $e
    CDTray("E", "closed")
    Case $d
    CDTray("D", "closed")
    Case $g
    CDTray("G", "closed")
    Case $h
    CDTray("H", "closed")
    Case $z
    CDTray("Z", "closed")
    Case $l
    CDTray("L", "closed")
    Case $m
    CDTray("M", "closed")
    Case $i
    CDTray("I", "closed")
    Case $k
    CDTray("K", "closed")
    Case $sys
    Run("control")
    Case $softw
    Run("appwiz.cpl")
    Case $bildschirmtast
    Run("osk")
    Case $task
    Run("taskmgr")
    EndSwitch
    WEnd

    [/autoit]