Eycatcher-Funktionen für bestimmte Fenster

    So mir war n bissl langweilig und dann hab ich verschiedene "Eycatcher" für Fenster gebastelt... nix besonderes oder extrem aufwändiges aber vielleicht kann es der ein oder andere benutzen ;) vielleicht lässt sich das ganze ja noch erweitern!

    [autoit]


    ; UDF´s ~

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

    #include <GUIConstants.au3>

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

    ; Optionen ~

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

    Opt("GUIOnEventMode", 1)

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

    ; GUI & Controls mit Events~

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

    $maingui=GUICreate("Test", 200, 210)
    GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
    GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")

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

    $blinken=GUICtrlCreateButton("Lass mich blinken...", 40, 10, 120, 30)
    GUICtrlSetOnEvent($blinken, "Blinken")

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

    $vibrierenLR=GUICtrlCreateButton("Las es vibrieren (1)...", 40, 50, 120, 30)
    GUICtrlSetOnEvent($vibrierenLR, "VibrierenLR")

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

    $vibrierenHR=GUICtrlCreateButton("Las es vibrieren (2)...", 40, 90, 120, 30)
    GUICtrlSetOnEvent($vibrierenHR, "VibrierenHR")

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

    $zoomen=GUICtrlCreateButton("Vorgefertigte Funktion...", 40, 130, 120, 30)
    GUICtrlSetOnEvent($zoomen, "Flash")

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

    $minimize=GUICtrlCreateButton("Minimize all...", 40, 170, 120, 30)
    GUICtrlSetOnEvent($minimize, "Minimize")

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

    ; GUI-Schleife ~

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

    GUISetState(@SW_SHOW)
    While 1
    Sleep(10)
    Wend

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

    ; Funktionen ~

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

    Func Blinken()
    WinSetOnTop("Test", "", 1)
    For $i=1 To 5 Step 1
    $counter=255
    Do
    WinSetTrans("Test", "", $counter)
    $counter=$counter-1
    Until $counter=0
    $counter=0
    Do
    WinSetTrans("Test", "", $counter)
    $counter=$counter+1
    Until $counter=255
    Next
    EndFunc ; Lässt das Fenster blinken

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

    Func VibrierenLR()
    WinSetOnTop("Test", "", 1)
    For $i=1 To 5 Step 1
    $array=WinGetPos("Test")
    WinMove("Test", "", $array[0]+4, $array[1])
    Sleep(50)
    $array=WinGetPos("Test")
    WinMove("Test", "", $array[0]-8, $array[1])
    $array=WinGetPos("Test")
    WinMove("Test", "", $array[0]+4, $array[1])
    Sleep(50)
    Next
    EndFunc ; Lässt das Fenster links/rechts vibrieren

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

    Func VibrierenHR()
    WinSetOnTop("Test", "", 1)
    For $i=1 To 5 Step 1
    $array=WinGetPos("Test")
    WinMove("Test", "", $array[0], $array[1]+4)
    Sleep(50)
    $array=WinGetPos("Test")
    WinMove("Test", "", $array[0], $array[1]-8)
    $array=WinGetPos("Test")
    WinMove("Test", "", $array[0], $array[1]+4)
    Sleep(50)
    Next
    EndFunc ; Lässt das Fenster hoch/runter vibrieren

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

    Func Flash()
    WinFlash("Test","", 4, 500)
    EndFunc ; Einfacher WinFlash

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

    Func Minimize()
    WinMinimizeAll()
    WinActivate("Test")
    EndFunc ; Minimiert alle Fenster außer dieses

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

    Func SpecialEvents()
    Select
    Case @GUI_CTRLID=$GUI_EVENT_CLOSE
    Exit
    Case @GUI_CTRLID=$GUI_EVENT_MINIMIZE
    Case @GUI_CTRLID=$GUI_EVENT_RESTORE
    EndSelect
    EndFunc ; Close, Minimize und Restore

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

    greetz oli

    joa is n bissl vom live messanger abgekupfert *hehehe*

    hab gerade festgestellt das das "Alles Minimieren außer das Fenster" nich immer funzt... warum weiß ich nicht - sogar mit nem sleep aktiviert es das fenster nicht immer... naja is au wurst ;)


    greetz oli