Funny Script Prank

Posted 14 October 2018 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


  14 October 2018


Contact me online

Advertisment


Tags


computing css html

Related Content




ngIf and ngElse

3 Nov 17




Using Flickr API and JSON to load Content

6 Jun 17




How to prioritise a string in select statement

15 May 17