Going In and Out – Computer Prank

• Tweet
• Sharebar

• Tweet

I created this prank from and idea I had in a previous prank. The old prank simply zoomed in every time you pressed a certain key ( How evil…. really it sucked). So I thought I’d add a couple changes and turn that simple zoom into a drunken night of code. This new adaptation of the old prank is very simple. Any where between 1 and 2 seconds this Timer is called. In the timer section it selects a random number from 500 to 1 (this is the zoom percentage). So when ever you open a word document it will zoom in any where from 500 to 1, every 1 to 2 seconds (With me ? Dont worry all you need to do is copy and paste). So, how do you do it…? Step 1: Open Microsoft Word

Step 2: Press Alt F-11 (This will open the VBA Editor

Step 3: Select your Normal Template by double clicking “This Document”

Step 4: Copy the code below into your normal template. Remember to re-type any “s, they dont always transfer over correctly in the copy/paste process.
Sub AutoExec()
counter = CStr(Int((2 - 1 + 1) * Rnd + 1))
Application.OnTime When:=Now + TimeValue("00:00:" + counter), _
Name:="Timer"
End Sub
Sub Timer()
On Error Resume Next
counter = CStr(Int((500 - 1 + 1) * Rnd + 1))
ActiveDocument.ActiveWindow.View.Zoom.Percentage = counter
Call AutoExec
End Sub
Step 5: SAVE

Step 6: Enjoy

If you did this correctly the next time you open a word document or click to create a new document this code will be called. Soon they will be swearing and saying how they got some awful virus. You will know better and it up to you if you fix it for them.