Hola a todos, he creado una especie de "virus" (inofensivo) para iniciarme en el mundo de la programación. Es un archivo .vbs y el problema es que cuando le doy a start, los mensajes programados aparecen y desaparecen en unos segundos y posteriormente se me borra el archivo. ¿Cómo puedo arreglar esto? Los comandos son los siguientes:
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("gotochrome.bat", 1, true)
MsgBox"Troyan089774 esta infectando el sistema",48,"Alerta en el sistema"
MsgBox"Si no soluciona el problema, Troyan089774 podria eliminar todos sus archivos (carpetas, disco duro, aplicaciones... Haga click en reintentar para iniciar el escaneo)",18,"Alerta en el sistema"
MsgBox"No se pudo eliminar el archivo Troyan089774, deve formatear el disco c:. Codigo de error: 7673936D",16,"Error en el sistema"
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("audiovirus.vbs", 1, false)
MsgBox"Se ha perdido la informacion",18,"Alerta en el sistema"
MsgBox"Se ha perdido la informacion",18,"Alerta en el sistema"
MsgBox"Se ha perdido la informacion",18,"Alerta en el sistema"
MsgBox"Se ha perdido la informacion",18,"Alerta en el sistema"
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("ventanas.bat", 1, true)
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("disfrutar.vbs", 1, true)
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("GoogleChrome.lnk", 1, true)
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("apagar5.bat", 1, true)
Los ultimos comandos abren archivos .bat. Como dije antes, el primer mensaje aparece, en pocos segundos desaparece y el archivo se elimina. Estaría encantado de que me pudiesen echar una mano.
Grácias por su atención.