Augenkrebs4all

    Servus an alle, :D
    Titel sagt eigentlich schon alles, bevor ich irgendwas sage, probiert es selbst aus, mir war grad bissl langweilig,
    mit Escape könnt ihr das Prog/Skript wieder beenden.

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #include <GUIConstants.au3>
    #Include <Constants.au3>

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

    $GUI = GuiCreate("Rahmen",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP,BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
    $colour1 = 0xFF00FF
    $colour2 = 0x00FF00
    WinSetTrans("Rahmen","",150)
    $Rahmen = GUICtrlCreateLabel('',0,0,@DesktopWidth,@DesktopHeight,$SS_SUNKEN)
    GUISetState(@SW_SHOW,$GUI)

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

    HotKeySet("{ESC}","_exit")

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

    Func _exit()
    GUIDelete($GUI)
    Exit
    EndFunc

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

    While 1
    GUICtrlSetBkColor($Rahmen,$colour1)
    sleep(500)
    GUICtrlSetBkColor($Rahmen,$colour2)
    sleep(500)
    WEnd

    [/autoit]

    Gruß Stormy

    autoit.de/wcf/attachment/2183/

    Neee,
    bin mir nicht sicher ab wie wenig sleep man blind wird, deswegen hab ich sicherheitshalber bissl mehr genommen :D
    Außerdem kommt es auf jeden Geschmack einzeln an, wie wenig sleep man mag :D :D :D
    gruß stormy

    Blind wird man zwar nicht, aber ein epileptischer Anfall ist auch nicht ohne(glaub ich)

    Projekte: Keine größeren (und fertigen)
    Gegen Internetzensur:
    https://epetitionen.bundestag.de/index.php?acti…s;petition=3860
    (Zeichnungsfrist abgelaufen)
    __________________________________________________________________________________________________________________________________
    Dieser Beitrag wurde bereits 264 mal editiert, zuletzt von »Fast2« (30. Februar 2009, 12:99)

    Jetzt weiß ich was bei mir fällt, es ist diese hamma geile Mukke von dem Link von Blubbstar.
    ICH BRAUCH DIE !!! :D :D :D

    schon witzig wenn man nit weiß das mans mit esc beendet aber man kommt ja drauf hättest ne tastenkombination wählen sollen XD

    wo man alleine nit drauf kommt XD

    Hab's bisschen geändert,

    jetzt arbeitet das ganze mit Random Farben.


    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    #include <GUIConstants.au3>
    #Include <Constants.au3>
    $GUI = GuiCreate("Rahmen",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP)
    WinSetTrans("Rahmen","",150)
    $Rahmen = GUICtrlCreateLabel('',0,0,@DesktopWidth,@DesktopHeight)
    GUISetState(@SW_SHOW,$GUI)
    HotKeySet("{ESC}","_exit")
    Func _exit()
    GUIDelete($GUI)
    Exit
    EndFunc
    While 1
    $colour = Random(0,16777215)
    GUICtrlSetBkColor($Rahmen,$colour)
    sleep(500)
    WEnd

    [/autoit]

    Gruß rabbit

    So? :D:P

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #include <GUIConstants.au3>
    #Include <Constants.au3>
    #Include <WindowsConstants.au3>
    $GUI = GuiCreate("Rahmen",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP)
    WinSetTrans("Rahmen","",150)
    $Rahmen1 = GUICtrlCreateLabel('',0,0,@DesktopWidth/2,@DesktopHeight/2)
    $Rahmen2 = GUICtrlCreateLabel('',0,@DesktopHeight/2,@DesktopWidth/2,@DesktopHeight/2)
    $Rahmen3 = GUICtrlCreateLabel('',@DesktopWidth/2,0,@DesktopWidth/2,@DesktopHeight/2)
    $Rahmen4 = GUICtrlCreateLabel('',@DesktopWidth/2,@DesktopHeight/2,@DesktopWidth/2,@DesktopHeight/2)
    GUISetState(@SW_SHOW,$GUI)
    HotKeySet("{ESC}","_exit")
    Func _exit()
    GUIDelete($GUI)
    Exit
    EndFunc
    While 1
    $colour = Random(0,16777215)
    $sleep = Random(200,600,1)
    $tim = TimerInit()
    Do
    Sleep(10)
    GUICtrlSetBkColor($Rahmen1,$colour)
    Sleep(10)
    GUICtrlSetBkColor($Rahmen2,$colour)
    Sleep(10)
    GUICtrlSetBkColor($Rahmen3,$colour)
    Sleep(10)
    GUICtrlSetBkColor($Rahmen4,$colour)
    Until TimerDiff($tim) >= $sleep

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

    WEnd

    [/autoit]