Projekt-Idee AutoIt von seiner besten Seite

  • Hallo allerseits!

    Ich hatte eine Idee, um AutoIt bekannter zumachen.

    Kennt jemand von euch activ'aid von der c't? So ähnlich solls werden: Eine Kombination von vielen guten Funktionen, die alle über eine Zentrale erreichbar sind. Dazu würden z.B. auch die Mausgesten vom µit light oder das Kurvenspiel oder 4 gewinnt für die Pause, wenn die Autoren natürlcih nichts dagegen haben. Aber auch etwas zum Hardware testen, Diagnostizieren etc...

    Was haltet ihr davon?

  • Meinst du mit Zentrale das Programm oder eine Datenbank von der was ausgelesen wird ?

    PS: GUte IDEE

  • Hatte am alten PC ac'tive aid drauf. => Er meint eine Gui mit vielen Labeln / Buttons / etc.

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • Es ging mir um eine Sammlung von AutoIt-Funktionen, von Mausgesten bis Hotkeys und Diagnose-Tools etc...

    Darum gings mir :D

  • Meine Scripte sind zwar simpel, aber ich werd sie mal suchen.
    Mein Lieblingsprogramm ist derShutdown Manager (PC asu, Reboot, StandBy, Ruhezustand, Abmelden) - Echt praktisch, wenns im Tray neben dem Startbutton liegt (Bei Vista einfach [WIN] + [Zahl vom Programm] zum Öffnen)

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • Ich wollte dir eigentlich dises Programm geben aber ich weis nicht wiso da immer Fehler Meldungen kommen

    "Folgende Fehlermeldugen kommen immer"

    C:\Users\Simon\Desktop\GUIMESAGEBOX+\2\Forumprojekt\beispiel.au3(70,15) : ERROR: $1 already declared as parameter
    Func _Ok($1,$1,
    ~~~~~~~~~~~~~~^
    C:\Users\Simon\Desktop\GUIMESAGEBOX+\2\Forumprojekt\beispiel.au3(71,67) : WARNING: $2: possibly used before declaration.
    FileWrite('msgboxentestcode.au3',@CRLF & 'MsgBox('& $1 &',"'& $2 &
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\Simon\Desktop\GUIMESAGEBOX+\2\Forumprojekt\beispiel.au3(71,67) : ERROR: $2: undeclared global variable.
    FileWrite('msgboxentestcode.au3',@CRLF & 'MsgBox('& $1 &',"'& $2 &
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\Simon\Desktop\GUIMESAGEBOX+\2\Forumprojekt\beispiel.au3 - 2 error(s), 1 warning(s)

    Und hier das Bisherige Script es ist schon in einer funkton zuvor hat es ja funktoniert

    "Hier die Funkton"
    [autoit]

    Func _SBMsgEditor()
    #cs Funktion name:..................._SBMsgEditor()
    Benutzung:.......................Erstellt einen Qellcode für MsgBoxen aber funktioniert nur
    richtig wenn autoit installiert ist
    Author:..........................Simon(http://www.autoit.de)
    #ce

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

    ;---------HotKeys---------------------------------------;;
    ;HotKeySet("{F3}", "_Ok")
    ;HotKeySet("{F4}", "GUICtrlMakeOut")
    ;---Bitte diese Hotkeysobennicht vergessen wenn möglich;;

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

    $sbgui = GUICreate("SB MsgBox Editor", 400, 230, 5, 5)
    GUISetBkColor(0xCDAD00)

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

    GUICtrlCreateLabel("Hier kannst du eine MsgBox erstellen fülle einfach die Felder aus als Flags gibt es nur 0,1,2,3,4,5,6,16,32,48,64 ", 10, 10, 350, 70)
    GUICtrlSetFont(-1, 16)
    ;-----------------------MsgEditor----------------------------------------------------;;
    GUICtrlCreateLabel("Titel:", 10, 100, 100)
    $b = GUICtrlCreateInput("", 150, 100, 220)
    GUICtrlCreateLabel("Text:", 10, 130, 100)
    $c = GUICtrlCreateInput("", 150, 130, 220)
    GUICtrlCreateLabel("Flag:", 10, 160, 100)
    $a = GUICtrlCreateInput("", 150, 160, 220)
    $show = GUICtrlCreateButton("Anzeigen", 10, 200, 380)
    ;---------------------MsgEditor Ende--------------------------------------------------;

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    $ab = GUICtrlRead($a)
    $ac = GUICtrlREad($b)
    $aa = GUICTrlRead($c)

    If $msg = $GUI_EVENT_CLOSE Then
    GUISEtSTATE(@SW_HIDE,$sbgui)
    ExitLoop
    If $msg = $show Then _Ok($ab,$ac,$ab)
    EndIf
    WEnd

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

    EndFunc

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

    Func _Ok($1,$1,$3)
    FileWrite('msgboxentestcode.au3',@CRLF & 'MsgBox('& $1 &',"'& $2 &'","'& $3 &'")')
    GUICtrlCreateMsgBox($1,$2,$3)
    EndFunc

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

    Func GUICtrlCreateMsgBox($flag,$title,$text)
    MsgBox($flag,$title,$text)
    EndFunc

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

    Func GUICtrlMakeOut()
    GUISEtSTate(@SW_HIDE)
    Exit
    EndFunc

    [/autoit]

    Das programm sah zuvor nicht in einer Funkton so aus:

    "Programm zuvor"
    [autoit]

    #include <GUIConstantsEx.au3>

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

    HotKeySet("{F3}", "_Ok")
    HotKeySet("{F4}", "GUICtrlMakeOut")

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

    GUICreate("SB MsgBox Editor", 400, 230, 5, 5)
    GUISetBkColor(0xCDAD00)

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

    GUICtrlCreateLabel("Hier kannst du eine MsgBox erstellen fülle einfach die Felder aus als Flags gibt es nur 0,1,2,3,4,5,6,16,32,48,64 ", 10, 10, 350, 70)
    GUICtrlSetFont(-1, 16)
    ;-----------------------MsgEditor----------------------------------------------------;;
    GUICtrlCreateLabel("Titel:", 10, 100, 100)
    $b = GUICtrlCreateInput("", 150, 100, 220)
    GUICtrlCreateLabel("Text:", 10, 130, 100)
    $c = GUICtrlCreateInput("", 150, 130, 220)
    GUICtrlCreateLabel("Flag:", 10, 160, 100)
    $a = GUICtrlCreateInput("", 150, 160, 220)
    $show = GUICtrlCreateButton("Anzeigen", 10, 200, 380)
    ;---------------------MsgEditor Ende--------------------------------------------------;

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $show Then _Ok()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

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

    Func GUICtrlCreateMsgBox($flag,$title,$text)
    MsgBox($flag,$title,$text)

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

    EndFunc

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

    Func GUICtrlMakeOut()
    Exit
    EndFunc

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

    Func _Ok()
    $1 = GUICtrlRead($a)
    $2 = GUICtrlREad($b)
    $3 = GUICTrlRead($c)

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

    FileWrite('msgboxentestcode.au3',@CRLF & 'MsgBox('& $1 &',"'& $2 &'","'& $3 &'")')

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

    GUICtrlCreateMsgBox($1,$2,$3)
    EndFunc

    [/autoit]