jvanegmond Posted April 30, 2006 Share Posted April 30, 2006 (edited) I was playing around with the beep function and found something funny. I know this is complete useless but i hope it will make you laugh. Note: CTRL + END will make it stop Opt("TrayIconHide", 1) HotKeySet("^{END}", "Stop") Sleep(1000) $posA = MouseGetPos() While 1 $posB = MouseGetPos() If $posA[0] - $posB[0] <> 0 OR $posA[1] - $posB[1] <> 0 Then SplashTextOn("Warning", @CRLF & "Do not touch the computer again!!!", 500, 70) For $x = 1 to 20 Beep(50, 100) Beep(4000, 100) Sleep(2) Next SplashOff() $posA = MouseGetPos() EndIf Sleep(200) WEnd Func stop() Exit EndFunc [Edit] Did a quick fix so you could move the mouse a little on accident. [Edit] Undid the fix so you couldn't move the mouse a little. Whatever. Edited April 30, 2006 by Manadar github.com/jvanegmond Link to comment Share on other sites More sharing options...
RazerM Posted April 30, 2006 Share Posted April 30, 2006 that is quite funny.Useless nevertheless but funny My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop. Link to comment Share on other sites More sharing options...
rakudave Posted April 30, 2006 Share Posted April 30, 2006 funny... inspired by your script: HotKeySet("{END}", "Stop") While 1 $pos = MouseGetPos() beep(100 + $pos[0] + 2*$pos[1],20) WEnd Func stop() Exit EndFunc Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted April 30, 2006 Share Posted April 30, 2006 (edited) ahhaha even funner HotKeySet("{END}", "Stop") While 1 $pos = MouseGetPos() beep(100 + $pos[0] + 2*$pos[1],20) MouseMove(Random(0, @DesktopWidth), Random(0, @DesktopHeight), 0) WEnd Func stop() Exit EndFunc hehehe even more boredom while 1 For $l = 0 to Random(1,40) For $i = Random(0,1000) to Random(1,100) step Random(1,30) Beep($i, 1) Next for $i = Random(0,1000) to Random(1,100) step Random(-100,100) beep($i, 1) Next Next WEnd Edited April 30, 2006 by thatsgreat2345 Link to comment Share on other sites More sharing options...
RazerM Posted April 30, 2006 Share Posted April 30, 2006 i like the one that relates to the mouse position My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop. Link to comment Share on other sites More sharing options...
ConsultingJoe Posted May 1, 2006 Share Posted May 1, 2006 i like the one that relates to the mouse positionYeah that was funny [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 comment Share on other sites More sharing options...
jvanegmond Posted May 2, 2006 Author Share Posted May 2, 2006 (edited) ahhaha even funner HotKeySet("{END}", "Stop") While 1 $pos = MouseGetPos() beep(100 + $pos[0] + 2*$pos[1],20) MouseMove(Random(0, @DesktopWidth), Random(0, @DesktopHeight), 0) WEnd Func stop() Exit EndFunc hehehe even more boredom while 1 For $l = 0 to Random(1,40) For $i = Random(0,1000) to Random(1,100) step Random(1,30) Beep($i, 1) Next for $i = Random(0,1000) to Random(1,100) step Random(-100,100) beep($i, 1) Next Next WEnd haha i like the sound of the first one, it's kind of like in a bad movie from the 70's / 80's ( ? ) The second is cooler when you make the beeps a little longer like in 5 - 10 ms Epilepsy warning! [Edit] HotKeySet("{END}", "Stop") GUICreate("Flashy", 500, 500) GUISetState() While 1 GUISetBkColor(Hex(Random(30000, 32000000, 1), 6)) beep(100 + Random(0, @DesktopWidth) + 2*Random(0, @DesktopHeight),20) Sleep(15) WEnd Func stop() Exit EndFunc Edited May 2, 2006 by Manadar github.com/jvanegmond 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