Top 10 Vbscript Codings To Play Prank With Friends (2024)

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.. 🙂

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

Top 10 Vbscript Codings To Play Prank With Friends (2024)
Top Articles
The Daily Progress from Charlottesville, Virginia
3 newly freed Americans are back on US soil after a landmark prisoner exchange with Russia
Danatar Gym
Ds Cuts Saugus
Big Y Digital Coupon App
Garrick Joker'' Hastings Sentenced
Hssn Broadcasts
Oc Craiglsit
Healing Guide Dragonflight 10.2.7 Wow Warring Dueling Guide
Think Up Elar Level 5 Answer Key Pdf
Conscious Cloud Dispensary Photos
Bx11
Blackwolf Run Pro Shop
Lancasterfire Live Incidents
Loves Employee Pay Stub
2021 Volleyball Roster
R&S Auto Lockridge Iowa
Anotherdeadfairy
Understanding Gestalt Principles: Definition and Examples
The best brunch spots in Berlin
Bj타멬
Democrat And Chronicle Obituaries For This Week
Pixel Combat Unblocked
Marlene2995 Pagina Azul
Indiana Jones 5 Showtimes Near Jamaica Multiplex Cinemas
Gina's Pizza Port Charlotte Fl
140000 Kilometers To Miles
Gideon Nicole Riddley Read Online Free
24 slang words teens and Gen Zers are using in 2020, and what they really mean
Marine Forecast Sandy Hook To Manasquan Inlet
Dreammarriage.com Login
Truckers Report Forums
Unity Webgl Player Drift Hunters
About Us | SEIL
Chatropolis Call Me
Trivago Myrtle Beach Hotels
Has any non-Muslim here who read the Quran and unironically ENJOYED it?
1v1.LOL Game [Unblocked] | Play Online
Taylor University Baseball Roster
WorldAccount | Data Protection
Armageddon Time Showtimes Near Cmx Daytona 12
At Home Hourly Pay
Fedex Passport Locations Near Me
[Teen Titans] Starfire In Heat - Chapter 1 - Umbrelloid - Teen Titans
412Doctors
Cleveland Save 25% - Lighthouse Immersive Studios | Buy Tickets
Arcanis Secret Santa
Ajpw Sugar Glider Worth
House For Sale On Trulia
Understanding & Applying Carroll's Pyramid of Corporate Social Responsibility
Die 10 wichtigsten SehenswĂŒrdigkeiten in NYC, die Sie kennen sollten
The Ultimate Guide To 5 Movierulz. Com: Exploring The World Of Online Movies
Latest Posts
Article information

Author: Errol Quitzon

Last Updated:

Views: 5874

Rating: 4.9 / 5 (59 voted)

Reviews: 90% of readers found this page helpful

Author information

Name: Errol Quitzon

Birthday: 1993-04-02

Address: 70604 Haley Lane, Port Weldonside, TN 99233-0942

Phone: +9665282866296

Job: Product Retail Agent

Hobby: Computer programming, Horseback riding, Hooping, Dance, Ice skating, Backpacking, Rafting

Introduction: My name is Errol Quitzon, I am a fair, cute, fancy, clean, attractive, sparkling, kind person who loves writing and wants to share my knowledge and understanding with you.