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 http://katieandmaxtron.blogspot.com /">..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. http://katieandmaxtron.blogspot.com /" target="_blank">.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 http://katieandmaxtron.blogspot.com /" target="_blank">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 http://katieandmaxtron.blogspot.com /" target="_blank">cool tips and http://katieandmaxtron.blogspot.com /" target="_blank">tricks..stay tune with us..
Tidak ada komentar:
Posting Komentar