AutoHotkey Homepage AutoHotkey Community
Let's help each other out
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

April Fools Scripts

 
Reply to topic    AutoHotkey Community Forum Index -> General Chat
View previous topic :: View next topic  
Author Message
icefreez



Joined: 15 May 2007
Posts: 169
PostPosted: Tue Mar 24, 2009 10:03 pm    Post subject: April Fools Scripts Reply with quote
Well April fools day is coming up. What are the best pranks you have designed in AHK?

Nothing not annoying just good old fashioned temporary fun to set loose on coworkers, friends, and family alike. Hehehe
Back to top
View user's profile Send private message
Prank
Guest
PostPosted: Tue Mar 24, 2009 10:33 pm    Post subject: Reply with quote
Code:
MsgBox AutoIt is fast!
Back to top
ecksphore



Joined: 21 Nov 2006
Posts: 191
PostPosted: Fri Mar 27, 2009 5:03 am    Post subject: Reply with quote
Bring up a popup saying they won a free gift - then open their cd tray and congrat them on their free cup holder
Back to top
View user's profile Send private message
Guest
PostPosted: Fri Mar 27, 2009 12:53 pm    Post subject: Reply with quote
Quote:
Bring up a popup saying they won a free gift - then open their cd tray and congrat them on their free cup holder
10/10 Exclamation Laughing Laughing Laughing
Back to top
Lexikos



Joined: 17 Oct 2006
Posts: 7295
Location: Australia
PostPosted: Fri Mar 27, 2009 1:44 pm    Post subject: Reply with quote
Code:
BlockInput Mouse
MsgBox 48, Mouse, Your mouse batteries are critical!

Concept:
  • Show "low battery", then set a timer to randomly (un)block mouse input, simulating batteries running out.
  • Show the message only while the mouse is blocked.
  • Convince the user they must click OK before attempting to replace the batteries.
  • Extra points if a) the battery compartment is glued shut or b) there is no battery compartment. Wink

There's always this classic.
Back to top
View user's profile Send private message Visit poster's website
Hothr



Joined: 27 Mar 2009
Posts: 2
PostPosted: Fri Mar 27, 2009 9:30 pm    Post subject: Reply with quote
Here is my script. It plays sounds when the user hits 'del' or 'backspace' and makes the mouse move when it is inactive.

It copies itself to the users startup folder and runs itself. But does nothing until April 1st. It deletes itself on windows+0 (instructions given to victim) or after April 1st.
Code:

; April Fools Script 2009
; Made by Hothr, March 2009
;
; FEATURES:
; Doesn't do anything until 10am on april 1st.
; Insalls itself to startup section, and runs itself.
; Deletes itself from startup when Windows+0 is pressed, or after April 1st.
;
; JOKES:
; Slowly makes the mouse "drift" when user has been idle.
; Plays logoff and shutdown sounds (unmute + max volume) when backspace or del are pressed
; Recommends shaking the mouse to fix the problem.
;
; Now, go compile this and run it on eveyone you know's computer!
;

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#InstallKeybdHook
#InstallMouseHook
#NoTrayIcon
#SingleInstance FORCE

annoyancecount := 0
AprF := 401

IfInString, A_ScriptDir, \Programs\Startup
   annoyancecount := 0
else
{
   FileCopy %A_ScriptFullPath%, %A_Startup% ,1   
   Location := A_Startup . "\" . A_ScriptName
   Run, %Location%
   ExitApp
}

#Persistent
FormatTime, TodayIs, ,Mdd
FormatTime, TimeIs, ,H

If (TodayIs = AprF)
{
   If (TimeIs > 10)
   {
      ItIsTime := 1
   }
}
else
   ItIsTime :=0
If (TodayIs > AprF)
   Gosub, CleanUpNow
If (ItIsTime = 1)
   SetTimer, CrazyMove, 1000
return

~BS::
{
If (ItIsTime = 1)
{
; Backup the volume and make sure it isn't muted
SoundGet, volumeBackup
SoundGet, master_mute, , mute
if master_mute = on
SoundSet, +1, , mute
; Set it to the highest volume
SoundSet, +100
SoundPlay, %A_WinDir%\Media\Windows XP Logoff Sound.wav, 1
If master_mute = on
  SoundSet, +1, , mute
soundset, %volumeBackup%
}
return
}

