Introduction: Simple (and Somewhat Useful) Vbscripts

Picture of 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

1.open notepad

2.paste the scripts

3. file/save as

4.NAME.vbs

5. there you have it :D

Step 1: Fake Boxes

Picture of 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

Picture of Simple Box With Text Input

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

nothing more to it really

Step 3: Matrix Numbers

Picture of Matrix Numbers

@echo off

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

:start

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

Comments