Do
StrText=("Warning - Trojan Virus Detected")
StrText2=("Warning - Infected File Detected")
StrText3=("Warning - Computer Hard-Drive Fail")
StrText4=("Viruses Found: 32")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
ObjVoice.Speak StrText2
ObjVoice.Speak StrText3
ObjVoice.Speak StrText4
Loop

Copyright © 2026, NextGenUpdate.
All Rights Reserved.