Sign in to follow this  
Followers 0
fastnick1oo

Funny screensaver

13 posts in this topic

#1 ·  Posted (edited)

#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 by fastnick1oo

SciTE - much better than notepad. ; ]

Share this post


Link to post
Share on other sites



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. :o


Live and Learn, 'cause Knowledge is Super Power.

Share this post


Link to post
Share on other sites

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


AutoIt Console written in C#. Write au3 code right at the console :D_FileWriteToLineWrite to a specific line in a file.My UDF Libraries: MySQL UDF Library version 1.6 MySQL Database UDF's for AutoItI have stopped updating the MySQL thread above, all future updates will be on my SVN. The svn location is:kan2.sytes.net/publicsvn/mysqlnote: This will still be available, but due to my new job, and school hours, am no longer developing this udf.My business: www.hirethebrain.com Hire The Brain HireTheBrain.com Computer Consulting, Design, Assembly and RepairOh no! I've commited Scriptocide!

Share this post


Link to post
Share on other sites

its missing this

#include <GUIConstants.au3>

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

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


[~FuZi0h~]ScriptRipping? = ┴¬┴¬┴┴¬ (My word for sucks.)'FuZi0h, Liope and Rambo3889 4-EvaHelp me by pressin This!all clicks appreciated :)

Share this post


Link to post
Share on other sites

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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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?

[~FuZi0h~]ScriptRipping? = ┴¬┴¬┴┴¬ (My word for sucks.)'FuZi0h, Liope and Rambo3889 4-EvaHelp me by pressin This!all clicks appreciated :)

Share this post


Link to post
Share on other sites

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

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

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

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

$i = $i + 1
Edited by rambo3889

My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

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


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites

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.


SciTE - much better than notepad. ; ]

Share this post


Link to post
Share on other sites

I dont have tha prob


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0