Infinte Message Popup Code

Infinte Message Popup in System

' prank_loop.vbs - infinite popup loop (use responsibly)
Option Explicit
Randomize

Dim msgs(2), titles(2), idx, ret

msgs(0) = "Oh! Someone is trying to hack the system!" & vbCrLf & vbCrLf & "There is a big bug or virus. 😡"
titles(0) = "System Error - Critical"

msgs(1) = "Warning: Hardware failure detected." & vbCrLf & "Do not turn off the computer."
titles(1) = "Warning"

msgs(2) = "Hey! Someone tried to access my laptop." & vbCrLf & "Do you want to stop this?"
titles(2) = "Notice"

Do
    idx = Int((UBound(msgs) + 1) * Rnd())
    ret = MsgBox(msgs(idx), vbCritical + vbOKOnly, titles(idx))
    ' loop continues automatically after OK
Loop

Final caution (please read)

• Browsers won’t run VBS — user must download & double‑click to run.
• Share responsibly — do not use to harm, harass, or scare people who may be vulnerable.
• Add a visible disclaimer on your blog post like: “This code is for educational/demo purposes only — do not use to harass others.”