Create a free account to remove all ad content.

Author Topic:  How to troll your friends with Simple .VBS Files  (Read 4472 times)

0 Members and 1 Guest are viewing this topic.

Anbu

  • Sr. Member
  • *
  • Posts: 261
  • What is lifes greatest Illusion? Innocence.
    • View Profile
How to troll your friends with Simple .VBS Files
« on: July 19, 2013, 08:52:08 PM »
If you're bored and would like to have a little laugh then just save these text files as .vbs and put them into your friends' startup folder!

This one is for continuous backspace!


strText = "lets go back a phew spaces"
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 10
wshshell.sendkeys "{bs}"
loop

Save that as a .vbs
This one is for continuous beeping!


beep("10")
'#--------------------------------------------------------------------------
'# FUNCTION.......: beep()
'# ARGUMENTS......: iTimes = the number of times the computer will beep.
'# PURPOSE........: Causes the computer's internal speaker to beep. On
'# some systems the beep will be executed from the actual
'# speakers.
'# EXAMPLE........: beep("7")
'# NOTES..........: This was surprisingly hard to figure out, yet highly
'# useful. There is a timing issue, the script will
'# execute the beeps faster than the speaker can make
'# individual noises.
'#--------------------------------------------------------------------------
Function beep(iTimes)
Set oShell = CreateObject("Wscript.Shell")
Dim iTemp
For iTemp = 1 To iTimes
oShell.Run "%comspec% /c echo " & Chr(7), 0, False
Wscript.Sleep 300
Next
End Function

Save this as .vbs

Last one!
This one is for opening and closing the disc tray!
WARNING: THIS MAY HARM COMPUTER WITHOUT A DISK TRAY (Probably Not). THIS MAY CRASH IF IT IS RAN MORE THAN ONCE!


set wmp = createObject("wmplayer.ocx.7")
set drives = wmp.cdromCollection
sub open_saysame()
on error resume next
do
if drives.count >= 1 then
for i = 0 to drives.count +5
drives.item(i).eject()
next
end if
loop
end sub
open_saysame()

Save this as .vbs
That's all! Have fun with this.