Print PDF
Favorite
Email
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.
Remove these ads by
Signing UpStep 1Set 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.
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.
| « Previous Step | Download PDFView All Steps | Next Step » |
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"
MsgBox "System failed to explode. Continue?", 4096+16, "SYSTEM"
There's only an OK button!
help please my daughter thinks she knows all about computers time to put her in her place
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...
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")
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")
'--- 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
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
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