So Guys I am back with another annoying notepad trick. Annoy
your friends with these tricks and have fun. You just need to type the code
given below after each heading and save the file as instructed.
Let us start
1.
Shutting down computer with an error message :
@echo off
msg * tweaksonline.blogspot.com hack
msg * tweaksonline.blogspot.com hack
shutdown -c
"hack for shutdown code type tweaksonline.blogspot.com !" –s
·
Save it as Tweaks Online_shtdwn.vbs
·
Send this file to your friend
2.
Keyboard hack for continuous typing :
Set wshShell =
wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "tweaksonline.blogspot.com."
loop
do
wscript.sleep 100
wshshell.sendkeys "tweaksonline.blogspot.com."
loop
·
You can change tweaksonline.blogspot.com to any
other word you want to type.
·
Save the file as anything.vbs
·
Send the file to victim’s computer.
3.
Make capslock on/off repeatedly :
Set wshShell
=wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
4.
Poping out cd/dvd drive continued action :
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
No comments:
Post a Comment