Guten Tag,
vor einiger Zeit habe ich beschloss ein Programm zuschreiben welches mir Platz auf dem Desktop verschafft. Wollte dies erst mit VB umsetzten, dann bin ich aber auf AutoIt gestoßen und damit macht das viel mahr spaß.
Dies konnte ich bisher schon erarbeiten:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
;Fenster Titel und Größe angeben
$mainwindow = GUICreate("Test", 500, 560)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
;Oberkategorien
;Kategorie Chat erstellen und Funktion zuweisen
$Chat = GUICtrlCreatePic("Blaue.jpg", 10, 10, 100, 100)
GUICtrlSetOnEvent($Chat, "Chat")
;Kategorie Internet erstellen und Funktion zuweisen
$Internet = GUICtrlCreatePic("Blaue.jpg", 10, 120, 100, 100)
GUICtrlSetOnEvent($Internet, "Internet")
;Kategorie Player erstellen und Funktion zuweisen
$Player = GUICtrlCreatePic("Blaue.jpg", 10, 230, 100, 100)
GUICtrlSetOnEvent($Player, "Player")
;Kategorie Spiele erstellen und Funktion zuweisen
$Spiele = GUICtrlCreatePic("Blaue.jpg", 10, 340, 100, 100)
GUICtrlSetOnEvent($Spiele, "Spiele")
;Kategorie Sonstiges erstellen und Funktion zuweisen
$Sonstiges = GUICtrlCreatePic("Blaue.jpg", 10, 450, 100, 100)
GUICtrlSetOnEvent($Sonstiges, "Sonstiges")
;Kategorie Chat_makiert erstellen und unsichtbar machen
$Chat_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 10, 100, 100)
GUICtrlSetState($Chat_makiert, $GUI_HIDE)
;Kategorie Internet_makiert erstellen und unsichbar machen
$Internet_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 120, 100, 100)
GUICtrlSetState($Internet_makiert, $GUI_HIDE)
;Kategorie Player_makiert erstellen und unsichtbar machen
$Player_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 230, 100, 100)
GUICtrlSetState($Player_makiert, $GUI_HIDE)
;Kategorie Spiele_makiert erstellen und unsichtbar machen
$Spiele_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 340, 100, 100)
GUICtrlSetState($Spiele_makiert, $GUI_HIDE)
;Kategorie Sonstiges_makiert erstellen und unsichtbar machen
$Sonstiges_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 450, 100, 100)
GUICtrlSetState($Sonstiges_makiert, $GUI_HIDE)
;Unterkategorien
;Unterkategorie Chat
;Unterkategorie Internet
;Unterkategorie Player
;Unterkategorie Spiele
;Unterkategorie Sonstiges
GUISetState()
;Definetion der Variablen
$notthis = (0)
;Funktion von Chat
Func Chat()
;Wertangabe
$notthis = "Chat";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Chat unsichtbar
GUICtrlSetState($Chat, $GUI_HIDE)
;Macht Chat_makiert sichtbar
GUICtrlSetState($Chat_makiert, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
;Funktion von Internet
Func Internet()
;Wertangabe
$notthis = "Internet";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Internet unsichtbar
GUICtrlSetState($Internet, $GUI_HIDE)
;Macht Internet_makiert sichtbar
GUICtrlSetState($Internet_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
;Funktion von Player
Func Player()
;Wertangabe
$notthis = "Player";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Player unsichtbar
GUICtrlSetState($Player, $GUI_HIDE)
;Macht Player_makiert sichtbar
GUICtrlSetState($Player_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
;Funktion von Spiele
Func Spiele()
;Wertangabe
$notthis = "Spiele";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Spiele unsichtbar
GUICtrlSetState($Spiele, $GUI_HIDE)
;Macht Spiele_makiert sichtbar
GUICtrlSetState($Spiele_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
;Funktion von Sonstiges
Func Sonstiges()
;Wertangabe
$notthis = "Sonstiges";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Sonstiges unsichtbar
GUICtrlSetState($Sonstiges, $GUI_HIDE)
;Macht Sonstiges_makiert sichtbar
GUICtrlSetState($Sonstiges_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
Func deselect()
if $notthis <> "Chat" Then GUICtrlSetState($Chat_makiert, $GUI_HIDE)
if $notthis <> "Chat" Then GUICtrlSetState($Chat, $GUI_SHOW)
if $notthis <> "Internet" Then GUICtrlSetState($Internet_makiert, $GUI_HIDE)
if $notthis <> "Internet" Then GUICtrlSetState($Internet, $GUI_SHOW)
if $notthis <> "Player" Then GUICtrlSetState($Player_makiert, $GUI_HIDE)
if $notthis <> "Player" Then GUICtrlSetState($Player, $GUI_SHOW)
if $notthis <> "Spiele" Then GUICtrlSetState($Spiele_makiert, $GUI_HIDE)
if $notthis <> "Spiele" Then GUICtrlSetState($Spiele, $GUI_SHOW)
if $notthis <> "Sonstiges" Then GUICtrlSetState($Sonstiges_makiert, $GUI_HIDE)
if $notthis <> "Sonstiges" Then GUICtrlSetState($Sonstiges, $GUI_SHOW)
EndFunc
While 1
Sleep(1000) ; Idle around
WEnd
Func CLOSEClicked()
Exit
EndFunc
Jetzt ist meine Frage, wie ich mehere Variablen gemeinsam ansprechen kann, da Sie zu einer gemeinsamen Kategorie gehören.
Zum Beispiel, möchte ich, das wenn man auf das Pic Chat klick alle Pics angezeigt werden, die zu der Kategorie Caht gehören.
Folgendes habe ich mir überlegt:
$Test_1 = Bild 1
$Test_2 = Bild 2
$Test_1_2 = $Test_1 & $Test_2
So das ich Bild 1 und Bild 2 unsichtbar machen kann, ohne gleich jede Variable einzelnd ansprechen zumüssen.
Über Vorschläge, Verbesserungsvorschläge und Meinungen zu meinem Projekt nehme ich gerne entgegen.
MFG
*bad boy*
P.S.: Ich weiß, es sind sehr viele Kommis, ich will aber auch in 5 Jahren noch wissen was die einzelen Zeilen zubedeuten haben.^^