Introduction: Scare Your Friends With a Fake Error! Taken to a New Level of FUN

A big thanks to hikinotimasha for the first instructable. This is basically going to teach you how to make an adventure out of error messages.

Step 1: Set Up the Code

First, open Notepad (not Wordpad) and enter this into it

lol = msgbox ("TEXT GOES HERE" ,16, "TITLE GOES HERE")

Insert text into the "text goes here" area, and make sure you keep the quotation marks, otherwise it will not work properly.

Step 2: Do the Same

Do the same for the "enter title here" bar. This is the text that will appear at the top of the window.

Step 3: Save the File

Save the file.

Go to File-> Save, and set the save type to "all files"

Give it a name, and end the name with .vbs

Step 4: Test the File.

Now double click on the saved file. An error message with text should pop up.

If this appears (see main pic below), then drop me a comment with everything you typed, and I will try to help you.

Step 5: Adventure #1

I have made a few adventure messages out of this. Here is the first one.

lol = msgbox ("You are in a cave. There are three exits, called Abort, Retry, and Ignore. Choose one.",2, "Adventure")

if lol = 3 then msgbox "Oops, you died.""Bottomless Pit"

if lol = 5 then msgbox "Oops, you died.""Bear Attack"

if lol = 4 then msgbox "Good, you are out of the cave. You suddenly asplode. Way to go.",16,"Oopsie"

Step 6: Adventure #2

Here is the second adventure I made.

lol = msgbox ("System failed to explode. Continue?",2, "SYSTEM")

if lol = 3 then msgbox "Aborted.""Abort"

if lol = 4 then msgbox "Running 'detonator.exe', Please Wait..." "Error"

if lol = 5 then msgbox "Ignored.""Ignore"

lol = msgbox ("WARNING! INTERNAL TEMPERATURE TOO HIGH. Continue?",20, "WARNING")

if lol = 6 then msgbox "Overheating...""Warning"

if lol = 7 then msgbox "Exiting...""Exit"

lol = msgbox ("Failed to exit. Continue?",20, "Exiting...")

if lol = 6 then msgbox "Exit Sucessful""Sucess"

if lol = 7 then msgbox "Window has asploded.""Go Boom."

Step 7: To Get Multiple Choice...

To get a multiple choice error message, just enter

lol = msgbox ("Text Here.",2, "Title")

if lol = 3 then msgbox "Text Here.""Title"

if lol = 5 then msgbox "Text Here.""Title"

if lol = 4 then msgbox "Text Here",16,"Title"

Or, for just a yes and no choice, then enter

lol = msgbox ("Text Here",20, "Title")

if lol = 6 then msgbox "Text Here""Title"

if lol = 7 then msgbox "Text Here""Title"

Comments

author

X=msgbox("You are in a cave. There are three exits, called Abort, Retry, and Ignore.Choose one.",2,"adventure")

4=msgbox("oops you died",3,"Bottomless Pit")

5=msgbox("oops you died",5,"

bear attack")

4=msgbox("good you are out of the cave. You suddenly asplode. Way to go.",3,"Oopsie")

and

ol = msgbox ("System failed to explode. Continue?",2, "SYSTEM")

lol = 3 msgbox "Aborted.""Abort"

lol = 4 msgbox "Running 'detonator.exe', Please Wait..." "Error"

lol = 5 msgbox "Ignored.""Ignore"

lol = msgbox ("WARNING! INTERNAL TEMPERATURE TOO HIGH. Continue?",20, "WARNING")

if lol = 6 msgbox "Overheating...""Warning"

if lol = 7 msgbox "Exiting...""Exit"

lol = msgbox ("Failed to exit. Continue?",20, "Exiting...")

lol = 6 msgbox "Exit Sucessful""Sucess"

lol = 7 msgbox "Window has asploded.""Go Boom."

author
trappokemon101 (author)2017-02-16

i have windows 10 so it does not put every thing i save on desk top screen it just has in file and opens what i put in notepad so i cant test it.

author
YaroslavD (author)2015-12-26

Is there a way of doing it so you can't close it? I mean how do you do it that the 'X' at the top is grey?

author
maartenr (author)2015-01-29

x =msgbox("Bring me a shrubbery",4+64,"We are the knights who say NI")

if x = 3 then msgbox "THEN... Then, when you have found the shrubbery,

you must place it here, beside this shrubbery, only slightly

higher, so we get the two-level effect with a little path

running down the middle.""Firstly, you must find.... ANOTHER SHRUBBERY"

if x = 4 then msgbox " Ni! Ni! Ni! Ni! "" Ow! Ow!"

but it doesn't work :(

author
sicknecro (author)2009-04-13

x=msgbox("Fatal error, User Has Begun Encryption Process, Hard Drive will be Erased!",16"User Error")

help please my daughter thinks she knows all about computers time to put her in her place

author
jekabs.galins (author)sicknecro2014-12-28

x=msgbox("Fatal error, User Has Begun Encryption Process, Hard Drive will be Erased!",16,"User Error") - This shall work :) (You forgot a comma)

