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