Sign in to follow this  
Followers 0
testingtest

screen saver

17 posts in this topic

#1 ·  Posted (edited)

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 by testingtest

Share this post


Link to post
Share on other sites



Annoying... :whistle:

perfect :P

Share this post


Link to post
Share on other sites

Wow, my eyes hurt T-T


[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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 :P then i can self delete the server after

hes not a unkown friend either :whistle:

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 by testingtest

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

GAH! eyes... burning....

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

Edited by fear1313

[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

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 by james3mg

"There are 10 types of people in this world - those who can read binary, and those who can't.""We've heard that a million monkeys at a million keyboards could produce the complete works of Shakespeare; now, thanks to the Internet, we know that is not true." ~Robert Wilensky0101101 1001010 1100001 1101101 1100101 1110011 0110011 1001101 10001110000101 0000111 0001000 0001110 0001101 0010010 1010110 0100001 1101110

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

My Eyes! :whistle::P

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

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

;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 by testingtest

Share this post


Link to post
Share on other sites

#16 ·  Posted (edited)

oh shit, i cant get it to stop... ;):P ok.....hmmm...if all fails, poosh da green button :whistle:

***Edit*** Oh thank god...lol..my eyes :P:lmao::D

Edited by Nikolai

Share this post


Link to post
Share on other sites

oh shit, i cant get it to stop... ;):P ok.....hmmm...if all fails, poosh da green button :whistle:

***Edit*** Oh thank god...lol..my eyes :P:lmao::D

lol you push the escape button

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