Funny screensaver

[fastnick1oo]

expandcollapse popup

#include <GUIConstants.au3>
Opt('WinTitleMatchMode', 4)

Screensaver()
Sleep(1000)
Exit

Func Screensaver()
    Local $i = 1
    Local $point = 50
    
    WinSetState("Program Manager", "", @SW_HIDE)
    WinSetState("Classname=Shell_TrayWnd", "", @SW_HIDE)
    WinMinimizeAll()
    
    While $i <= 150
        Local $x = Random(0, @DesktopWidth, 1)
        Local $y = Random(0, @DesktopHeight, 1)
        If $i > $point Then
            GUIDelete(WinGetHandle($i - $point))
        EndIf
        If $i > $point - 5 Then
            Local $trans = 250
            For $n = $point - 5 To $point - 1 Step 1
                WinSetTrans($i - $n, "", $trans)
                $trans = $trans - 50
            Next
        EndIf
        MouseMove($x, $y, 3)
        GUICreate($i, 50, 25, $x - 25, $y - 11, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW)
        GUICtrlCreateLabel("Hacked", 5, 6, 45, 20)
        GUICtrlSetColor(-1, 0xFF0000)
        GUISetState()
        ToolTip($i, 0, 0)
        $i = $i + 1
    WEnd
    
    WinMinimizeAllUndo()
    WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW)
    WinSetState("Program Manager", "", @SW_SHOW)
EndFunc

There is one problem: sometimes freshly created GUIs are deleted insted of "old ones". Anyone know solution for that?

Edited February 18, 2006 by fastnick1oo

[sheck]

expandcollapse popup

Opt('WinTitleMatchMode', 4)

Screensaver()
Sleep(1000)
Exit

Func Screensaver()
    Local $i = 1
    Local $point = 50
    
    WinSetState("Program Manager", "", @SW_HIDE)
    WinSetState("Classname=Shell_TrayWnd", "", @SW_HIDE)
    WinMinimizeAll()
    
    While $i <= 150
        Local $x = Random(0, @DesktopWidth, 1)
        Local $y = Random(0, @DesktopHeight, 1)
        If $i > $point Then
            GUIDelete(WinGetHandle($i - $point))
        EndIf
        If $i > $point - 5 Then
            Local $trans = 250
            For $n = $point - 5 To $point - 1 Step 1
                WinSetTrans($i - $n, "", $trans)
                $trans = $trans - 50
            Next
        EndIf
        MouseMove($x, $y, 3)
        GUICreate($i, 50, 25, $x - 25, $y - 11, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW)
        GUICtrlCreateLabel("Hacked", 5, 6, 45, 20)
        GUICtrlSetColor(-1, 0xFF0000)
        GUISetState()
        ToolTip($i, 0, 0)
        $i = $i + 1
    WEnd
    
    WinMinimizeAllUndo()
    WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW)
    WinSetState("Program Manager", "", @SW_SHOW)
EndFunc

There is one problem: sometimes freshly created GUIs are deleted insted of "old ones". Anyone know solution for that?

This is fun. Good Job. Good code to play a trick on someone.

[cdkid]

haha, it threw me an error about undefined variables right after it hid the stuff >.<

[Valuater]

its missing this

#include <GUIConstants.au3>

8)

[FuZi0h]

how do i close it? ive been havin it on for hours now.

[Valuater]

how do i close it? ive been havin it on for hours now.

it has this in the while loop

While $i <= 150

when $i reaches 151 it exits the loop and closes

( it did for me )

8)

[rhg]

Yes, exited fine for me to. Neat script Valuater.

[FuZi0h]

it has this in the while loop

While $i <= 150

when $i reaches 151 it exits the loop and closes

( it did for me )

8)

but how do i make i to reach 151?

[kapowdude]

it should reach it itself... unless you changed the coding...

the whole script takes about 42 seconds to complete before it exits...

[rambo3889]

If u dont have this line in your code then i think thats why i doesnt reach 151

$i = $i + 1

Edited February 18, 2006 by rambo3889

[ConsultingJoe]

A cool little thing to add to it would be

HotKeySet ( "{ESC}",  "e")
func e()
    WinMinimizeAllUndo()
    WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW)
    WinSetState("Program Manager", "", @SW_SHOW)
     exit
endfunc

add this at the top right after

#include <GUIConstants.au3>
Opt('WinTitleMatchMode', 4)

NICE SCRIPT

[fastnick1oo]

So... only I (script author) have this problem with closing newly created window? It starts form about 110 window count and it bugs at about every 10 windows.

[rambo3889]

I dont have tha prob