Hallo zusammen,
ich habe mir ein kleines Programm (in autoit) geschrieben, mit dem ich alle Pogramme auf meinem PC verwalten will. Leider klappt es noch nicht so ganz wie ich es mir vorgestellt habe, das Programm soll aus einer Input-zeile, den Namen holen und mit Hilfe von if- und elseif-Befehlen mit einer sammlung von Namen und den dazugehörigen Befehlen vergleichen.
Der if-Befehl klappt aber nicht so wirklich, denn es wird immer 4 ausgegeben, D.h.,dass die Variable What aus irgendeinem Grund immer als 4 deklariert wird.
Code:
;Hier sind dann die HotKeySet's ...
;Hier sind die Includes...
;Hier ist noch ne Schleife, damit dass nicht einfach so beendet wird
Func _RUN() ;die func wird durch en HotKey (oben) gestartet...
$Form1 = GUICreate("Programmstart", 332, 111, 404, 240, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("Programm eingeben:", 8, 16, 101, 17)
$What = GUICtrlCreateInput("Progamm", 32, 40, 233, 21)
GUICtrlSetCursor (-1, 5)
$Run = GUICtrlCreateButton("Go", 272, 40, 49, 25, 0)
$MENU_DATEI = GUICtrlCreateMenu("&Datei")
$MENU_DATEI_NORMAL = GUICtrlCreateMenuItem("Musik && Internet ", $MENU_DATEI)
$MENU_DATEI_BEENDEN = GUICtrlCreateMenuItem(" Beenden ", $MENU_DATEI)
$MENU_HELP = GUICtrlCreateMenu("?")
$MENU_HELP_HELP = GUICtrlCreateMenuItem("Hilfe ", $MENU_HELP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Run
If $What ="word" Then
WordStart()
ElseIf $What ="excel" Then
ExcelStart()
ElseIf $What ="powerpoint" Then
PPointStart()
ElseIf $What ="power-point" Then
PPointStart()
;Hier sind dann noch die anderen Programme geschireben is nur zu lang für ins Forum zu setzte
Else
MsgBox(0, $What, "Du hast dich wohl verschrieben oder das Programm ist nicht in meiner Datenbank")
EndIf
Case $MENU_DATEI_NORMAL
_Normal ()
Case $MENU_DATEI_BEENDEN
_End ()
Case $MENU_HELP_HELP
_HELP ()
EndSwitch
WEnd
EndFunc
Func _Normal ()
; Hier starten dann Internet und Musikplayer, ist für das Problem aber egal....
EndFunc
Func _HELP ()
; Hier startet dann meine kleine Hilfefunktion, ist für das Problem aber auch egal....
Func _End ()
Exit 0
EndFunc
Func WordStart()
Run("C:\Program Files (x86)\Microsoft Office\OFFICE11\WINWORD.EXE")
EndFunc
Func ExcelStart()
Run("C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE")
EndFunc
Func PPointStart()
Run("C:\Program Files (x86)\Microsoft Office\OFFICE11\POWERPNT.EXE")
EndFunc
;Hier sind dann auch noch die anderen Porgramme, ist ja aber egal für das Problem
Tut mir Leid, dass der Code ein Bisschen lang geraten ist.