Today i tried to bring out some of the Vb script(.vbs) coding by which we can able to play pranks with our friends..
This Vb script coding are not harmful in any sense.But use them carefully.. 🙂

http://techwarlock.blogspot.com/

1)Continually pop out your friend’s CD Drive.

Description: This VBs coding is used to eject and insert cd drive of your friend’s computer.
To use This Vb Script Just copy the vbs code given below on a notepad file and save it as myscript.vbs
To stop this Vb script..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

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

2) Toggle your friend’s Caps Lock button simultaneously:

Description: This small VBs coding is used to Toggle Caps Lock Button Simultaneously.
To use This Vb Script Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this Vb script..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

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


3) Frustrate your friend by hitting Enter simultaneously:

Description: This small VBs coding is used to press Enter Key Simultaneously.
To use This Vb Script Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this Vb script..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop


4) Open Notepad, slowly type “Hello, how are you? I am good thanks” and freak your friend out:

Description: This VBs coding will open a notepad window and Type a message just like your computer is typing it automatically.
You can also modify message by changing the text under WshShell.SendKeys function.
To use This Vb Script Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this Vb script..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo “
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re “
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? “
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “

5) Frustrate your friend by making this Vb Script hit Backspace simultaneously:

Description: This VBs coding will press a backspace key simultaneously.
You can also modify message by changing the text under WshShell.SendKeys function.
To use This VBScript Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this VBscript..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

6) Convey a Message Like “You are a fool” on your friends computer simultaneously:

Description: This VBs is a simpler version of VBScript that Type “Hello, how are you? I am good thanks”.
Instead of that It will pop up a window on your friends computer and convey a message Like “You are a fool”
You can also modify message by changing the text under WshShell.SendKeys function.
To use This VBScript Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this VBscript..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

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

7)create your own text to speech convertor

Description: This VBs will create a text to speech convertor shell.
with the help of this VBscript you can convert your words to speech.
To use This VBScript Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this VBscript..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

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

8)Play Windows Startup tone then convey a message..

Description: This VBs will First play your Windows startup tone then Convey a message on screen.
you can any message by changing “your message here” field.
To use This VBScript Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this VBscript..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

Set objVoice = CreateObject(“SAPI.SpVoice”)
Set objFile = CreateObject(“SAPI.SpFileStream.1”)

objFile.Open “Windows XP Startup.wav”
objVoice.Speakstream objFile
Wscript.Echo “your message here”

9)Make Your Computer Speech Any Message

Description: This VBs will Make your computer speech by using microsoft assistant voice.
You can change the Speech message by changing “your message here” field.
To use This VBScript Just copy the vbs code given below on notepad file and save it as myscript.vbs
To stop this VBscript..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process “Wscript.exe”

On Error Resume Next

strAgentName2 = “MERLIN”
strAgentPath2 = “C:WindowsMsagentChars” & strAgentName2 & “.acs”
Set objAgent2 = CreateObject(“Agent.Control.2”)

objAgent2.Connected = TRUE
objAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)

objPeter.MoveTo 700,300
objPeter.Show

objPeter.Play “GetAttention”
objPeter.Play “GetAttentionReturn”

objPeter.Speak(“your message here”)

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True
Wscript.Sleep 250
Loop

10)Check your Computer is Male Or Female

This Is really a cool Vb Script prank to check your computer’s gender.
To use this Vb Script copy the below code on notepad and save it as myscript.vbs

CreateObject(“SAPI.SpVoice”).Speak “i love you”

7 COMMENTS

  1. Hello! I could have sworn I've been to this website before but after reading through some of the post I
    realized it's new to me. Anyways, I'm definitely glad I found it and
    I'll be book-marking and checking back often!

    Here is my web page: Dr Dre Beats USA

  2. Please let me know if you're looking for a author for your blog.
    You have some really good posts and I feel I would be a good asset.
    If you ever want to take some of the load off, I'd really like to write some articles
    for your blog in exchange for a link back to mine.
    Please send me an email if interested. Kudos!

    Look into my website: Christian Louboutin Outlet

  3. Excellent site. A lot of helpful information here. I'm sending it to a few buddies
    ans additionally sharing in delicious. And obviously, thanks on your effort!

    Here is my web page Beats Headphones

LEAVE A REPLY

Please enter your comment!
Please enter your name here