Making Fake Virus In Vbs

Note: Use this to freak out your friends.lol 1. Open notepad 2. Type this in notepad lol=msgbox("Warning virus Found!","Virus Found!") 3. Save it as virus.VBS 4. Enjoy

Comment/Reply (w/o sign-up)

how to make a fake virus!!!
Making Fake Virus In Vbs

 @echo off
Msg * enjoy this fake virus...
Shutdown -s -t 6000 -c "ALL OF THE FILES WILL BE DELETED

save it as a .Bat

to shut it down go to start and click run the type the shutdown -a

-reply by gh0smAn89

Comment/Reply (w/o sign-up)

better one
Making Fake Virus In Vbs

THIS DOES NOT HARM YOUR COMPUTER!                                                                    but it only works on a pc

 

here is a longer one that I wrote. Try hiding it somewhere, and then creating a short cut that looks like internet explorer. This code actually opens IE in the beggining, so it is convincing

make the short cut icon look like interned explorer by:

right click>properties>shortcut>change icon

here is the code (save it as vbs):

set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "iexplore.Exe"

On Error Resume Next

Set wshShell = wscript.CreateObject("WScript.Shell")
Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")
Set shell = CreateObject("Wscript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
Set objShell = CreateObject("WScript.Shell")

wscript.Sleep 1000
Wsh.Run "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(Loading)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 800
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus Loaded"
Wscript.Sleep 900
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "%{f4}"
Msgbox"Windows has detected a virus",16,"Virus detector"
Wscript.Sleep 900

 

 

 

Comment/Reply (w/o sign-up)

Sorry, But We should not be disicussing "creating viruses" here in Asta Host. Plus, it's illegal.

Comment/Reply (w/o sign-up)