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

Intro: 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"

Share

    Recommendations

    • Metalworking Contest

      Metalworking Contest
    • Furniture Contest 2018

      Furniture Contest 2018
    • Tiny Home Contest

      Tiny Home Contest

    35 Discussions

    0
    None
    YaroslavD

    2 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?

    1 reply

    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."

    0
    None
    trappokemon101

    1 year 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.

    0
    None
    maartenr

    3 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 :(

    0
    None
    sicknecro

    9 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

    2 replies
    0
    None

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

    0
    None
    michaelb958sicknecro

    Reply 7 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...

    0
    None

    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

    0
    None
    iman4

    4 years ago on Step 7

    Nice. Sometimes simple is the best.

    0
    None
    wesie42

    10 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"

    1 reply
    0
    None
    michaelb958wesie42

    Reply 7 years ago on Introduction

    The small version:

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

    There's only an OK button!

    0
    None
    QwertyuioLPxproplayer

    Reply 10 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")

    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.

    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")

    2 replies