screen saver

[testingtest 0]

ok this isn't great but what ever.

#include <GUIConstants.au3>
HotKeySet("{ESC}" , "_Exit")
$GUI = GUICreate("", @DesktopWidth , @DesktopHeight , -5 , -23)
;GUISetBkColor(00000000)
GUISetState(@SW_SHOW)

While 1
;Sleep(Random(500 , 5000))
GUISetBkColor(_Colour() , $GUI)
WEnd

Func _Colour()
    Dim $Colour[3]
;   Random($Colour[1] , $Colour[2])
    $Colour[1] = GUISetBkColor(0xFF0000 , $GUI)
;   $Colour[2] = GUISetBkColor(0xFFFED8 , $GUI)
EndFunc 


Func _Exit()
    Exit
    EndFunc

Edited March 30, 2007 by testingtest

[jvanegmond 293]

Annoying...

[testingtest 0]

Annoying...

perfect

[jvanegmond 293]

perfect

Hah, it's all about perspective..

[BillLuvsU 8]

Wow, my eyes hurt T-T

[testingtest 0]

I love how you guys are saying your eyes hurt becuase my friend did something mean so i am going get him back for a tiny bit i turned this into a server so i can do it at will although i might only do it at least 4 - 5 times

[Jos 1,038]

I love how you guys are saying your eyes hurt becuase my friend did something mean so i am going get him back for a tiny bit i turned this into a server so i can do it at will although i might only do it at least 4 - 5 times

aah an "get back at an unknown friend" script .... thats cool huh ....

[testingtest 0]

aah an "get back at an unknown friend" script .... thats cool huh ....

i mean no harm just pay back it won't have any reg on boot up or go in his start up or block task manger or block input so don't worry then i can self delete the server after

hes not a unkown friend either

i respect autoit to much

hmm about the script though i want it to flash colours but that ended up being a problem it made 3 lines of colors instead ill have to fix that. I dare you guys to set the transparteny on it LOL

[edited]

WARNING DO NOT LOOK AT THIS... YOUR OWN RISK LOL

#include <GUIConstants.au3>
HotKeySet("{ESC}" , "_Exit")
$GUI = GUICreate("", @DesktopWidth , @DesktopHeight , -5 , -23)
GUISetState(@SW_SHOW)

While 1
    GUISetBkColor(00000000)
    Sleep(10)
    GUISetBkColor(0xFF0000 , $GUI)
   Sleep(10)
   GUISetBkColor(0xFFFED8 , $GUI)
   Sleep(10)
   GUISetBkColor(0xF7E74A , $GUI)
   Sleep(10)
   GUISetBkColor(0x0000FF , $GUI)
   WEnd




Func _Exit()
    Exit
    EndFunc

Edited March 30, 2007 by testingtest

[jvanegmond 293]

Omfg, that definately hurt my eyes! Don't go and watch it, seriously.

Ouch.

[Richard Robertson 186]

You should have a random polygon in the middle on every screen update.

[BillLuvsU 8]

GAH! eyes... burning....

Edit: Try making random black dots appear and dissapear on each update.

Edited March 30, 2007 by fear1313

[james3mg 1]

When doing something fullscreen like this, you should use Larry's $Virtualdesktop size functions:

Global Const $SM_VIRTUALWIDTH = 78
Global Const $SM_VIRTUALHEIGHT = 79
$VIRTUALDESKTOPWIDTH = DLLCall("user32.dll","int","GetSystemMetrics","int",$SM_VIRTUALWIDTH)
$VIRTUALDESKTOPWIDTH = $VIRTUALDESKTOPWIDTH[0]
$VIRTUALDESKTOPHEIGHT = DLLCall("user32.dll","int","GetSystemMetrics","int",$SM_VIRTUALHEIGHT)
$VIRTUALDESKTOPHEIGHT = $VIRTUALDESKTOPHEIGHT[0]

(for multiple monitor configurations)

Edited March 30, 2007 by james3mg

[testingtest 0]

thanks guys but it is not eye blinding enough lol he will get pay back i am not in to writing any bad scripts and i won't but it will be more of a shock

[BrettF 24]

thanks guys but it is not eye blinding enough lol he will get pay back i am not in to writing any bad scripts and i won't but it will be more of a shock

My Eyes!

[testingtest 0]

not sure if i over did it but this is the final one like i said i respect autoit if you guys think it is harmful i won't do it

expandcollapse popup

;there is no harm in this script unless someone wanted it to be harmful but i dealt it
#NoTrayIcon  ;only in here so he can't cancel it right away 
#include <GUIConstants.au3>
#include <Misc.au3>
HotKeySet("{ESC}" , "_Exit")
Const $WM_SYSCommand = 274, $SC_MonitorPower = 61808, $Power_On = -1, $Power_Off = 2
$dll = DllOpen("user32.dll")
$HWND = WinGetHandle(WinGetTitle("", ""))
DllCall($dll, "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, "int", $SC_MonitorPower, "int", $Power_Off)
For $l = 0 to 4
For $i = 100 to 2000 step 10
    Beep($i, 1)
Next
for $i = 2000 to 100 step -10
    beep($i, 1)
Next
Next
Sleep(2000)
MsgBox(16 , "Critical Error" , "it seems your video card has been corrupted") ; a bit of a scare
Sleep(5000) ; if the gui starts right away it will be less scarey but if there is a sleep you might think the computer would have to process it still
$GUI = GUICreate("", @DesktopWidth , @DesktopHeight , -5 , -23)
DllCall("user32.dll", "int", "ShowCursor", "int", 0)
GUISetCursor(-1 , 1 , $GUI)
GUISetState(@SW_SHOW)
WinSetTrans($GUI , "" , 230) ; makes it look like something happened to the video card
DllCall($dll, "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, "int", $SC_MonitorPower, "int", $Power_Off)
While 1
    $i = 0
    Do 
        WinSetTrans($GUI , "" , 255)
        $i = $i + 1
    Until $i = 1
    _Blind()
  WEnd


Func _Blind()
    While 1
    ;Beep(100 , 100) ; AWSOME effect but slows down flickering
    GUISetBkColor(00000000 , $GUI)
    Sleep(10)
    GUISetBkColor(0xFF0000 , $GUI)
   Sleep(10)
   GUISetBkColor(0xFFFED8 , $GUI)
   Sleep(10)
   GUISetBkColor(0xF7E74A , $GUI)
   Sleep(10)
   GUISetBkColor(0x0000FF , $GUI)
   Sleep(10)
   GUISetBkColor(0x800080 , $GUI)
   Sleep(10)
   GUISetBkColor(0x017E7A , $GUI)
   Sleep(10)
   GUISetBkColor(0xBD160E , $GUI)
   WEnd
   EndFunc
   
   
   Func _Exit()
       Exit
       EndFunc

the beep gives it the effect but it makes the screen stay red instead of flickering colours hmmm

Edited March 31, 2007 by testingtest

[Siddhartha 0]

oh shit, i cant get it to stop... ok.....hmmm...if all fails, poosh da green button

***Edit*** Oh thank god...lol..my eyes

Edited March 31, 2007 by Nikolai

[testingtest 0]

oh shit, i cant get it to stop... ok.....hmmm...if all fails, poosh da green button

***Edit*** Oh thank god...lol..my eyes

lol you push the escape button