Author Topic: VBScript codes to Prank your Friends  (Read 7697 times)

0 Members and 3 Guests are viewing this topic.

Infinityexists

  • Guest
VBScript codes to Prank your Friends
« on: 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 :
     
Code: [Select]
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 :
     
Code: [Select]
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 :
Code: [Select]
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 :
Code: [Select]
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.
Code: [Select]
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 :

Code: [Select]
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 ;)
« Last Edit: February 25, 2012, 06:56:31 pm by ande »

Online Factionwars

  • Administrator
  • King
  • *
  • Posts: 2215
  • Cookies: 182
    • View Profile
Re: Few Dangerous VBScript codes to Prank your Friends
« Reply #1 on: February 24, 2012, 05:24:39 pm »
I love the notepad idea :D

Online techb

  • Evilzone Love Spreader
  • Global Moderator
  • King
  • *
  • Posts: 2014
  • Cookies: 256
  • Gender: Male
  • Aliens do in fact wear hats.
    • View Profile
    • Tech B. Blog
Re: Few Dangerous VBScript codes to Prank your Friends
« Reply #2 on: February 24, 2012, 06:45:06 pm »
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.


Code: [Select]

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.
« Last Edit: February 24, 2012, 06:53:12 pm by techb »

Online Factionwars

  • Administrator
  • King
  • *
  • Posts: 2215
  • Cookies: 182
    • View Profile
Re: Few Dangerous VBScript codes to Prank your Friends
« Reply #3 on: February 24, 2012, 07:59:57 pm »
Ofc hiding files on linux would be a . infront of the filename   .lol.py :)

Offline Cynet

  • NULL
  • Posts: 16
  • Cookies: -9
  • Gender: Male
    • View Profile
Re: Few Dangerous VBScript codes to Prank your Friends
« Reply #4 on: February 25, 2012, 04:23:13 am »
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
I didn't do it, that program did.

Offline Teenieweenie

  • NULL
  • Posts: 1
  • Cookies: 0
    • View Profile
Re: VBScript codes to Prank your Friends
« Reply #5 on: March 09, 2012, 01:42:45 am »
This really made me and my friends laugh , nice work!

Teenie.

Offline lucid

  • 0x416E7469204865726F
  • Global Moderator
  • King
  • *
  • Posts: 2465
  • Cookies: 224
    • View Profile
Re: VBScript codes to Prank your Friends
« Reply #6 on: March 09, 2012, 04:05:02 am »
The last idea is wonderful.  ;D
"Hacking is at least as much about ideas as about computers and technology. We use our skills to open doors that should never have been shut. We open these doors not only for our own benefit but for the benefit of others, too." - Brian the Hacker

Quote
15:04  @Phage : I'm bored of Python

Offline Infinityexists

  • Peasant
  • *
  • Posts: 78
  • Cookies: 1
    • View Profile
Re: VBScript codes to Prank your Friends
« Reply #7 on: April 02, 2012, 06:10:32 pm »
Thanks everyone :D
eventually i've posted something that people laugh about :D

xor

  • Guest
Re: VBScript codes to Prank your Friends
« Reply #8 on: April 02, 2012, 06:24:40 pm »
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.

 



Intern0t SoldierX SecurityOverride programisiai
Want to be here? Contact Ande, Bluechill or Kulverstukas on the forum or at IRC.