Tuesday, September 25, 2012

New VB SCRIPT prank ...!

>> In this prank, I'm showing a trick by which you can Freak your friend's PC or school Lab's PC..!
>>First, slowly type "My name is Khan But I'm not a terrorist" and freak your friend out:
Type following in notepad:

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 "My na"
WScript.Sleep 500
WshShell.SendKeys "me "
WScript.Sleep 500
WshShell.SendKeys " is"
WScript.Sleep 500
WshShell.SendKeys " kh"
WScript.Sleep 500
WshShell.SendKeys "an "
WScript.Sleep 500
WshShell.SendKeys " But"
WScript.Sleep 500
WshShell.SendKeys " I'm not"
WScript.Sleep 500
WshShell.SendKeys "a ter"
WScript.Sleep 500
WshShell.SendKeys "rori"
WScript.Sleep 500
WshShell.SendKeys "st"
WScript.Sleep 500


Save it as "key_prank.VBS" and send it to desktop.

Sunday, September 23, 2012

A prank that pops-out CD from CD-Drive...!!

>>In this prank , you can  make any PC/Laptop continuously popping out the  CD-Drive, by just  clicking a Icon...!

>>If the victim PC  is having more then one drive , this prank will pop-out all of them.

>>First open Notepad..and copy/paste this code..!






 
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


>>Now save this as "application.vbs ".
>>Here, you can specify any name in place of 'application'.


                                                    >>N'joy With Me..!