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

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

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

nothing more to it really

@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

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