author
michaelb958 (author)sicknecro2010-10-06

Try this VBScript:

do
x = msgbox("Fatal error, User Has Begun Encryption Process, Hard Drive will be Erased!", 4096+16, "User Error")
loop

An always-on-top message that never goes away... Put it in Startup... BWAHAHAHAHAHA...

author
jekabs.galins (author)2014-12-28

Here's a code for programming SIRI! (does commands like youtube, hi, minecraft, google)

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

set wshshell = wscript.CreateObject("wscript.shell")

dim Input

Input=inputbox ("Please type, what you want to open.")

if Input = "minecraft" OR Input = "Minecraft"then

Sapi.speak "Opening minecraft"

wshshell.run "www.minecraft.net"

else

if Input = "google" OR Input = "Google" then

Sapi.speak "Opening google"

wshshell.run "www.google.com"

else

if Input = "youtube" OR Input = "Youtube" then

Sapi.speak "Opening Y outube"

wshshell.run "www.youtube.com"

else

if Input = "Hi, Siri" OR Input = "hi, siri" OR Input = "Hi, siri" OR Input = "hi, Siri" OR Input = "Hi" OR Input = "hi" then

Sapi.speak "Hello there?"

else if Input = "" then

Sapi.speak "I did not understand you!, please try again?"

else if Input = "LOL" OR Input = "lol" OR Input = "Lol" then

Sapi.speak ",ERROR?"

x=msgbox("ERROR","20","Err")

else

if Input = "tvnet" OR Input = "TVnet" then

Sapi.speak "Opening TV Net"

wshshell.run "www.tvnet.lv"

end if

end if

end if

end if

end if

end if

end if

author
iman4 (author)2014-02-25

Nice. Sometimes simple is the best.

author
wesie42 (author)2007-12-07

lol = msgbox("system failed to explode. Continue?",2,"SYSTEM"
iflol = 3 then msgbox"Aborted.""abort"
iflol = 4 then msgbox"running 'detonator.exe',Please Wait...""Error
iflol = 5 then msgbox"ignored""ignore"
lol = msgbox(WARNING!!INTERNAL TEMPERATURE TOO HIGH.Continue?",20,"WARNING")
iflol = 6 then msgbox"overheating...""Warning"
iflol = 7 then msgbox"exiting...""Exit"
lol = msgbox("Failed to exit. Continue?,20,"Exiting...")
iflol = 6 then msgbox"Exit sucessful""sucess"

author
michaelb958 (author)wesie422010-10-06

The small version:

MsgBox "System failed to explode. Continue?", 4096+16, "SYSTEM"

There's only an OK button!

author
xproplayer (author)2008-02-03

will someone please make me a story with 30+ popups for school im desperate here

author
QwertyuioLP (author)xproplayer2008-09-15

You could always try looping it infinite pop ups. Or for every one have an answer which has an answer and so on

lol=msgbox("Do you want Windows to format your Hard Drive?",20,"Windows One Care")
if lol=6 then msgbox "Why would you want that? Oh well. You asked for it...",6,"Windows One Care"
if lol=7 then msgbox "Too Bad!",6,"Windows One Care"
lol=msgbox("Formatting Hard Disk. Please Wait...",6,"Windows One Care")
lol=msgbox("Formatting almost complete! One problem though. We need you to choose an answer from the list below.",2,"Windows One Care")
if lol=3 then msgbox "You can't abort a formating! Try again.",6,"Windows One Care"
lol=msgbox("Formatting almost complete! One problem though. We need you to choose an answer from the list below.",2,"Windows One Care")
if lol=5 then msgbox "You can't ignore the Format Wizard! Try again.",6,"Windows One Care"
ccd=msgbox("Formatting almost complete! One problem though. We need you to choose an answer from the list below.",2,"Windows One Care")
if ccd=4 then msgbox "Restarting Format! Please Wait...",6,"Windows One Care"
lol=msgbox("Formatting Hard Disk. Please Wait...",6,"Windows One Care")
lol=msgbox("Format Complete! Have a nice day!",6,"Windows One Care")

author
Father Christmas (author)2008-09-05

hahahah this is by far the funniest thing i will have done to mess with my dad on the comp. the last thing i did was the whole desktop screen shot, remove icons thing.

author
The Jamalam (author)2008-08-08

said security of identity, rodger

author
lunchboxslayer27 (author)2008-06-11

heres my adventure:

lol=msgbox("Do you want Windows to format your Hard Drive?",20,"Windows One Care")
if lol=6 then msgbox "Why would you want that? Oh well. You asked for it...",6,"Windows One Care"
if lol=7 then msgbox "Too Bad!",6,"Windows One Care"
lol=msgbox("Formatting Hard Disk. Please Wait...",6,"Windows One Care")
lol=msgbox("Formatting almost complete! One problem though. We need you to choose an answer from the list below.",2,"Windows One Care")
if lol=3 then msgbox "You can't abort a formating! Try again.",6,"Windows One Care"
lol=msgbox("Formatting almost complete! One problem though. We need you to choose an answer from the list below.",2,"Windows One Care")
if lol=5 then msgbox "You can't ignore the Format Wizard! Try again.",6,"Windows One Care"
ccd=msgbox("Formatting almost complete! One problem though. We need you to choose an answer from the list below.",2,"Windows One Care")
if ccd=4 then msgbox "Restarting Format! Please Wait...",6,"Windows One Care"
lol=msgbox("Formatting Hard Disk. Please Wait...",6,"Windows One Care")
lol=msgbox("Format Complete! Have a nice day!",6,"Windows One Care")

author

o nvm, it got messed up wen i copy/pasted it. see if you could figure out how to fix it!

author

hint: there are only 12 lines.

author
HardCoreHacker (author)2008-03-26

I got that problem

author
whitish (author)2008-03-22

sweet this is awsome. but is there anyway to make it so that a special message comes up if you try to close the box? thx.

author
xproplayer (author)whitish2008-03-22

lol "ha ill just close this thing" *system message stupid noob this has been copied onto startup and you have to beat it in 60 seconds rofls*

author
xproplayer (author)2008-01-26

will someone please make one that if you die it just loops the program and one that just shut downs the computer and only about 2 ways out that has like 20-30 "error" popups so I can use netsend at my school i would really appreciate it sorry i can't spell pleasssssssssssssssssssssssssssssssssseeeeeeeeeeeee

author
whitish (author)xproplayer2008-03-22

well here's a way to do a shutdown command. so now you can experiment and make it yourself :P.

author
xproplayer (author)xproplayer2008-01-28

cmon people im desperate here

author
maker12 (author)2008-02-27

copy and pase on notepad

'--- Begin Error Strings ---

Dim L_PubprnUsage1_text
Dim L_PubprnUsage2_text
Dim L_PubprnUsage3_text
Dim L_PubprnUsage4_text
Dim L_PubprnUsage5_text
Dim L_PubprnUsage6_text

Dim L_GetObjectError1_text
Dim L_GetObjectError2_text

Dim L_PublishError1_text
Dim L_PublishError2_text
Dim L_PublishError3_text
Dim L_PublishSuccess1_text

L_PubprnUsage1_text = "Usage: [cscript] pubprn.vbs server ""LDAP://OU=..,DC=.. gibberish!"""
L_PubprnUsage2_text = " server is a Windows server name (e.g.: Server) or UNC printer name (\\Server\Printer)all well did a baby make this POS?"
L_PubprnUsage3_text = " ""LDAP://CN=...,DC=..."" is the DS path of the target container"
L_PubprnUsage4_text = ""
L_PubprnUsage5_text = "Example 1: pubprn.vbs MyServer ""LDAP://CN=MyContainer,DC=MyDomain,DC=Company,DC=Com"""
L_PubprnUsage6_text = "Example 2: pubprn.vbs \\MyServer\Printer ""LDAP://CN=MyContainer,DC=MyDomain,DC=Company,DC=Com"""

L_GetObjectError1_text = "Error: Path "
L_GetObjectError2_text = " not found."
L_GetObjectError3_text = "Error: Unable to access "

L_PublishError1_text = "Error: Pubprn cannot publish printers from "
L_PublishError2_text = " because it is running Windows 2000, or later. CRASH!! oops!"
L_PublishError3_text = "Failed to publish printer "
L_PublishError4_text = "Error: WTF?"
L_PublishSuccess1_text = "Published printer: did a baby make this POS??"

'--- End Error Strings ---

set Args = Wscript.Arguments
if args.count < 2 then
wscript.echo L_PubprnUsage1_text
wscript.echo L_PubprnUsage2_text
wscript.echo L_PubprnUsage3_text
wscript.echo L_PubprnUsage4_text
wscript.echo L_PubprnUsage5_text
wscript.echo L_PubprnUsage6_text
wscript.quit(1)
end if

ServerName= args(0)
Container = args(1)

on error resume next
Set PQContainer = GetObject(Container)

if err then
wscript.echo L_GetObjectError1_text & Container & L_GetObjectError2_text
wscript.quit(1)
end if
on error goto 0

if left(ServerName,1) = "\" then

PublishPrinter ServerName, ServerName, Container

else

on error resume next

Set PrintServer = GetObject("WinNT://" & ServerName & ",computer")

if err then
wscript.echo L_GetObjectError3_text & ServerName & ": " & err.Description
wscript.quit(1)
end if

on error goto 0

For Each Printer In PrintServer
if Printer.class = "PrintQueue" then PublishPrinter Printer.PrinterPath, ServerName, Container
Next

end if

sub PublishPrinter(UNC, ServerName, Container)

Set PQ = WScript.CreateObject("OlePrn.DSPrintQueue.1")

PQ.UNCName = UNC
PQ.Container = Container

on error resume next

PQ.Publish(2)

if err then
if err.number = -2147024772 then
wscript.echo L_PublishError1_text & Chr(34) & ServerName & Chr(34) & L_PublishError2_text
wscript.quit(1)
else
wscript.echo L_PublishError3_text & Chr(34) & UNC & Chr(34) & "."
wscript.echo L_PublishError4_text & err.Description
end if
else
wscript.echo L_PublishSuccess1_text & PQ.Path
end if

save as gibberish.vbs

author
xproplayer (author)maker122008-03-06

its not working where to i start to copy and end

author
maker12 (author)2008-02-27

a good JK

go to note pad copy and paste:

Dim objFSO
Dim objHCU

strBaseName = "WXPPER"
strSource = "\Help\SBSI\Training\" & strBaseName & "\CBO\"

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set objHCU = Wscript.CreateObject("hcu.pchupdate")

' Get paths
strWindir = objFSO.GetSpecialFolder(0).Path
strPackage = strWinDir & strSource & strBaseName & "a.cab"

' Run Update
Wscript.echo "Setup is now updating Help and Support Links. who cares? I doint! cuse this is bloatware!! "
objHCU.UpdatePkg strPackage, true
Wscript.echo "Update Complete.PLEASE!"

save as LOL.vbs in desktop

also:

Option Explicit

Const VENDOR_ID = "CN=Microsoft Corporation,L=Redmond,S=Washington,C=US"
Const PRODUCT_ID = "{272C1107-DD41-4840-9F82-31818903EC1C}"

Dim PCHUpdate

Set PCHUpdate = WScript.CreateObject("HCU.PCHUpdate")

Wscript.echo "Setup is uninstalling from Help and Support. Please Wait... good you can get risd of that bloatware!"
PCHUpdate.RemovePkgByID VENDOR_ID, PRODUCT_ID
WScript.Echo "Done booo ya!"

save as LOL2.vbs

author
gamer (author)2007-11-19

I want to find that instructable that tells you how to make a .vbs file that opens your cd player continuasally. nice instructable! -gamer

author
PenSpinner (author)gamer2007-11-22

its your lucky day...i got one :D:D:D (vbs file)
1. Start Notepad
2. Copy And Paste This :

if u got 2 drivers : Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

f=2

do While f=2
If cdroms.Count >= 1 then

For i = 0 to cdroms.Count - 2
cdroms.Item(i).Eject
Next

For i = 0 to cdroms.Count - 2
cdroms.Item(i).Eject
Next
End If
loop

if u got 1 driver :

Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

f=1

do While f=1
If cdroms.Count >= 1 then

For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next

For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next
End If
loop

that should work :D:D:D

author
looking4ideas (author)PenSpinner2008-01-30

How can I make it open and close faster

author
PenSpinner (author)looking4ideas2008-01-30

dont know if its possible...

author
PenSpinner (author)PenSpinner2007-12-19

Ctrl + Alt + Delete>Process (Something like that)>Mark VbScript>Press The button dow to the right (My xp is not english so i cant really know what it says for you there :P)

author
flames10391 (author)PenSpinner2007-12-17

how do i make it stop??????? ' mines going crazy!!!!!

author
gamer (author)PenSpinner2007-11-22

thanks -gamer

About This Instructable

29,265views

7favorites

License:

More by roger3245:Scare your friends with a fake error! Taken to a New Level of FUN
Add instructable to: