Jump to content

Recommended Posts

#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. ; ]
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.
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!
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 :)
Link to post
Share on other sites

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!
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]

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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...