Computer.vbs

X=MsgBox("Error while opeaning the computer ,Do you want to fix it?",4+64,"Computer")
X=MsgBox("Unable to fix the error,Do you want to scan your computer",3+48,"Computer Scan") 
X=MsgBox("Alert! Virus has been detected,Do you want to delete the virus",3+16,"Critical Error") 
X=MsgBox("Unabe to delete the virus",1+64,"Critical Error") 
X=MsgBox("Virus is Activated",2+64,"Virus Alert") 
X=MsgBox("Deleting System Files..",2+16,"File Deletion") 
X=MsgBox("Virus is coppying your password..",2+48,"Virus Alert") 
X=MsgBox("Please wait. Uploading your files to hack server. Do you wat to stop it",4+64,"File Transfer") 
X=MsgBox("Cannot stop. File transfer Completed",1+16,"Completed")
X=MsgBox("Your computer is Hacked",1+64,"Hacked") 
X=MsgBox("You cannot Acces your Computer anymore.. ",1+48,"Computer Hacked")
X=MsgBox("This was a prank there is no virus",1+64,"No Virus") 
Dim sapi
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak "Fooled  U hahahahahaha mother fucker"
CreateObject("Wscript.Shell").Run "explorer ,,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"