Mini Au3Info

1. offizieller Beitrag

    Hier meine Mini Au3Info

    Ich habe es aus langerweile gescriptet und weil ich mir meisten die die Koordinaten nicht alle und farbe usw. merken kann/will =)
    Kann man sie in einer "Zwischenablage" speichern.
    Nun kann man es auch in eine Ini Speichern und Laden
    und nun kann man mehr Infos absuchen und habe es in in 3 Tabs gemacht(Übersichtlicher)

    Hier die Source

    Spoiler anzeigen
    [autoit]

    HotKeySet("^{s}", "Copy")

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

    Opt("WinTitleMatchMode", 4)
    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)
    Opt("WinDetectHiddenText", 1)
    Opt("WinSearchChildren", 1)

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

    GUICreate("Zwischenablage", 300, 300, @DesktopWidth - 310, @DesktopHeight - 360)
    $Menu = GUICtrlCreateMenu("Datei")
    $Load = GUICtrlCreateMenuItem("Laden", $Menu)
    $Save = GUICtrlCreateMenuItem("Speichern", $Menu)
    $Delete = GUICtrlCreateMenuItem("Ini und ZA Inhal Löschen", $Menu)
    GUICtrlCreateTab(0, 0, 300, 20)
    ;Mouse
    GUICtrlCreateTabItem("Mouse")
    $DataMouse = GUICtrlCreateInput("", 10, 30, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse2 = GUICtrlCreateInput("", 10, 48, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse3 = GUICtrlCreateInput("", 10, 66, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse4 = GUICtrlCreateInput("", 10, 84, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse5 = GUICtrlCreateInput("", 10, 102, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse6 = GUICtrlCreateInput("", 10, 120, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse7 = GUICtrlCreateInput("", 10, 138, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse8 = GUICtrlCreateInput("", 10, 156, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse9 = GUICtrlCreateInput("", 10, 174, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse10 = GUICtrlCreateInput("", 10, 192, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse11 = GUICtrlCreateInput("", 10, 210, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse10 = GUICtrlCreateInput("", 10, 228, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataMouse11 = GUICtrlCreateInput("Mady by ScripterDrîzzt from http://www.autoit.de", 10, 246, 280, 30, $ES_READONLY + $ES_CENTER)
    GUICtrlSetColor(-1, 0xFF0000)
    ;Control
    GUICtrlCreateTabItem("Control")
    $DataControl = GUICtrlCreateInput("", 10, 30, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl2 = GUICtrlCreateInput("", 10, 48, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl3 = GUICtrlCreateInput("", 10, 66, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl4 = GUICtrlCreateInput("", 10, 84, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl5 = GUICtrlCreateInput("", 10, 102, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl6 = GUICtrlCreateInput("", 10, 120, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl7 = GUICtrlCreateInput("", 10, 138, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl8 = GUICtrlCreateInput("", 10, 156, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataControl9 = GUICtrlCreateInput("", 10, 174, 280, 100, $ES_MULTILINE)
    GUICtrlSetState($DataControl9, $GUI_DISABLE)
    ;Fenster
    GUICtrlCreateTabItem("Fenster")
    $DataFenster = GUICtrlCreateInput("", 10, 30, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster2 = GUICtrlCreateInput("", 10, 48, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster3 = GUICtrlCreateInput("", 10, 66, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster4 = GUICtrlCreateInput("", 10, 84, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster5 = GUICtrlCreateInput("", 10, 102, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster6 = GUICtrlCreateInput("", 10, 120, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster7 = GUICtrlCreateInput("", 10, 138, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster8 = GUICtrlCreateInput("", 10, 156, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster9 = GUICtrlCreateInput("", 10, 174, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster10 = GUICtrlCreateInput("", 10, 192, 280, 20, $ES_READONLY + $ES_CENTER)
    $DataFenster11 = GUICtrlCreateInput("", 10, 210, 280, 60, $ES_MULTILINE)
    GUICtrlSetState($DataFenster11, $GUI_DISABLE)
    ;Tray Icon
    $TRAY_Exit = TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1, "_GUIClose")
    TraySetState(1)
    GUISetState(@SW_SHOW)

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

    Load()

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

    While 1
    ;Mouse
    $coords = MouseGetPos()
    $Cursor = MouseGetCursor()
    ;Control
    $Color = PixelGetColor($coords[0], $coords[1])
    $Focus = ControlGetFocus("")
    $CPos = ControlGetPos("", "", "")
    $CHandle = ControlGetHandle("", "", "")
    $CText = ControlGetText("", "", "")
    $ID = WinGetProcess("")
    ;Fenster
    $c00rds = WinGetPos("")
    $Text = WinGetText("")
    $State = WinGetState("")
    $Style = GUIGetStyle()
    $Handle = WinGetHandle("[ACTIVE]")
    $Tittel = WinGetTitle("[ACTIVE]")
    ToolTip("X = " & $coords[0] & " | Y = " & $coords[1] & (@CR) & "Farbe = 0x" & Hex($Color, 6) & (@CRLF) & "Mit STRG+S Speichern")
    ;Funktionen vom Gui
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Save
    Save()
    Case $Load
    Load()
    Case $Delete
    Delete()
    EndSwitch
    WEnd

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

    Func Copy()
    ;Mouse
    GUICtrlSetData($DataMouse, ">>>>> Infos <<<<<")
    GUICtrlSetData($DataMouse2, "X = " & $coords[0])
    GUICtrlSetData($DataMouse3, "Y = " & $coords[1])
    GUICtrlSetData($DataMouse4, "Cursor ID = " & $Cursor)
    GUICtrlSetData($DataMouse5, "Farbe = 0x" & Hex($Color, 6))
    ;Control
    GUICtrlSetData($DataControl, ">>>>> Infos <<<<<")
    GUICtrlSetData($DataControl2, "X = " & $CPos[0])
    GUICtrlSetData($DataControl3, "Y = " & $CPos[1])
    GUICtrlSetData($DataControl4, "Breite = " & $CPos[2])
    GUICtrlSetData($DataControl5, "Höhe = " & $CPos[3])
    GUICtrlSetData($DataControl6, "PID(ID) = " & $ID)
    GUICtrlSetData($DataControl7, "ClassnameNN = " & $Focus)
    GUICtrlSetData($DataControl8, "Handle = " & $CHandle)
    GUICtrlSetData($DataControl9, "Text = " & $CText)
    ;Fenster
    GUICtrlSetData($DataFenster, ">>>>> Infos <<<<<")
    GUICtrlSetData($DataFenster2, "Name = " & $Tittel)
    GUICtrlSetData($DataFenster3, "X = " & $c00rds[0])
    GUICtrlSetData($DataFenster4, "Y = " & $c00rds[1])
    GUICtrlSetData($DataFenster5, "Breite = " & $c00rds[2])
    GUICtrlSetData($DataFenster6, "Höhe = " & $c00rds[3])
    GUICtrlSetData($DataFenster7, "Handle = " & $Handle)
    GUICtrlSetData($DataFenster8, "Status = " & $State)
    GUICtrlSetData($DataFenster9, "Style = " & $Style[0])
    GUICtrlSetData($DataFenster10, "Erweiterte Style = " & $Style[1])
    GUICtrlSetData($DataFenster11, "Text = " & $Text)
    EndFunc ;==>Copy

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

    Func Save()
    ;Mouse
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "ALL", GUICtrlRead($DataMouse))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "X", GUICtrlRead($DataMouse2))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "Y", GUICtrlRead($DataMouse3))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "Cursor ID", GUICtrlRead($DataMouse4))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "Farbe", GUICtrlRead($DataMouse5))
    ;Control
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "ALL", GUICtrlRead($DataControl))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "X", GUICtrlRead($DataControl2))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Y", GUICtrlRead($DataControl3))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Breite", GUICtrlRead($DataControl4))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Höhe", GUICtrlRead($DataControl5))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "PID(ID)", GUICtrlRead($DataControl6))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "ClassnameNN", GUICtrlRead($DataControl7))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Handle", GUICtrlRead($DataControl8))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Text", GUICtrlRead($DataControl9))
    ;Fenster
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "ALL", GUICtrlRead($DataFenster))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Name", GUICtrlRead($DataFenster2))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "X", GUICtrlRead($DataFenster3))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Y", GUICtrlRead($DataFenster4))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Breite", GUICtrlRead($DataFenster5))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Höhe", GUICtrlRead($DataFenster6))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Handle", GUICtrlRead($DataFenster7))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Status", GUICtrlRead($DataFenster8))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Style", GUICtrlRead($DataFenster9))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "ExStyle", GUICtrlRead($DataFenster10))
    IniWrite(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Text", GUICtrlRead($DataFenster11))
    EndFunc ;==>Save

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

    Func Load()
    ;Mouse
    GUICtrlSetData($DataMouse, IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "ALL", ""))
    GUICtrlSetData($DataMouse2, "X = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "X", ""))
    GUICtrlSetData($DataMouse3, "Y = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "Y", ""))
    GUICtrlSetData($DataMouse4, "Cursor ID = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "Cursor ID", ""))
    GUICtrlSetData($DataMouse5, "Farbe = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Mouse", "Farbe", ""))
    ;Control
    GUICtrlSetData($DataControl, IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "ALL", ""))
    GUICtrlSetData($DataControl2, "X = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "X", ""))
    GUICtrlSetData($DataControl3, "Y = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Y", ""))
    GUICtrlSetData($DataControl4, "Breite = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Breite", ""))
    GUICtrlSetData($DataControl5, "Höhe = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Höhe", ""))
    GUICtrlSetData($DataControl6, "PID(ID) = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "PID(ID)", ""))
    GUICtrlSetData($DataControl7, "ClassnameNN = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "ClassnameNN", ""))
    GUICtrlSetData($DataControl8, "Handle = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Handle", ""))
    GUICtrlSetData($DataControl9, "Text = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Control", "Text", ""))
    ;Fenster
    GUICtrlSetData($DataFenster, IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "ALL", ""))
    GUICtrlSetData($DataFenster2, "Name = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Name", ""))
    GUICtrlSetData($DataFenster3, "X = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "X", ""))
    GUICtrlSetData($DataFenster4, "Y = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Y", ""))
    GUICtrlSetData($DataFenster5, "Breite = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Breite", ""))
    GUICtrlSetData($DataFenster6, "Höhe = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Höhe", ""))
    GUICtrlSetData($DataFenster7, "Handle = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Handle", ""))
    GUICtrlSetData($DataFenster8, "Status = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Status", ""))
    GUICtrlSetData($DataFenster9, "Style = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Style", ""))
    GUICtrlSetData($DataFenster10, "Erweiterte Style = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "ExStyle", ""))
    GUICtrlSetData($DataFenster11, "Text = " & IniRead(@ScriptFullPath & "Mini Au3Info Settings.ini", "Fenster", "Text", ""))
    EndFunc ;==>Load

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

    Func Delete()
    GUICtrlSetData($DataMouse, "")
    GUICtrlSetData($DataControl, "")
    GUICtrlSetData($DataFenster, "")
    FileDelete(@ScriptFullPath & "Mini Au3Info Settings.ini")
    EndFunc ;==>Delete

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

    Func _GUIClose()
    Exit
    EndFunc ;==>_GUIClose

    [/autoit]


    Es fehlen noch viele andere Infos aba das sind meiner Meinung nach die Wichtigsten =)
    Wenn es Bugs geben sollte fleißig Melden =) und Ihr könnt mir auch Sagen was ich noch Hinzufügen könnte =)

    Bugs:

    3 Mal editiert, zuletzt von ScripterDrîzzt (22. August 2009 um 18:50)

    Infos und IDs und so'n Kram funktionieren super. Großes Lob von mir ;) Aber wenn ich das GUI schließen will bleibt es geöffnet.

    • Offizieller Beitrag

    Einfach mal

    [autoit]

    GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIClose")

    [/autoit]


    in des Script einfügen.

    Edit: Natürlich muß das auch noch in das Script:

    [autoit]

    Opt("GUIOnEventMode", 1)

    [/autoit]


    Hatte ich glatt vergessen :whistling:

    Einfach in die While schleife "If GUIGetMsg() = -3 Then Exit" ohne "" einfügen also so:

    Spoiler anzeigen
    [autoit]

    While 1
    If GUIGetMsg() = -3 Then Exit
    $coords = MouseGetPos()
    $Pos = PixelGetColor($coords[0], $coords[1])
    $Tittel = WinGetTitle("[ACTIVE]")
    $ID = WinGetProcess("")
    ToolTip("X = " & $coords[0] & " | Y = " & $coords[1] & (@CRLF) & "Farbe = 0x" & Hex($Pos, 6) & (@CRLF) & "PID(ID) = " & $ID & (@CRLF) & "Mit STRG+S Speichern")
    WEnd

    [/autoit]


    /edit: Zu spät ^^
    MfG xXTobi93Xx

    gefällt mir ganz gut

    paar ideen noch von mir :
    1)ein menü(vielleicht modern menue läuft aber nich überall insbesondere bei den 64 bit versionen von vista ...)
    2) du könntest 3 tabs machen und man sollte den inhalt der einzelnen tabs abspeichern können
    3)die gespeicherten einträge sollten dann beim start mit geladen werden und ein menüitem mit dem man natürlich die einträge löschen kann
    4)höhe breite (bei dem befehl wingetpos kriegst du das mit hilfe von arrays raus )
    5)der text des fensters
    6) handle

    also ich finde die idee echt gut mach was draus ;)

    Btw: mir is aufgefallen, das das vorderste fenster immer das aktiviert und im vordergrund is bei der pid aufgelistet ist ,vielleicht kannste das ja noch ändern

    danke für euer Feedback =)
    Nun habe ich neue Feature mit eingebaut und @Sithlord was meintest du mit Modern Menue?^^

    Is doch gut geworden ^^

    Achja kleine Anmerkung zu deiner Sig
    "der Autoit taskmanager mit zusammenarbeit von raupi und ghostwitch"

    es heißt

    "der Autoit taskmanager in zusammenarbeit mit raupi und ghostwitch"

    =P

    Sen danke =)

    @Sith okay danke werde ich versuchen bei der nexten version mal mit einzubeziehen =)

    SO voraussichtlich die letzte Version is nun im #1 Post zu finden ,falls es keine Bugs gibt(was ich nicht Glaube)

    Habe nun das Lade problem gelöst, zwar nich mit Großen Stil aba ein andere Weg is mir nicht eingefallen, deswegen is die Sorce bissl lang gezogen und bissl unübersichtlich, aber ich Sehe da noch durch xDDDD

    Ich Wünsche euch viel Spaß mit dem mini Tool =)