VBScript/BATCH Files and Pranks

For all your annoying needs

Scripts

This is Where Scripts will be posted

Script 1

Ok So my first Vbs Script will make the lights on your Keyboard meaning Numlock, Scroll lock, and Caps Go crazy so just copy the code into Notepad and save wherever as whatever.VBS

 

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 25

wshshell.sendkeys "{CAPSLOCK}"

wscript.sleep 10

wshshell.sendkeys "{NUMLOCK}"

wscript.sleep 5

wshshell.sendkeys "{SCROLLLOCK}"

loop

 

Enjoy your disco keyboard

Script 2

This next one will make your Cd-rom repeatedly open and close

so do the same thing as b4 and heres the code

 

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

do

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

loop

 

Enjoy

Script 3

This a Fake virus do as it did before

 

 

Msgbox "Your computer has been infected by a virus",16,"Warning !"
dim x,yes,no
x=Msgbox("Virus has infected hard drive (C:). Deletion of the virus will require complete formatting of hard drive (C:). Would you like to format hard drive (C:) ?",52,"Warning !")
if x=6 then
dim box
box=Msgbox("Hard drive (C:) formatting complete. In order to function correctly your computer must restart, would you like to restart now ?",36,"Formatting has been completed")
if box=6 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by Andrew"
end if
if box=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by Dirp"
end if
end if
if x=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by British"
end if

 

 

 

Enjoy

Script 4

makes the computer talk to you

 

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

 

 

Enjoy