AutoHotkey Community

MsgBox AutoIt is fast!

BlockInput Mouse
MsgBox 48, Mouse, Your mouse batteries are critical!

; 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
}

#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

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

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

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

#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

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

MsgBox,16, Fatal Error,Abort Current Task,

mousemove, 75, 50, 25, r

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

; 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

Freq=7000
Loop
{
  Sleep, 5000
  Loop, 15
  {
    Freq+=250
    SoundBeep, %Freq%,150
  }
  Loop, 15
  {
    Freq-=250
    SoundBeep, %Freq%,150
  }

}