Funny Script Prank

Posted 5 Feb 17 by Darren Welch

Here are a few examples of some funny computer pranks that you can use on your friends. Don't worry they won't actually do any harm!

There's no life without humour. It can make the wonderful moments of life truly glorious, and it can make the tragic moments bearable. - Rufus Wainwright

For any of the following pranks you will need to:

 

  • open notepad on your machine (assuming you are using a windows machine)
  • paste the example text in.
  • Click "file", "save as"
  • give it a name that ends in ".vbs" e.g. "myFile.vbs"
  • make sure "all files" is selected in the dropdown.
  • click save

 

You can then transfer it to your friends computer and double click it when they are not around. Or if you have some windows experience, you can assign it to their startup so that it begins everytime they load their PC.

 

FAKE VIRUS

This will cause a pop up to warn them that they have a virus, and pretend to reformat the C: Drive

replace the (insert your name here) with your name.

Msgbox "Your computer has been infected by a virus",16,"Warning !"

dim x,yes,no

x=Msgbox("Virus has infected hard drive (C:). Deletion of the virus will require complete formatting of hard drive (C:). Would you like to format hard drive (C:) ?",52,"Warning !")

if x=6 then
dim box
box=Msgbox("Hard drive (C:) formatting complete. In order to function correctly your computer must restart, would you like to restart now ?",36,"Formatting has been completed")

if box=6 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"

Msgbox "Just kidding, Another classic prank brought to you from the mind of (Insert your name here)!",64,"Hahaha"
end if

if box=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, Another classic prank brought to you by (insert your name here)!",64,"Hahaha"
end if
end if

if x=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, Another classic prank brought to you by (insert your name here)!",64,"Hahaha"
end if

 

 

Keyboard Disco

Causes the keyboard lights to flash (Caps Lock, Num Lock, ScrollLock)

Set wshShell =wscript.CreateObject("WScript.Shell")
do While i < 100
  i = i + 1 wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{SCROLLLOCK}" loop 

 

 

Random CD pop out

Causes the CD drive (if they have one) to open at delayed intervals throughout the day.  It will stop after a PC restart

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

wscript.sleep 600000

do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 120000
loop




Darren Welch

By

Darren Welch


  5 Feb 17


Contact me online

 Facebook

 Twitter

 Linked In

 Git Hub

Related Content




Learn to code

05 Feb 2017




Google Tips

05 Feb 2017




Creating HTML Helpers

05 Feb 2017




Create circular images with CSS

05 Feb 2017