loading
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"
<p>X=msgbox(&quot;You are in a cave. There are three exits, called Abort, Retry, and Ignore.Choose one.&quot;,2,&quot;adventure&quot;)</p><p>4=msgbox(&quot;oops you died&quot;,3,&quot;Bottomless Pit&quot;)</p><p>5=msgbox(&quot;oops you died&quot;,5,&quot;</p><p>bear attack&quot;)</p><p>4=msgbox(&quot;good you are out of the cave. You suddenly asplode. Way to go.&quot;,3,&quot;Oopsie&quot;)</p><p>and</p><p>ol = msgbox (&quot;System failed to explode. Continue?&quot;,2, &quot;SYSTEM&quot;)</p><p>lol = 3 msgbox &quot;Aborted.&quot;&quot;Abort&quot;</p><p>lol = 4 msgbox &quot;Running 'detonator.exe', Please Wait...&quot; &quot;Error&quot;</p><p>lol = 5 msgbox &quot;Ignored.&quot;&quot;Ignore&quot;</p><p>lol = msgbox (&quot;WARNING! INTERNAL TEMPERATURE TOO HIGH. Continue?&quot;,20, &quot;WARNING&quot;) </p><p>if lol = 6 msgbox &quot;Overheating...&quot;&quot;Warning&quot;</p><p>if lol = 7 msgbox &quot;Exiting...&quot;&quot;Exit&quot;</p><p>lol = msgbox (&quot;Failed to exit. Continue?&quot;,20, &quot;Exiting...&quot;) </p><p>lol = 6 msgbox &quot;Exit Sucessful&quot;&quot;Sucess&quot;</p><p>lol = 7 msgbox &quot;Window has asploded.&quot;&quot;Go Boom.&quot;</p>
<p>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.</p>
<p>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?</p>
<p>x =msgbox(&quot;Bring me a shrubbery&quot;,4+64,&quot;We are the knights who say NI&quot;)</p><p>if x = 3 then msgbox &quot;THEN... Then, when you have found the shrubbery, </p><p> you must place it here, beside this shrubbery, only slightly </p><p> higher, so we get the two-level effect with a little path </p><p> running down the middle.&quot;&quot;Firstly, you must find.... ANOTHER SHRUBBERY&quot;</p><p>if x = 4 then msgbox &quot; Ni! Ni! Ni! Ni! &quot;&quot; Ow! Ow!&quot;</p><p>but it doesn't work :(</p>
x=msgbox(&quot;Fatal error, User Has Begun Encryption Process, Hard Drive will be Erased!&quot;,16&quot;User Error&quot;)<br/><br/>help please my daughter thinks she knows all about computers time to put her in her place<br/>
<p>x=msgbox(&quot;Fatal error, User Has Begun Encryption Process, Hard Drive will be Erased!&quot;,16,&quot;User Error&quot;) - This shall work :) (You forgot a comma)</p>
Try this VBScript:<br><br>do<br>x = msgbox(&quot;Fatal error, User Has Begun Encryption Process, Hard Drive will be Erased!&quot;, 4096+16, &quot;User Error&quot;)<br>loop<br><br>An always-on-top message that never goes away... Put it in Startup... BWAHAHAHAHAHA...
<p>Here's a code for programming SIRI! (does commands like youtube, hi, minecraft, google)</p><p>Set Sapi = Wscript.CreateObject(&quot;SAPI.SpVoice&quot;)</p><p>set wshshell = wscript.CreateObject(&quot;wscript.shell&quot;)</p><p>dim Input</p><p>Input=inputbox (&quot;Please type, what you want to open.&quot;)</p><p>if Input = &quot;minecraft&quot; OR Input = &quot;Minecraft&quot;then</p><p>Sapi.speak &quot;Opening minecraft&quot;</p><p>wshshell.run &quot;www.minecraft.net&quot;</p><p>else</p><p>if Input = &quot;google&quot; OR Input = &quot;Google&quot; then</p><p>Sapi.speak &quot;Opening google&quot;</p><p>wshshell.run &quot;www.google.com&quot;</p><p>else</p><p>if Input = &quot;youtube&quot; OR Input = &quot;Youtube&quot; then</p><p>Sapi.speak &quot;Opening Y outube&quot;</p><p>wshshell.run &quot;www.youtube.com&quot;</p><p>else</p><p>if Input = &quot;Hi, Siri&quot; OR Input = &quot;hi, siri&quot; OR Input = &quot;Hi, siri&quot; OR Input = &quot;hi, Siri&quot; OR Input = &quot;Hi&quot; OR Input = &quot;hi&quot; then</p><p>Sapi.speak &quot;Hello there?&quot;</p><p>else if Input = &quot;&quot; then</p><p>Sapi.speak &quot;I did not understand you!, please try again?&quot;</p><p>else if Input = &quot;LOL&quot; OR Input = &quot;lol&quot; OR Input = &quot;Lol&quot; then</p><p>Sapi.speak &quot;,ERROR?&quot;</p><p>x=msgbox(&quot;ERROR&quot;,&quot;20&quot;,&quot;Err&quot;)</p><p>else</p><p>if Input = &quot;tvnet&quot; OR Input = &quot;TVnet&quot; then</p><p>Sapi.speak &quot;Opening TV Net&quot;</p><p>wshshell.run &quot;www.tvnet.lv&quot;</p><p>end if</p><p>end if</p><p>end if</p><p>end if</p><p>end if</p><p>end if</p><p>end if</p>
Nice. Sometimes simple is the best.
lol = msgbox(&quot;system failed to explode. Continue?&quot;,2,&quot;SYSTEM&quot;<br/>iflol = 3 then msgbox&quot;Aborted.&quot;&quot;abort&quot;<br/>iflol = 4 then msgbox&quot;running 'detonator.exe',Please Wait...&quot;&quot;Error<br/>iflol = 5 then msgbox&quot;ignored&quot;&quot;ignore&quot;<br/>lol = msgbox(WARNING!!INTERNAL TEMPERATURE TOO HIGH.Continue?&quot;,20,&quot;WARNING&quot;)<br/>iflol = 6 then msgbox&quot;overheating...&quot;&quot;Warning&quot;<br/>iflol = 7 then msgbox&quot;exiting...&quot;&quot;Exit&quot;<br/>lol = msgbox(&quot;Failed to exit. Continue?,20,&quot;Exiting...&quot;)<br/>iflol = 6 then msgbox&quot;Exit sucessful&quot;&quot;sucess&quot;<br/>
The small version:<br><br>MsgBox &quot;System failed to explode. Continue?&quot;, 4096+16, &quot;SYSTEM&quot;<br><br>There's only an OK button!
will someone please make me a story with 30+ popups for school im desperate here
You could always try looping it infinite pop ups. Or for every one have an answer which has an answer and so on<br/><br/>lol=msgbox(&quot;Do you want Windows to format your Hard Drive?&quot;,20,&quot;Windows One Care&quot;)<br/>if lol=6 then msgbox &quot;Why would you want that? Oh well. You asked for it...&quot;,6,&quot;Windows One Care&quot;<br/>if lol=7 then msgbox &quot;Too Bad!&quot;,6,&quot;Windows One Care&quot;<br/>lol=msgbox(&quot;Formatting Hard Disk. Please Wait...&quot;,6,&quot;Windows One Care&quot;)<br/>lol=msgbox(&quot;Formatting almost complete! One problem though. We need you to choose an answer from the list below.&quot;,2,&quot;Windows One Care&quot;)<br/>if lol=3 then msgbox &quot;You can't abort a formating! Try again.&quot;,6,&quot;Windows One Care&quot;<br/>lol=msgbox(&quot;Formatting almost complete! One problem though. We need you to choose an answer from the list below.&quot;,2,&quot;Windows One Care&quot;)<br/>if lol=5 then msgbox &quot;You can't ignore the Format Wizard! Try again.&quot;,6,&quot;Windows One Care&quot;<br/>ccd=msgbox(&quot;Formatting almost complete! One problem though. We need you to choose an answer from the list below.&quot;,2,&quot;Windows One Care&quot;)<br/>if ccd=4 then msgbox &quot;Restarting Format! Please Wait...&quot;,6,&quot;Windows One Care&quot;<br/>lol=msgbox(&quot;Formatting Hard Disk. Please Wait...&quot;,6,&quot;Windows One Care&quot;)<br/>lol=msgbox(&quot;Format Complete! Have a nice day!&quot;,6,&quot;Windows One Care&quot;)<br/>
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.
said security of identity, rodger
heres my adventure:<br/><br/>lol=msgbox(&quot;Do you want Windows to format your Hard Drive?&quot;,20,&quot;Windows One Care&quot;)<br/>if lol=6 then msgbox &quot;Why would you want that? Oh well. You asked for it...&quot;,6,&quot;Windows One Care&quot;<br/>if lol=7 then msgbox &quot;Too Bad!&quot;,6,&quot;Windows One Care&quot;<br/>lol=msgbox(&quot;Formatting Hard Disk. Please Wait...&quot;,6,&quot;Windows One Care&quot;)<br/>lol=msgbox(&quot;Formatting almost complete! One problem though. We need you to choose an answer from the list below.&quot;,2,&quot;Windows One Care&quot;)<br/>if lol=3 then msgbox &quot;You can't abort a formating! Try again.&quot;,6,&quot;Windows One Care&quot;<br/>lol=msgbox(&quot;Formatting almost complete! One problem though. We need you to choose an answer from the list below.&quot;,2,&quot;Windows One Care&quot;)<br/>if lol=5 then msgbox &quot;You can't ignore the Format Wizard! Try again.&quot;,6,&quot;Windows One Care&quot;<br/>ccd=msgbox(&quot;Formatting almost complete! One problem though. We need you to choose an answer from the list below.&quot;,2,&quot;Windows One Care&quot;)<br/>if ccd=4 then msgbox &quot;Restarting Format! Please Wait...&quot;,6,&quot;Windows One Care&quot;<br/>lol=msgbox(&quot;Formatting Hard Disk. Please Wait...&quot;,6,&quot;Windows One Care&quot;)<br/>lol=msgbox(&quot;Format Complete! Have a nice day!&quot;,6,&quot;Windows One Care&quot;)<br/>
o nvm, it got messed up wen i copy/pasted it. see if you could figure out how to fix it!
hint: there are only 12 lines.
I got that problem
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.
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*
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
well <a rel="nofollow" href="https://www.instructables.com/id/SHUTDOWN-SHORTCUT/">here's</a> a way to do a shutdown command. so now you can experiment and make it yourself :P.<br/>
cmon people im desperate here
copy and pase on notepad<br/><br/>'--- Begin Error Strings ---<br/><br/>Dim L_PubprnUsage1_text<br/>Dim L_PubprnUsage2_text<br/>Dim L_PubprnUsage3_text <br/>Dim L_PubprnUsage4_text <br/>Dim L_PubprnUsage5_text <br/>Dim L_PubprnUsage6_text <br/><br/>Dim L_GetObjectError1_text<br/>Dim L_GetObjectError2_text<br/><br/>Dim L_PublishError1_text<br/>Dim L_PublishError2_text <br/>Dim L_PublishError3_text<br/>Dim L_PublishSuccess1_text<br/><br/>L_PubprnUsage1_text = &quot;Usage: [cscript] pubprn.vbs server &quot;&quot;LDAP://OU=..,DC=.. gibberish!&quot;&quot;&quot;<br/>L_PubprnUsage2_text = &quot; server is a Windows server name (e.g.: Server) or UNC printer name (\\Server\Printer)all well did a baby make this POS?&quot;<br/>L_PubprnUsage3_text = &quot; &quot;&quot;LDAP://CN=...,DC=...&quot;&quot; is the DS path of the target container&quot;<br/>L_PubprnUsage4_text = &quot;&quot;<br/>L_PubprnUsage5_text = &quot;Example 1: pubprn.vbs MyServer &quot;&quot;LDAP://CN=MyContainer,DC=MyDomain,DC=Company,DC=Com&quot;&quot;&quot;<br/>L_PubprnUsage6_text = &quot;Example 2: pubprn.vbs \\MyServer\Printer &quot;&quot;LDAP://CN=MyContainer,DC=MyDomain,DC=Company,DC=Com&quot;&quot;&quot;<br/><br/>L_GetObjectError1_text = &quot;Error: Path &quot;<br/>L_GetObjectError2_text = &quot; not found.&quot;<br/>L_GetObjectError3_text = &quot;Error: Unable to access &quot;<br/><br/>L_PublishError1_text = &quot;Error: Pubprn cannot publish printers from &quot;<br/>L_PublishError2_text = &quot; because it is running Windows 2000, or later. CRASH!! oops!&quot;<br/>L_PublishError3_text = &quot;Failed to publish printer &quot;<br/>L_PublishError4_text = &quot;Error: WTF?&quot;<br/>L_PublishSuccess1_text = &quot;Published printer: did a baby make this POS??&quot;<br/><br/>'--- End Error Strings ---<br/><br/>set Args = Wscript.Arguments<br/>if args.count &lt; 2 then<br/> wscript.echo L_PubprnUsage1_text<br/> wscript.echo L_PubprnUsage2_text<br/> wscript.echo L_PubprnUsage3_text<br/> wscript.echo L_PubprnUsage4_text<br/> wscript.echo L_PubprnUsage5_text<br/> wscript.echo L_PubprnUsage6_text<br/> wscript.quit(1)<br/>end if<br/><br/>ServerName= args(0)<br/>Container = args(1)<br/><br/>on error resume next<br/>Set PQContainer = GetObject(Container)<br/><br/>if err then<br/> wscript.echo L_GetObjectError1_text &amp; Container &amp; L_GetObjectError2_text<br/> wscript.quit(1)<br/>end if<br/>on error goto 0<br/><br/>if left(ServerName,1) = &quot;\&quot; then<br/><br/> PublishPrinter ServerName, ServerName, Container<br/><br/>else<br/><br/> on error resume next<br/><br/> Set PrintServer = GetObject(&quot;WinNT://&quot; &amp; ServerName &amp; &quot;,computer&quot;)<br/><br/> if err then<br/> wscript.echo L_GetObjectError3_text &amp; ServerName &amp; &quot;: &quot; &amp; err.Description<br/> wscript.quit(1)<br/> end if<br/><br/> on error goto 0<br/><br/> For Each Printer In PrintServer<br/> if Printer.class = &quot;PrintQueue&quot; then PublishPrinter Printer.PrinterPath, ServerName, Container<br/> Next<br/><br/>end if<br/><br/>sub PublishPrinter(UNC, ServerName, Container)<br/><br/> Set PQ = WScript.CreateObject(&quot;OlePrn.DSPrintQueue.1&quot;)<br/><br/> PQ.UNCName = UNC<br/> PQ.Container = Container<br/><br/> on error resume next<br/><br/> PQ.Publish(2)<br/><br/> if err then<br/> if err.number = -2147024772 then<br/> wscript.echo L_PublishError1_text &amp; Chr(34) &amp; ServerName &amp; Chr(34) &amp; L_PublishError2_text<br/> wscript.quit(1)<br/> else<br/> wscript.echo L_PublishError3_text &amp; Chr(34) &amp; UNC &amp; Chr(34) &amp; &quot;.&quot;<br/> wscript.echo L_PublishError4_text &amp; err.Description<br/> end if<br/> else<br/> wscript.echo L_PublishSuccess1_text &amp; PQ.Path<br/> end if<br/><br/>save as gibberish.vbs<br/>
its not working where to i start to copy and end
a good JK<br/><br/>go to note pad copy and paste:<br/><br/>Dim objFSO<br/>Dim objHCU<br/><br/>strBaseName = &quot;WXPPER&quot;<br/>strSource = &quot;\Help\SBSI\Training\&quot; &amp; strBaseName &amp; &quot;\CBO\&quot;<br/><br/>Set objFSO = Wscript.CreateObject(&quot;Scripting.FileSystemObject&quot;)<br/>Set objHCU = Wscript.CreateObject(&quot;hcu.pchupdate&quot;)<br/><br/>' Get paths<br/>strWindir = objFSO.GetSpecialFolder(0).Path<br/>strPackage = strWinDir &amp; strSource &amp; strBaseName &amp; &quot;a.cab&quot;<br/><br/>' Run Update<br/>Wscript.echo &quot;Setup is now updating Help and Support Links. who cares? I doint! cuse this is bloatware!! &quot;<br/>objHCU.UpdatePkg strPackage, true<br/>Wscript.echo &quot;Update Complete.PLEASE!&quot;<br/> <br/>save as LOL.vbs in desktop<br/><br/>also:<br/><br/>Option Explicit<br/><br/>Const VENDOR_ID = &quot;CN=Microsoft Corporation,L=Redmond,S=Washington,C=US&quot;<br/>Const PRODUCT_ID = &quot;{272C1107-DD41-4840-9F82-31818903EC1C}&quot;<br/><br/>Dim PCHUpdate<br/><br/>Set PCHUpdate = WScript.CreateObject(&quot;HCU.PCHUpdate&quot;)<br/><br/>Wscript.echo &quot;Setup is uninstalling from Help and Support. Please Wait... good you can get risd of that bloatware!&quot;<br/>PCHUpdate.RemovePkgByID VENDOR_ID, PRODUCT_ID<br/>WScript.Echo &quot;Done booo ya!&quot;<br/><br/>save as LOL2.vbs<br/><br/>
I want to find that instructable that tells you how to make a .vbs file that opens your cd player continuasally. nice instructable! -gamer
its your lucky day...i got one :D:D:D (vbs file)<br/>1. Start Notepad<br/>2. Copy And Paste This : <br/><br/>if u got 2 drivers : Set wmp = CreateObject(&quot;WMPlayer.OCX.7&quot;) <br/>Set cdroms = wmp.cdromCollection <br/><br/>f=2 <br/><br/>do While f=2 <br/>If cdroms.Count &gt;= 1 then <br/><br/>For i = 0 to cdroms.Count - 2 <br/>cdroms.Item(i).Eject <br/>Next <br/><br/>For i = 0 to cdroms.Count - 2 <br/>cdroms.Item(i).Eject <br/>Next <br/>End If <br/>loop <br/><br/>if u got 1 driver : <br/><br/>Set wmp = CreateObject(&quot;WMPlayer.OCX.7&quot;) <br/>Set cdroms = wmp.cdromCollection <br/><br/>f=1 <br/><br/>do While f=1 <br/>If cdroms.Count &gt;= 1 then <br/><br/>For i = 0 to cdroms.Count - 1 <br/>cdroms.Item(i).Eject <br/>Next <br/><br/>For i = 0 to cdroms.Count - 1 <br/>cdroms.Item(i).Eject <br/>Next <br/>End If <br/>loop <br/><br/>that should work :D:D:D<br/>
How can I make it open and close faster
dont know if its possible...
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)
how do i make it stop??????? ' mines going crazy!!!!!
thanks -gamer

About This Instructable

29,010views

7favorites

License:

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