Lo primero que tengo que decir es buenas noches, y lo segundo que este "Virus" no lo he creado yo, lo vi me pareció interesante y po pa vosotros jugadores:
Link del friki rarete
Empecemos: (Recalco que yo lo hago desde VM de Windows 7, igualmente recomiendo excel 2010 a mi me daba muchos errores)
Necesitaras: Excel y un poco de mentalidad
"Antes de nada yo solo digo como hacerlo y para hacer trukeles guapos necesitais saber VBA o buscaros la vida"
1º Paso Abrir excel
2º Paso metete a opciones y en la parte donde pone personalizar cinta de opciones activas el "Programador"
Lo 3º que tendríais que hacer, es irte a un nuevo archivo de Excel y en mi caso por ejemplo en los apartados de arriba me sale directamente uno nuevo llamado "programador" y darle a Insertar y boton comando (Cuidadeteeee que hay dos y despues decis vaya post mas inutil blablabla..)
4º Paso de prueba pues meterte a modo editor, meterte dentro y yo pongo Msgbox para que salga al darle click lo que esta dentro de las comillas entonces cuantas vas meces copies mas veces saldra(Voy a poner ejemplos)
5º Paso: Aqui viene lo macarra, gitano, maligno... podemos hacer que dandole al botoncico te lleve a una APLICACION y cuantas mas veces lo copies y pegues en el modo editor (dentro del boton) mas veces se abrira. Ejemplo: Si le das al botón y pones que te abra 100 veces (Creo que es lo maximo) a una foto en 4k, depende del ordenador te va a ir bien o BUUM!!!!!
Voy a enseñaros el codigos basico:
Dim Nodo313 As String
Nodo313 = " C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
End Sub
Si es corto lo siento, creo que estan minado con mi portatil y estoy cabreado
Link del friki rarete
Empecemos: (Recalco que yo lo hago desde VM de Windows 7, igualmente recomiendo excel 2010 a mi me daba muchos errores)
Necesitaras: Excel y un poco de mentalidad
"Antes de nada yo solo digo como hacerlo y para hacer trukeles guapos necesitais saber VBA o buscaros la vida"
1º Paso Abrir excel
2º Paso metete a opciones y en la parte donde pone personalizar cinta de opciones activas el "Programador"
Lo 3º que tendríais que hacer, es irte a un nuevo archivo de Excel y en mi caso por ejemplo en los apartados de arriba me sale directamente uno nuevo llamado "programador" y darle a Insertar y boton comando (Cuidadeteeee que hay dos y despues decis vaya post mas inutil blablabla..)
4º Paso de prueba pues meterte a modo editor, meterte dentro y yo pongo Msgbox para que salga al darle click lo que esta dentro de las comillas entonces cuantas vas meces copies mas veces saldra(Voy a poner ejemplos)
5º Paso: Aqui viene lo macarra, gitano, maligno... podemos hacer que dandole al botoncico te lleve a una APLICACION y cuantas mas veces lo copies y pegues en el modo editor (dentro del boton) mas veces se abrira. Ejemplo: Si le das al botón y pones que te abra 100 veces (Creo que es lo maximo) a una foto en 4k, depende del ordenador te va a ir bien o BUUM!!!!!
Voy a enseñaros el codigos basico:
Dim Nodo313 As String
Nodo313 = " C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
Shell (Nodo313 & "-url https://hips.hearstapps.com/es.h-cd...0.8888888888888888xh;center,top&resize=1200:*")
End Sub
Si es corto lo siento, creo que estan minado con mi portatil y estoy cabreado
Última edición: