Simple (and Somewhat Useful) Vbscripts

Introduction: Simple (and Somewhat Useful) Vbscripts

so you want to know about some simple vbscripts

you just have to enter these codes ti have yourselves a prank or a desktop "gadget"

but if you dont know how to make vbscripts i'l help you out notepad

2.paste the scripts

3. file/save as


5. there you have it :D

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: Fake Boxes

error box: X=MsgBox("message text here",0+16,"Title here")

ʌ this number here changes the "icon" of the error box

number 16 is a vanilla error

number 32 is a help icon

number 48 is a warning icon

number 64 is an info icon

Λ the other number is used to change the buttons

0-ok 1-ok and cancel 2 abort,retry and ignore

3-yes,no and cancel 4 yes and no

5 retry and cancel

Step 2: Simple Box With Text Input

variable=inputbox ("Message","Title","Default Text")

nothing more to it really

Step 3: Matrix Numbers

@echo off

color 2 < colors are changeable (01,02,03...)


echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%

goto start

put that code into a notepad and you got yourself an epic matrix code

Step 4: Disk Ejecter

msg=(" Click OK to eject your CD-ROM ")

msgbox(" ") + msg 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 For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000

there you have it

Be the First to Share


    • Trash to Treasure Contest

      Trash to Treasure Contest
    • Raspberry Pi Contest 2020

      Raspberry Pi Contest 2020
    • Wearables Contest

      Wearables Contest