Jump to content

Pc Alarm


jvanegmond
 Share

Recommended Posts

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 :think:

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 by Manadar
Link to comment
Share on other sites

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

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 by thatsgreat2345
Link to comment
Share on other sites

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

i like the one that relates to the mouse position

Yeah 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

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 by Manadar
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...