testingtest Posted March 30, 2007 Share Posted March 30, 2007 (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 March 30, 2007 by testingtest Link to comment Share on other sites More sharing options...
jvanegmond Posted March 30, 2007 Share Posted March 30, 2007 Annoying... github.com/jvanegmond Link to comment Share on other sites More sharing options...
testingtest Posted March 30, 2007 Author Share Posted March 30, 2007 Annoying... perfect Link to comment Share on other sites More sharing options...
jvanegmond Posted March 30, 2007 Share Posted March 30, 2007 perfect Hah, it's all about perspective.. github.com/jvanegmond Link to comment Share on other sites More sharing options...
BillLuvsU Posted March 30, 2007 Share Posted March 30, 2007 Wow, my eyes hurt T-T [center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw Link to comment Share on other sites More sharing options...
testingtest Posted March 30, 2007 Author Share Posted March 30, 2007 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 Link to comment Share on other sites More sharing options...
Developers Jos Posted March 30, 2007 Developers Share Posted March 30, 2007 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 timesaah an "get back at an unknown friend" script .... thats cool huh .... SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
testingtest Posted March 30, 2007 Author Share Posted March 30, 2007 (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 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 Link to comment Share on other sites More sharing options...
jvanegmond Posted March 30, 2007 Share Posted March 30, 2007 Omfg, that definately hurt my eyes! Don't go and watch it, seriously. Ouch. github.com/jvanegmond Link to comment Share on other sites More sharing options...
Richard Robertson Posted March 30, 2007 Share Posted March 30, 2007 You should have a random polygon in the middle on every screen update. Link to comment Share on other sites More sharing options...
BillLuvsU Posted March 30, 2007 Share Posted March 30, 2007 (edited) GAH! eyes... burning.... Edit: Try making random black dots appear and dissapear on each update. Edited March 30, 2007 by fear1313 [center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw Link to comment Share on other sites More sharing options...
james3mg Posted March 30, 2007 Share Posted March 30, 2007 (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 March 30, 2007 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 Link to comment Share on other sites More sharing options...
testingtest Posted March 30, 2007 Author Share Posted March 30, 2007 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 Link to comment Share on other sites More sharing options...
BrettF Posted March 30, 2007 Share Posted March 30, 2007 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 shockMy Eyes! Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
testingtest Posted March 31, 2007 Author Share Posted March 31, 2007 (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 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 Link to comment Share on other sites More sharing options...
Siddhartha Posted March 31, 2007 Share Posted March 31, 2007 (edited) 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 Link to comment Share on other sites More sharing options...
testingtest Posted March 31, 2007 Author Share Posted March 31, 2007 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now