Fake virus.....

Step 1: Making the "virus"

 First, open up notepad, and then just copy-paste this code in between the lines (without the lines included of course) :

____________________________________________________________________________
Msgbox "Your computer has been infected by a virus",16,"Warning !"
dim x,yes,no
x=Msgbox("Virus has infected hard drive (C:). Deletion of the virus will require complete formatting of hard drive (C:). Would you like to format hard drive (C:) ?",52,"Warning !")
if x=6 then
dim box
box=Msgbox("Hard drive (C:) formatting complete. In order to function correctly your computer must restart, would you like to restart now ?",36,"Formatting has been completed")
if box=6 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by GillesM95"
end if
if box=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by GillesM95"
end if
end if
if x=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by GillesM95"
end if
___________________________________________________________________________

Then save this file somewhere where your "victim" won't see it
you have to save it as a .vbs file, not .txt

For example : click File -> save as -> go to your folder of choice -> name it
example.vbs
below that, it will say : save as : text file (.txt.)
you have to change that to All files (*.*)
Then save your file