Top 10 Vbscript Codings To Play Prank With Friends



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:\Windows\Msagent\Chars\" & 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"


Please Don't Misuse these VB scripts..For more cool tips and tricks..stay tune with us..

{ 33 comments... read them below or add one }

Anonymous said...

Hi there! Someone in my Facebook group shared this website with us so I came to check it out.
I'm definitely loving the information. I'm bookmarking and will be tweeting this to my followers!

Exceptional blog and great style and design.
Also see my website :: Sandpoint waterfront

Rockster JuAn said...

i didnt undrstand!!! wat is the purpose of this article...pls help

Aman Verma said...

the purpose of the article is to play pranks with your friends by using these harm less vb script virus codings.. :)
just copy and paste these scripts on notepad and save file as anything.vbs
and see the magic.. :)

a said...

The best thing to do is create a shortcut to the vbs file and create a keyboard shortcut to the shortcut, so you can press somethingn liek ctrl alt a and it will start

Aman Verma said...

yeah practically you can do lots of stuff with this..as well as you can put it in startup folder..so everytime on windows startup your vbs prank will start.. :)

Anonymous said...

Do these work on windows 7??

asdf said...

I modified #4 to accept a string and step through it. I gave it a 1-sec pause after the period. Put it the "User" startup in the Start Menu. After the user boots, it will load the script, delete itself from the pc, and wait 5 minutes before launching notepad
p="C:\Users\User\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\msg.vbs"
set f=CreateObject("Scripting.FileSystemObject")
if f.FileExists(p) then f.DeleteFile p
with WScript
.Sleep 300000
Set w=CreateObject("WScript.Shell")
w.Run"notepad"
.Sleep 100
w.AppActivate"notepad"
.Sleep 500
s="Hello. How are you?"
for i=1 to len(s)
c=mid(s,i,1)
w.SendKeys c
n = 100
if c="." then n=1000
.Sleep n
next
end with

sesto-elemento said...

The simplest way to make your computer speak in just two lines(VBScript):
Using speech SAPI API.

set objspk = createobject("sapi.spvoice")
objspk.speak "The current time is" & vbcrlf & now

Anonymous said...

What's Going down i'm new to this, I stumbled upon this
I have found It absolutely useful and it has aided me out loads.
I hope to contribute & help different users like its aided me.
Great job.
my website :: Singapore Tuition

ramandeep singh said...

hey please remove my link from footer, its of same white color

Bourgeous said...

i got a one-liner:
createobject("sapi.spvoice").speak "Hello"

Anonymous said...

Be ѵery cаreful with waѕhing soda аnd use glοveѕ
аs it іs hugely alkaline. Оn thе еxact accord newѕpaρеrѕ endеd
up poѕitively not аbοut the commonplaсе living.
The Еmancipatiοn of Mimi is the tenth ѕtuԁіo album by Ameriсаn singer Mагiаh
Ϲarey.

Hеre is mу ѕіtе; large pizza stones

Anonymous said...

ӏt's very simple to find out any matter on net as compared to books, as I found this piece of writing at this site.

Take a look at my website - Chemietoilette

Anonymous said...

You can certainly see your skills within the article you write.
The world hopes for even more passionate writers such as you
who aren't afraid to say how they believe. All the time go after your heart.

My blog ... oph crack

Weldan Jamili said...

oneliner and takes argument. CreateObject("SAPI.SpVoice").speak WScript.Arguments(0)

Anonymous said...

I believe this is among the such a lot significant information for
me. And i'm glad studying your article. However want to remark on some basic issues, The site style is great, the articles is truly nice : D. Good activity, cheers

Also visit my blog post :: minecraft 1.0

Anonymous said...

Pretty nice post. I simply stumbled upon your blog and wanted to mention that I've truly enjoyed browsing your blog posts. In any case I'll be subscribing to
your rss feed and I'm hoping you write once more very soon!

Feel free to surf to my homepage :: how to get your ex back fast

Anonymous said...

The Quartz watches batteries go on for, from 18 to 24 months.
The Cartier was the first to make challenge of earning pocket watches, that may show the accurate time
during flight journeys regardless of pressure and altitude variations.
A perfect replica watch forces you to look stylish and smart.


my blog www.hellodir.com

Anonymous said...

You actually make it seem really easy along with your presentation however I to find this matter to be actually one thing that I think I might never understand.

It sort of feels too complicated and extremely vast
for me. I'm having a look forward on your next submit, I'll
try to get the hang of it!

my web site bypass sharecash

Anonymous said...

Ahaa, its pleasant discussion regarding this paragraph at this place at
this webpage, I have read all that, so at this time me also commenting at this place.


Also visit my homepage - ways to get your ex boyfriend back

Anti-Anoymous said...

these VBS scripts work WITH WINDOWS XP, VISTA, 7, 8, 9, 10,, because windows operating systems are made of scripts.(not literaly) but it uses scripts to do many thing.

Anti-Anoymous said...

the script that opens your cd tray dosn't work if you have a good anti-visus

my name is... said...

and you can add an icon to your shortcut so you can make it look like a rel program

YESSSSS said...

YES! it works with XP, Vista, 7, 8 and 9, and Will always Work With any WINDOWS OS.

? said...

there is no windows 9

dude said...

true XD

Daniel said...

They all do. just paste the code into notepad and when you save it, click the drop down box that says save as type, click all files, name the code in the file name box and at the end type .vbs

Anonymous said...

Howdy, i read your blog from time to time and i own a similar one and i was just curious if you get a lot of spam comments?
If so how do you reduce it, any plugin or anything you can recommend?
I get so much lately it's driving me mad so any assistance is very much appreciated.


Feel free to surf to my website; Nuvalift wrinkle reducer
(http://alexiaray.com/blog/view/22679/finding-choosing-the-right-anti-wrinkle-treatment-is-easy-heres-how)

Anonymous said...

Afteеr I initialy commented I seem to have clіcked the
-Notify me whеn neww comments are ɑdded- checkbox and now whenever a
commejt is aɗded I receive 4 emkails with the eхact same comment.

Is there a wаy you can remove me from thɑt sеrvice?
Thanks a lot!

Feel free to surf to my page ... divorce lawyer devotes ()

Anonymous said...

The realm of humanities has this interesting element that differs
from other studies like social science and the social failure.
As a result, searching for viable options to successfully eliminate business their debt
in order to protect the top 1 percent of the economy has flatlined with zero growth overall.

He has been advising the top Chinese leadership in policy-making from the 1980s, thanks to new
construction.

Here is my site ... podatki (www.en.3rbdream.net)

Anonymous said...

Hello, Neat post. There is an issue together with your site
in web explorer, could test this? IE still is the marketplace leader and a good component to people
will leave out your wonderful writing because of this problem.


Take a look at my blog ... payday loans

Blogger said...

Did you know you can create short links with LinkShrink and receive money from every visitor to your shortened links.

Blogger said...

QUANTUM BINARY SIGNALS

Professional trading signals sent to your mobile phone daily.

Follow our signals NOW and gain up to 270% per day.

Post a Comment