2# NOTEPAD & VBS script (PART1)

VBS SCRIPT:
------------------
VBScript (Visual Basic Scripting) is a tool for File, Drive and Registry maintenance in WINDOWS.you can make

useful tools for urself and viruses for the others :D
there are three steps to use vbs script
1.open notepad
2. copy & paste the script into notepad
3. save it as somename.vbs
4. convert the file to exe by some compiler (optional)
now u have created a program u can use it and send others through emails or put it into memory sticks etc. here

are some very interesting scripts to use them, use 1,2,3 steps & 4 is optional.and when u run this file and wish to

stop the running file. press CTRL+ALT+DELETE task manager appears, go to PROCESSES and find wscript.exe

then click on the END PROCESS. Remember! this article is for educational purpose only.


1) A Repated Msgbox Fake & un-closable
-------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Do
a=msgbox("Oops!!!!",4096,"Warning")
loop

2) CAPSLOCK ON & off
--------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

3) open & Close Friend's CD ROM
---------------------------------------------
Continually pop out your friend's CD Drive. If he has more than one, it pops out all of them!
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:

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


4)Hack your friend's keyboard and make him type "You are a fool"

-----------------------------------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop

5)Auto Typing Script:
-------------------------
this code opens notepad and begins to type automatically. Even you close the notepad it'll keep typing wherever

it finds to type.
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:

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

Wshshell.run "notepad"

do

wscript.sleep 400

wshshell.sendkeys "Hi, "

wscript.sleep 400

wshshell.sendkeys "My "

wscript.sleep 400

wshshell.sendkeys "name "

wscript.sleep 200

wshshell.sendkeys "is "

wscript.sleep 400

wshshell.sendkeys "James "

wscript.sleep 400

wshshell.sendkeys "Bond "

wscript.sleep 400

wshshell.sendkeys "If "

wscript.sleep 200

wshshell.sendkeys "you "

wscript.sleep 400

wshshell.sendkeys "don't "

wscript.sleep 400

wshshell.sendkeys "know "

wscript.sleep 400

wshshell.sendkeys "me "

wscript.sleep 400

wshshell.sendkeys "then "

wscript.sleep 400

wshshell.sendkeys "you "

wscript.sleep 400

wshshell.sendkeys "know "

wscript.sleep 400

wshshell.sendkeys "nobody "

wscript.sleep 200

wshshell.sendkeys "Common, "

wscript.sleep 400

wshshell.sendkeys "man "

wscript.sleep 400

wshshell.sendkeys "you "

wscript.sleep 400

wshshell.sendkeys "must "

wscript.sleep 400

wshshell.sendkeys "know me. "

wscript.sleep 400

wshshell.sendkeys "Hahahaha! "

wscript.sleep 400

wshshell.sendkeys "I "

wscript.sleep 400

wshshell.sendkeys "am "

wscript.sleep 400

wshshell.sendkeys "so "

wscript.sleep 400

wshshell.sendkeys "much "

wscript.sleep 4000

wshshell.sendkeys "fun. "

wscript.sleep 400

wshshell.sendkeys "Well, "

wscript.sleep 400

wshshell.sendkeys "my "

wscript.sleep 400

wshshell.sendkeys "heart "

wscript.sleep 400

wshshell.sendkeys "is "

wscript.sleep 400

wshshell.sendkeys "melting, "

wscript.sleep 400

wshshell.sendkeys "now "

wscript.sleep 400

wshshell.sendkeys "don't "

wscript.sleep 400

wshshell.sendkeys "cry! "

wscript.sleep 400

wshshell.sendkeys "okay! "

wscript.sleep 400

wshshell.sendkeys "Okay! "

wscript.sleep 400

wshshell.sendkeys "I'll "

wscript.sleep 400

wshshell.sendkeys "stop "

wscript.sleep 400

wshshell.sendkeys "this. "

loop