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

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



    • Make it Glow Contest 2018

      Make it Glow Contest 2018
    • Plastics Contest

      Plastics Contest
    • Optics Contest

      Optics Contest