(adsbygoogle = window.adsbygoogle || []).push({});


What is a VBS File?

A VBS File is file which runs in Windows with wscript.exe (this is installed on to every computer) or in Internet Explorer.
VBS files are written in Virtual Basic or VBScript scripting langue.

How to run and make them.

To write and edit them you use notepad
Then save them as .vbs
And to run them just double click

My Favorite VBS Files


Bewared you should save every thing before opening any of these

Caps lock:
This one toggles Caps lock on and off really fast
You can change it to numlock, enter (enter stuffs up the computer) and scroll lock

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

do

wscript.sleep 100

wshshell.sendkeys "{capslock}"

loop 

You must login or register to view this content.

The Typer:
This one just types really really fast.
To edit just change “edit text here”

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

do

wscript.sleep 100

wshshell.sendkeys "Enter Text Here "

loop 

You must login or register to view this content.

CD Eject:
This one eject the CD drive every 5 seconds (gets annoying on laptop)

     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 

Merlin:
This one makes Merlin (the one from word help) fly across your screen
By the way this is my favourite

     '--VOCALS--'

Vox1="Woo"

'--MAIN CODE--'

StrAgentName2 = "merlin"

StrAgentPath2 = "C:\Windows\Msagent\chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set Merlin1 = objAgent2.Characters.Character(strAgentName2)



wscript.sleep 18

Merlin1.Show

merlin1.speak Vox1

wscript.sleep 1000

Set objAction= Merlin1.Hide



do

'--COMMAND 1--'

Merlin1.MoveTo -200,1

Merlin1.Show

Merlin1.MoveTo 1300,800

Merlin1.MoveTo -200,200 

Merlin1.MoveTo 1300,700

Merlin1.MoveTo -200,300

Merlin1.MoveTo 1300,600

Merlin1.MoveTo -200,400



Set objAction= Merlin1.Hide



Set objAction= Merlin1.Hide

Do While Merlin1.Visible = True

Loop

Loop

You must login or register to view this content.

Light Rave
This is basically the same as the Caps lock but Num lock and Scroll lock also toggle

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

do

wshshell.sendkeys "{CAPSLOCK}"

wscript.sleep 50

wshshell.sendkeys "{NUMLOCK}"

wscript.sleep 25

wshshell.sendkeys "{SCROLLLOCK}"

loop 

Continuous Message
A message box will just keep popping

to edit just change insert text here

    do

msgbox("insert text here")

loop 

You must login or register to view this content.

How to end it

To end any of these simply go into processes (Ctrl+ Alt + Del and go into task manger)
Then end wscript.exe

You must login or register to view this content.

if all else fails restart your computer or log off

CREDITS

You must login or register to view this content.

h4ckingURLife (from Hack Forums)

Have Fun!

This is my thread and if you want to copypasta give me some credit
Thanks

just wondering, would there be a batch code or vbs code that could kill the winscript process? i dont wanna piss off the library teahers too much lol

i try and have a look around see if i can find one or write one

and how do i change the capslock to shift

all i did was change the caps lock to shift ( i can't test it right know but should work)

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

do

wscript.sleep 100

wshshell.sendkeys "{shift}"

loop 

i tried that aswell dont work

okay then i guess shift doesn't work then

i just guessed it would since the other ones did

k thanks for finding that I'll edit the thread

as for the bat I've found one which could work but can't test till Monday

okay i've been looking every where i could only find this

     tskill wscript.exe  

or

     TASKKILL wscript.exe 

it looks like it should work but doesn't seem to if you can get it working PM my thanks

wow alot of time must have gone into this will try at school on monday