VBScript Prank Code

        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
        

VBScript Prank Collection

1. Fake Virus Scan

        MsgBox "Windows Defender is scanning your system...",64,"Windows Security"
        WScript.Sleep 2000
        MsgBox "5 threats found!",48,"Windows Security"
        WScript.Sleep 1500
        MsgBox "Relax 😄 This was just a prank!",64,"Prank"
        

2. Fake System Error

        MsgBox "A critical system error has occurred!",16,"ERROR"
        MsgBox "Error Code: 0x800F081F",16,"ERROR"
        MsgBox "Just kidding 😂",64,"Prank"
        

3. Fake Drive Format (Safe)

        x = MsgBox("Drive C: is corrupted. Format now?",52,"Warning")
        If x = 6 Then
        MsgBox "Formatting drive C: 0%",64,"Formatting"
        WScript.Sleep 2000
        MsgBox "Formatting drive C: 100%",64,"Formatting"
        MsgBox "Relax 😄 Nothing was deleted!",64,"Prank"
        End If
        

4. Endless Popup (Annoying)

        Do
        MsgBox "You can't close me 😈",48,"Prank"
        Loop
        

5. Text-to-Speech Scare

        Set voice = CreateObject("SAPI.SpVoice")
        voice.Speak "Warning. Your computer has been compromised."
        voice.Speak "Just joking. Have a nice day."
        

6. Random Error Generator

            Randomize
            errors = Array("DLL Missing","Access Denied","Memory Overflow","Unknown System Failure")
            MsgBox errors(Int(Rnd * 4)),16,"Windows Error"