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"
35 Comments
7 years ago
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?
Reply 4 years ago
X=Msgbox("message",0+4096,"title")
6 years ago
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."
6 years ago
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.
8 years ago on Introduction
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 :(
14 years ago on Step 4
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
Reply 8 years ago on Introduction
x=msgbox("Fatal error, User Has Begun Encryption Process, Hard Drive will be Erased!",16,"User Error") - This shall work :) (You forgot a comma)
Reply 12 years ago on Introduction
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...
8 years ago on Introduction
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
9 years ago on Step 7
Nice. Sometimes simple is the best.
15 years ago on Step 4
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"
Reply 12 years ago on Introduction
The small version:
MsgBox "System failed to explode. Continue?", 4096+16, "SYSTEM"
There's only an OK button!
15 years ago on Introduction
will someone please make me a story with 30+ popups for school im desperate here
Reply 14 years ago on Introduction
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")
14 years ago on Introduction
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.
14 years ago on Step 3
said security of identity, rodger
14 years ago on Introduction
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")
Reply 14 years ago on Introduction
o nvm, it got messed up wen i copy/pasted it. see if you could figure out how to fix it!
Reply 14 years ago on Introduction
hint: there are only 12 lines.
15 years ago on Introduction
I got that problem