~Del::
{
If (ItIsTime = 1)
{
SoundGet, volumeBackup
SoundGet, master_mute, , mute
if master_mute = on
SoundSet, +1, , mute
; Set it to the highest volume
SoundSet, +100
SoundPlay, %A_WinDir%\Media\Windows XP Shutdown.wav, 1
If master_mute = on
  SoundSet, +1, , mute
soundset, %volumeBackup%
}
return
}

~#0::
{
   
   If (ItIsTime = 1)00
   {
   msgbox, 262196, APRIL FOOLS! , See You Next Year!
   Gosub, CleanUpNow
   }
}

CrazyMove:
{
   loop
   {
   if(A_timeIdlePhysical < 5000)
      break
   random xmov, -2, 2
   random ymov, -2, 2
      Loop 150
      {
         If (A_TimeIdlePhysical <5000)
         {
            annoyancecount++
            If (annoyancecount=10 or annoyancecount =20)
               MsgBox, 262193, Error:, Mouse Error 401: This can usually be fixed by shaking your mouse. , 180
            If (annoyancecount=30)
               MsgBox, 0, APRIL FOOLS!, You've Been Fooled!.`nPress 'Windows+0' to stop the insanity
            If (annoyancecount>50)
               MsgBox, 0, APRIL FOOLS!, You've Been Fooled!.`nPress 'Windows+0' to stop the insanity
            break
         }
         MouseMove, xmov, ymov, ,R
         Sleep 10
      }
   }
   return
}

CleanUpNow:
{
   waiter := "ping -n 1 -w 1000 1.1.1.1 >nul"
   FileAppend, %waiter%`nDEL "%A_ScriptFullPath%"`nDEL "%A_ScriptDir%\del.bat", del.bat
   Loop
   {
      if (FileExist("del.bat"))
         break
   }
   Run, del.bat,, Hide
   ExitApp
}


used code from **Self Delete**
Back to top
View user's profile Send private message
Guest
PostPosted: Tue Mar 31, 2009 11:19 am    Post subject: Reply with quote
Hothr wrote:
; Plays logoff and shutdown sounds (unmute + max volume) when backspace or del are pressed

...this is bad if people are using headphones...forcing unmute+max volume could blow an ear drum. This is like those "surprise" videos on YouTube, long silence, encouraging you to turn up the volume, then BOOM!...not funny, very damaging. I would like YouTube to create a VU Meter, so you can SEE that the end of the video is LOUD. I would also like a script/program to monitor audio output levels & mute or clip it if it jumps real high (like smart sound on TVs, but better, fast reacting). AutoHotkey can get the volume level, but I don't think it can read the current output decibels/sound level...
Back to top
Guest
PostPosted: Tue Mar 31, 2009 3:58 pm    Post subject: Reply with quote
Quote:
forcing unmute+max volume could blow an ear drum
so what they'll grow back
Back to top
icefreez



Joined: 15 May 2007
Posts: 169
PostPosted: Tue Mar 31, 2009 6:32 pm    Post subject: Reply with quote
Hothr wrote:
Here is my script. It plays sounds when the user hits 'del' or 'backspace' and makes the mouse move when it is inactive.

It copies itself to the users startup folder and runs itself. But does nothing until April 1st. It deletes itself on windows+0 (instructions given to victim) or after April 1st.

used code from **Self Delete**


Ohh wonderful Script Hothr. A great framework for creating other scripts that exceuted and clean up after themselves too. Smile

I also like the idea for the Free Cup Holder Smile
Back to top
View user's profile Send private message
icefreez



Joined: 15 May 2007
Posts: 169
PostPosted: Tue Mar 31, 2009 6:43 pm    Post subject: Reply with quote
Here is one of my favorites. I don't recall where I got the idea from but it was on the AHK forums a while back.

It sends a high pitched beep from PC Speaker at random intervals. Not long enough to identify where its coming from and long enough intervals that you can't sit and wait for it to happen again.

I pulled this prank on three of my coworkers a while back and it was hilarious. I meant to tell them I was responsible for the beeps after they started asking questions but I got called out of the room.
When I came back one of my coworkers had the side of his computer open. It was hilarious. I asked him what was wrong he said, "My video card is broken." I burst out laughing. I couldn't contain myself. Razz
Another coworker was about going crazy trying to identify the direction of the beep since his computer sat under his desk. He couldn't figure out what direction it was coming from and was going crazy lol.
The third knew by then it was my doing and came directly to me. Smile


Code:

#SingleInstance force
#NoTrayIcon
loop
{
Random, Freq,7000,8500
SoundBeep, %Freq%,1000
Random, rnd,5,15
time := (rnd * 10000)
sleep %time%
}
!^Esc::Exitapp ;ctrl alt Escape exits application
return
Back to top
View user's profile Send private message
TotalBalance



Joined: 22 Jan 2007
Posts: 205
Location: CO, USA
PostPosted: Wed Apr 01, 2009 4:59 am    Post subject: Reply with quote
Thanks to ideas from this thread (in particular ecksphore for the beer holder theme), here's my April Fool's Prank. It's hard coded to play included video so check out the code link at end of this thread to customize for diff. video and delays to suit your needs. For whatever reason, I could only get AVI or MPG-1 formats to play properly.

Background:
I play in an annual Golf Outing called Winterfest. It's a Ryder's Cup format. Leading up to the grand event there's a lot of Team USA vs. Team EUR banter and practical jokes.
As the "spiritual leader" for Team EUR, be forwarned the included video and all text is Pro-Team EUR/Anti-Team USA. Some of the "sounds" are R/X-rated, visuals PG-13 (it's all in fun). After extracting the zip file into it's own folder, here's what the EXE does.

1. On launching the exe, it automatically starts a simple AHK video player and plays the mpg file.
2. When the file is finished, the program opens the user's CD-ROM drive (has to do with the April Fools Team USA Holder described in video)
3. The program then pops up a message box with congratulatory text and an 'OK" button only.
4) Whether they click "OK" or close message box, the real fun begins. The PRANK is LIVE.
5) Suddenly, Yank's PC screen becomes the "blue screen of death" (BSoD) with a twist. It's text, while familiarly technical, when read closely is true anti-Team USA, AND they will have to read it! The mouse is disabled, the cursor has vanished and they keyboard does nothing until very specific keystrokes are executed.

OK, they can do a hard reboot and all will be as it was, but how cool for Team EUR, through illusion, to force a Yank-Yank to hard boot his PC Twisted Evil

6) Within the BSoD screen text are instructions for the hapless YANK to get out of the mess he's in. The magic keystroke combo?

Press the "WINDOWS" key AND "E" key together. Then, within 2 seconds, press the "U" key and then the "R" key. It should work whether you've released the WIN-E keys, before pressing U R or not. Sorry, not a lot of QA done on this effort, my BAD. The BSoD text file is included in the attached file.

It true, the escape hotkey combo may be a little challenging for USA players, but I just love the fact they've got to type, WIN EUR to get the hell out.
BTW, while not in the BSoD text, just hitting the ESC key will also get you the hell out . I'll probably remove this EUR backdoor hotkey before launch.
7. Once the hotkeys are pressed correctly, the program terminates and all is as it was. Nothing on their system was changed. It's just a little script that gives the illusion their system is hosed. Of course, considering the age of some Yanks, heart attacks are a possibility

Here's the April Fool's AHK Code.
_________________
Lars
Back to top
View user's profile Send private message
icefreez



Joined: 15 May 2007
Posts: 169
PostPosted: Wed Apr 01, 2009 6:55 pm    Post subject: Reply with quote
Well I put Hothr's script on a few coworkers computers today. But I messed up Sad. I either botched the compile or forgot to set the date back after testing it. Either way I found myself slipping it back on people's computer at lunch today Smile.

They fingered me right a way as the culprit lol. I guess anything that interferes with their computers they just blame me lol. OH well there is always next April fools Smile
Back to top
View user's profile Send private message
vla



Joined: 12 May 2007
Posts: 48
PostPosted: Wed May 20, 2009 7:22 pm    Post subject: Reply with quote
I have made a few programs for my room mate that i prank.

This one slowly makes a window go to 0% transparency in a little over an hour. Then reverts the window back to 100%
Code:

WinGetTitle, Title1, A ;gets the title of the current focus window

var = 255 ; sets var at 255
while var > 0 ; exits loop when transparency is 0.
{
sleep 20000 ; 20 second pause
var-=1 ; reduces transparency "var" by 1
WinSet, Transparent,%var%,%title1% ;puts it all into action
}
sleep 5000 ; when transparency is at 0 it exits loop, waits 5 seconds
WinSet, Transparent,255,%title1% ; puts window back to 100% (255) before exiting.
exitapp



The next one chain invis windows. It gets the current focus, invis the window, minimizes, gets another window and repeats. when all windows are minimized it exists

Code:
title = something ; just to give the var "title" something so it doesn't exit instantly

loop,
{
   WinGetTitle, Title, A ; gets current focus
      ifequal,title, ; if no more titles
      exitapp ; exit!
   var = 255 ; else sets var at 255
   while var > 0
   {
;   sleep 5 ; if you want to slow down the amount of time, add this or increases the sleep number
   var-=1 ; if you want to speed up the amount of time increase "1" to a higher number
   WinSet, Transparent,%var%,%Title% ; puts it all into motion
   }
WinMinimize, %Title% ; minimizes the window that was made transparent
WinSet, Transparent,255,%Title% ; sets it back to 100%
;sleep 2000 ; waits 2 seconds, optional
} ; goes back to grab another focus window and repeats



This one pulls a trick from the matrix ( http://www.youtube.com/watch?v=ravcpOVEDHo ) . You can change the speed of typing ( with {SetKeyDelay, 200} ), pauses and text.

Code:
sleep 5000
fileappend,,%A_Desktop%\I see you.txt
run, %A_Desktop%\I see you.txt,,max
sleep 50
WinActivate, I see you - Notepad
sleep 50
blockinput, on
sleep 4000
SetKeyDelay, 190
send Wake up. {SetKeyDelay, 130}
sleep 1500
send Neo...
sleep 1500
send {backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{SetKeyDelay, 200}AutoHotkey...  {SetKeyDelay, 120}
sleep 2000
send The Matrix has you...  {SetKeyDelay, 130}
sleep 3500
send Follow the white bunneh.  {SetKeyDelay, 130}
sleep 3000
send Knock, Knock, Neo.
sleep 2000
SetKeyDelay, 0
send ^s
WinClose, I see you - Notepad
FileDelete, %A_Desktop%\I see you.txt
blockinput, off
return




This one just flickers on and off randomly. ctrl P to pause it. moves mouse to top left, so you can exit the program.

Code:
#Persistent
SetTimer, WatchCaret, 5
return
WatchCaret:
MouseGetPos,mousex,mousey
ToolTip, Are you sure you want to click on that?  Looks like a virus to me.,mousex+10,mousey+15 ; you can change the text after tooltip, and play around with the text location
^p::
{
; exitapp ; or just use this
mousemove,00-1000,00-1000
pause
}
return



Then we have some smaller fun ones.

Code:
msgbox, You win a free gift!
drive, eject,
msgbox, A new Cup Holder!



Code:
MsgBox,16, Fatal Error,Abort Current Task,


Code:
mousemove, 75, 50, 25, r


Code:
sleep 60000
random,rannum3, 1,60
Ifless,rannum3,30
send {Backspace}


and the good ol turn the monitor off

Code:
; Turns Monitor Off
blockinput, on
SendMessage, 0x112, 0xF170, 2,, Program Manager
sleep 5000
; hopefully turnsback on lol
SendMessage, 0x112, 0xF170, -1,, Program Manager
blockinput, off
Back to top
View user's profile Send private message AIM Address
codhummy
Guest
PostPosted: Sun May 29, 2011 11:48 pm    Post subject: Someone PLEASE do the cupholder one! Reply with quote
Someone PLEASE do the cupholder one!
Back to top
Guest
PostPosted: Fri Jun 03, 2011 12:05 pm    Post subject: Reply with quote
This could get annoying for some people:
Code:
Freq=7000
Loop
{
  Sleep, 5000
  Loop, 15
  {
    Freq+=250
    SoundBeep, %Freq%,150
  }
  Loop, 15
  {
    Freq-=250
    SoundBeep, %Freq%,150
  }

}
Back to top
Display posts from previous:   
Reply to topic    AutoHotkey Community Forum Index -> General Chat All times are GMT
Page 1 of 1

 
Jump to:  
You can post new topics in this forum
You can reply to topics in this forum


Powered by phpBB © 2001, 2005 phpBB Group