Hi Friends, today I am going to show you something really amazing which you will probably like very much.
This trick will blow your friends mind or freak them out..
I have found this tricks on net and the trick use vbs which is Visual basic script.
Here, I am giving two harmless scripts and a way to stop them.
a) Open the notepad.
b) Copy the following code.
a) Open the notepad.
b) Copy the following code.
c) Here, digits show mili-seconds. You can change the time and the message.
WScript.Sleep 1800
WScript.Sleep 1000
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! "
This trick will blow your friends mind or freak them out..
I have found this tricks on net and the trick use vbs which is Visual basic script.
Here, I am giving two harmless scripts and a way to stop them.
1. Make cd/dvd drive pop out continuously.
Follow the steps given .a) Open the notepad.
b) Copy the following code.
Do
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
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
c) Save the file with extension like this "any name.vbs"
d) Double-click it to run it.
2. Open notepad automatically and slowly type any message you want to shock your friend.
Follow the steps given .a) Open the notepad.
b) Copy the following code.
c) Here, digits show mili-seconds. You can change the time and the message.
WScript.Sleep 1800
WScript.Sleep 1000
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! "
d) Save the file with extension like this "any name.vbs"
e) Double click it to start.
==>>How to stop the script.
1)Start the task manager by pressing ctrl+alt+del.
2) Open the task manager.
3)For windows xp / vista/ 7 users you will find a process named "wscript.exe"
For windows 8 users, you will find "microsoft vbs script"
SO, in short identify your process, and click on it and end the process by pressing
"End Process" Button.
That's it.
Wasn't it easy and fun??
Have fun, but don,t be cruel. ;)
No comments:
Post a Comment