EvilZone
Programming and Scripting => Scripting Languages => : Infinityexists February 24, 2012, 03:04:30 PM
-
Type those scripts inside a New Notepad Document and save it with 'vbs' extension
Toggle your friend's Caps Lock button simultaneously:
Type :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop Save it as "Anything.VBS" and send it.
Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!
Type :
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 Save it as "Anything.VBS" and send it.
Frustrate your friend by making this VBScript hit Enter simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop Save it as "Anything.VBS" and send it.
Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:
Type :
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! " Save it as "Anything.VBS" and send it.
Frustrate your friend by making this VBScript hit Backspace simultaneously:
Type :
Save it as "Anything.VBS" and send it.MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Hack your friend's keyboard and make him type "You are a fool" simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop Save it as "Anything.VBS" and send it.
Happy Hacking ....enj0y ;)
-
I love the notepad idea :D
-
Most people don't have "show extension" option checked in folder options. So to help hide the scripts save as something.jpg.vbs
I've been very successful with this extension hiding technique.
Also, here is a python port for the CD drive.
import ctypes, time
while 1:
ctypes.windll.winmm.mciSendStringW(u"set cdaudio door open", None, 0, None)
time.sleep(5) #in seconds
ctypes.windll.winmm.mciSendStringW(u"set cdaudio door close", None, 0, None
)
#if python3.x > instead of mciSendStringw, use mciSendStringA.
-
Ofc hiding files on linux would be a . infront of the filename .lol.py :)
-
Brilliant CD drive ejecter, tried it out in college...even installed it onto my lecturer's computer while he was out of the room, unfortunately the admin's tracked the file and deleted it within minutes of it happening lol, Great fun though.
Tim
-
This really made me and my friends laugh , nice work!
Teenie.
-
The last idea is wonderful. ;D
-
Thanks everyone :D
eventually i've posted something that people laugh about :D
-
The notepad idea should be turned into a function / routined called TypeSentence, especially considering that you're using a fixed timer for it. You can also better improve it by cutting up the string, generating random intervals, and emulate the typing of those in a simple loop.