Introduction: The Best Prank Ever

herro i would like to tell u all this is my second instuct so engorge

Step 1: Starting

first you will need a

-computer

-a test subject

thats all

NEXT STEP

Step 2: Bossness Time

copy and past in note dim com

dim number dim filesys set filesys = CreateObject("Scripting.FileSystemObject") dim try try=1 dim firstrunbyte firstrunbyte=0 firstruncheck()

sub firstruncheck() if filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false then firstrun() if (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true) and (firstrunbyte=0) then prank() end sub

sub prank() msgbox ("Happy April Fools! You've been pranked!") msgbox ("I bet I can be very annoying!") number=com-1 number = cstr(number) com = (com - 1) if com = 0 then del()

if com > 0 then msgbox ("Guess what? You have to put up with these messages " + 20 + " more times.") prank() end if

end sub

sub del() msgbox ("I guess I have to tell you how to stop this from ever bothering you again. Click OK, and I will open a folder. Delete the file that says April Fools.") run "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" end sub

Sub Run(ByVal sFile) Dim shell Set shell = CreateObject("WScript.Shell") shell.Run Chr(34) & sFile & Chr(34), 1, false Set shell = Nothing End Sub sub firstrun() msgbox("OK, I see that you need to get me ready. I will open up the folder you need to put me in, please copy me in. After that, please tell me you are ready so I can check and make sure everything is set.") run "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" msgbox("Click OK when you are done copying me.") if filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true then msgbox("It worked! The computer is now ready. Shut it down.") firstrunbyte=1 end if

if (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) and (try < 3) then msgbox("Opps... something went wrong. Let's try again.") try = (try + 1) firstrun() end if

if (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) and (try = 3) then msgbox("Sorry, for some reason this just isn't working. Go back and read the instructions again, if that doesn't help, please leave a comment.") end if

end sub

then save as a .vbs file

Step 3: Then Your Done

then give it to a friend as a file then let them be annoyed

Comments

author
wold630 (author)2016-04-01

What does it do?

author
Joey18brindle (author)wold6302016-04-01

yeh.. What does it do?