Как сделать вирус в блокноте (Vbs и bat формат)

Vbs set virus=createobject(«Wscript.Shell») msgbox«Virus detected!»,0+64,«Windows» msgbox«Delete virus»,0+64,«Windows» msgbox«Virus delete!»,0+64,«Windows» bat @echo off start start notepad start explorer start calc start start notepad start explorer start calc start start notepad start explorer start calc start start notepad start explorer start calc start start notepad start explorer start calc start start notepad start explorer start calc