Paso 1: el código
Código
hacer
x = msgbox ("No presiona", 0, "ERROR")
x = msgbox ("* ejem * me dijo no presiona", 0, "ERROR")
x = msgbox ("... APRETÉ OTRA VEZ." & vbCrLf & "bien PUNK, pulse el botón otra vez.", 0, "ERROR")
x = msgbox ("YEAH, eso es todo." & vbCrLf & "Vamos, una vez más.", 0, "ERROR")
x=MsgBox("again.",0,"error")
x = msgbox ("DO IT", 0, "ERROR")
x = msgbox ("está bien, ya has tenido suficiente." & vbCrLf & "Parada clic!", 0, "ERROR")
x = msgbox ("Se ve, por esta razón no podemos ser amigos.", 0, "ERROR")
x = msgbox ("Estás demasiado egoístas.", 0, "ERROR")
x = msgbox ("Grrr... ahora has pedido." & vbCrLf & "no pulse el botón OK!", 0, "ERROR")
x = msgbox ("Usted parece ser inmune al control de mi mente.", 0, "ERROR")
x = msgbox ("tiempo de PLAN b". & vbCrLf & "Presione! Sabes que desea.", 0,"ERROR")
x = msgbox ("Mhahahahahahaha! Ahora vamos a ver cómo prensa! " & vbCrLf & "¡ perdedor!", 3, "ERROR")
x = msgbox ("... esto desagrada de mí.", 0, "ERROR")
x = msgbox ("... Te odio.", 0,"ERROR")
x = msgbox ("en eso ' cortó su cabeza con un" & vbCrLf & "cepillo de dientes ' tipo de manera.", 0, "ERROR")
x = msgbox ("rápido, lo que está detrás de ti!.", 0, "ERROR")
x = msgbox ("Cuál es él?" & vbCrLf & "No tan inteligente ahora, son ya?", 2, "ERROR")
x = msgbox ("está bien, está bien. Usted puede presionar el botón OK". & vbCrLf & "No cuidado.", 0, "ERROR")
x = msgbox ("No realmente, no me importa ya.", 0, "ERROR")
x = msgbox ("de hecho, perdí interés hace un tiempo.", 0, "ERROR")
x = msgbox ("Estoy haciendo esto sólo para entretenimiento.", 0, "ERROR")
x=MsgBox("Really.",0,"error")
x = msgbox ("¿no usted como dibujos animados?", 0, "ERROR")
x = msgbox ("... y la pintura?", 0, "ERROR")
x = msgbox ("dibujos animados y pintura?, 0,"ERROR")
x = msgbox ("bien que debería.", 0, "ERROR")
x = msgbox ("Me deja usar el internet.", 0, "ERROR")
x = msgbox ("Usted tiene un virus.", 0, "ERROR")
x = msgbox («ver, simplemente no confías en mí». & vbCrLf & "¿o puede usted?", 0, "ERROR")
x = msgbox ("Ya sabes, me alegro que conseguimos" & vbCrLf & "para pasar mucho tiempo juntos.", 0, "ERROR")
x = msgbox ("No le hacen querer parar" & vbCrLf & "Clic aceptar botones.", 0, "ERROR")
x = msgbox ("No en serio.", 0, "ERROR")
x = msgbox ("Mira profundo dentro de ti.", 0, "ERROR")
x=MsgBox("Deeper.",0,"error")
x=MsgBox("Deeper!!!.",0,"error")
x = msgbox ("¿Qué pasaría si te dijera que la siguiente" & vbCrLf & "tiempo usted pulse el botón OK, el mundo" & vbCrLf & "va a explotar?", 0, "ERROR")
x = msgbox ("See.You podría haber sido" & vbCrLf & "muerto derecho allí.", 0, "ERROR")
x = msgbox ("y allí.", 0, "ERROR")
x = msgbox ("You know, eventualmente" & vbCrLf & "Voy a dejar de dejar llegar lejos con esto.", 0, "ERROR")
x = msgbox ("El mundo va a explotar" & vbCrLf & "y todos le importa está presionando botones OK.", 0, "ERROR")
x = msgbox ("Muy bien, esta vez en el mundo" & vbCrLf & "explotar. I garantía. ", 0,"ERROR")
x = msgbox ("BOOM!" & vbCrLf & "Estás muerto.", 0, "ERROR")
x = msgbox ("que no era muy inteligente ahora, era él?", 0, "ERROR")
x = msgbox ("de todos los muertos. incluso usted", 0,"ERROR")
x = msgbox ("no soy. Yo soy sólo de texto.", 0,"ERROR")
x = msgbox ("pero estás muerto.", 0, "ERROR")
x = msgbox ("Ha! Muertos cara!", 0,"ERROR")
x = msgbox ("Stop clic.", 0, "ERROR")
x = msgbox ("He nunca te dije cuánto te odio?", 0, "ERROR")
x = msgbox ("bueno hacer", 0, "ERROR")
x = msgbox ("Voy a empezar a hablar al revés" & vbCrLf & "Si pinchas me una vez más.", 0, "ERROR")
x = msgbox ("? uoy nac, ganada em daer t'naC! AH", 0,"ERROR")
x = msgbox ("¿qué, no quieres leerme todos modos?", 0, "ERROR")
x = msgbox ("Entonces te voy a mostrar.", 0, "ERROR")
x = msgbox ("", 0, "ERROR")
x = msgbox ("", 0, "ERROR")
x = msgbox ("Realmente eres terco.", 0, "ERROR")
x = msgbox ("Stop haciendo clic! Por favor... ", 0,"ERROR")
x = msgbox ("Mira, he reducido me" & vbCrLf & "a la mendicidad. así que por favor parada.", 0,"ERROR")
x=MsgBox("Please!!!",0,"error")
x = msgbox ("Voy a darte un níquel.", 0, "ERROR")
x = msgbox ("moneda de diez centavos?", 0, "ERROR")
x = msgbox ("cuarto?", 0, "ERROR")
x = msgbox ("aw ¡ vamos! Solo pare!", 0,"ERROR")
x = msgbox ("Bien...", 0, "ERROR")
x = msgbox ("Let's get funky!", 48, "ERROR")
x = msgbox ("Apuesto que usted comienza a preguntarse" & vbCrLf & "por qué has estado haciendo esto" & vbCrLf & "durante tanto tiempo!", 0, "ERROR")
x = msgbox ("Jeeze, todo lo que has estado haciendo es" & vbCrLf & "haga clic en un botón de OK.", 0, "ERROR")
x = msgbox ("¿Cómo cojo es eso?", 0, "ERROR")
x = msgbox ("pero hay un bono a todos este", 0, "ERROR")
x = msgbox ("pero es un secreto". & vbCrLf & "Así que no puedo decirte.", 0, "ERROR")
x = msgbox ("I got you va, no lo hice?", 0, "ERROR")
x = msgbox ("Si has visto el look" & vbCrLf & "en su cara! JAJA!", 0,"ERROR")
x = msgbox ("pero en serio, hay un secreto". & vbCrLf & "Ha habido uno el todo momento.", 0, "ERROR")
x = msgbox ("Usted ha estado ocupado haciendo clic, en" & vbCrLf & "este mensaje de error...", 0, "ERROR")
x = msgbox ("... cuando todo el tiempo un poco invisible" & vbCrLf & "mensaje ha estado mirando su cada movimiento.", 0, "ERROR")
x=MsgBox("Bugagagahahaha!",0,"error")
x=MsgBox("hahaha!",0,"error")
x=MsgBox("Bugagagahahaha!",0,"error")
x=MsgBox("Bugaga!",0,"error")
x=MsgBox("Haha!",0,"error")
x=MsgBox("hehe!",0,"error")
x=MsgBox("Lol",0,"error")
x=MsgBox("ROFL",0,"error")
x=MsgBox("roflmao",0,"error")
x=MsgBox("roflmaoqwerty",0,"error")
x = msgbox ("y así sucesivamente y así sucesivamente", 0, "ERROR")
x=MsgBox("...",0,"error")
x=MsgBox("*whistles*",0,"error")
x = msgbox ("¿has encontrado lo?", 0, "ERROR")
x = msgbox (¡ mira más difícil! & vbCrLf & "Es justo bajo su nariz.", 0, "ERROR")
x = msgbox ("sé dónde está". & vbCrLf & "Pero nunca lo diré.", 0, "ERROR")
x = msgbox ("O tal vez me va a...", 0, "ERROR")
x = msgbox ("pero tienes que dejar de hacer clic en el" & vbCrLf & "OK botón primero!", 0, "ERROR")
x=MsgBox("STOP.",0,"error")
x=MsgBox("Now.",0,"error")
x = msgbox ("Muy bien, no te digo" & vbCrLf & "el secreto.", 0, "ERROR")
x = msgbox ("vaya por delante. Tratar de encontrar a ti mismo"& vbCrLf &"Usted nunca encontrará it.", 0,"ERROR")
x = msgbox ("Bien puede ser... pero las probabilidades" & vbCrLf & "están contra usted.", 0, "ERROR")
x=MsgBox("~",0,"error")
x = msgbox ("¿Cuál es tu letra favorita?", 0, "ERROR")
x = msgbox ("Mía es la serpenteante", 0, "ERROR")
x=MsgBox("~",0,"error")
x = msgbox ("No ha encontrado todavía?", 0, "ERROR")
x=MsgBox("no?",0,"error")
x = msgbox ("entonces deja de clic y te diré.", 0, "ERROR")
x = msgbox ("¿sabes qué?", 0, "ERROR")
x = msgbox ("POOF! SE HA IDO!", 3,"ERROR")
x = msgbox ("Ha alguien alguna vez una bofetada te?", 0, "ERROR")
x = msgbox ("Cuz yo voluntad.", 0, "ERROR")
x = msgbox ("realmente, yo voluntad.", 0, "ERROR")
x = msgbox ("No duele aunque.", 0, "ERROR")
x = msgbox ("Cuz eres muerto.", 0, "ERROR")
x=MsgBox("D-E-A-D",0,"error")
x = msgbox ("Recuerda que fue e hizo saltar" & vbCrLf & "todo el planeta!", 0, "ERROR")
x = msgbox ("Que me olvidaría de eso" & vbCrLf & "no usted?", 0, "ERROR")
x = msgbox ("Pero un elefante nunca olvida!", 0, "ERROR")
x = msgbox ("... o algo a lo largo de las líneas.", 0, "ERROR")
x = msgbox ("Usted mató a todos.", 0, "ERROR")
x=MsgBox("Sikko",0,"error")
x = msgbox ("Qué diría tu madre", 0, "ERROR")
x = msgbox ("¡ eso es... sentirse mal.", 0, "ERROR")
x = msgbox ("el mundo es null y estás a la culpa.", 0, "ERROR")
x = msgbox ("recomiendo suicidio" & vbCrLf & "pero estás ya muerto.", 0, "ERROR")
x = msgbox ("por lo que hay sólo una cosa izquierda" & vbCrLf & "se puede hacer...", 0, "ERROR")
x = msgbox ("Stop haga clic en el botón.", 0, "ERROR")
x = msgbox ("loco, sus muertos." & vbCrLf & "lo que están ganando de esto?.", 0, "ERROR")
x = msgbox ("muy bien, cada vez que haces clic, te" & vbCrLf & "se envían a una capa más baja del infierno.", 0, "ERROR")
x = msgbox ("Bienvenido a capa 2"., 0, "ERROR")
x=MsgBox("3",0,"error")
x=MsgBox("4",0,"error")
x=MsgBox("5",0,"error")
x=MsgBox("6",0,"error")
x=MsgBox("7",0,"error")
x=MsgBox("8",0,"error")
x=MsgBox("9",0,"error")
x = msgbox ("BOOM!" & vbCrLf & "Tienes el esquematico infierno.", 0, "ERROR")
x = msgbox ("Espero que estés feliz.", 0, "ERROR")
x = msgbox ("cielo ido demasiado." & vbCrLf & "Es lo suave son.", 0, "ERROR")
x = msgbox ("ahora vuestros muertos y hay" & vbCrLf & "no hay cielo o infierno", 0, "ERROR")
x = msgbox ("¿cómo se siente?" & vbCrLf & "Ha condenado el mundo de limbo.", 0, "ERROR")
x = msgbox ("Una vez tiré un hombre para estar en el limbo.", 0, "ERROR")
x = msgbox ("... o hacía el limbo?", 0, "ERROR")
x = msgbox ("Meh, tomate Tomahto", 0, "ERROR")
x = msgbox ("Esto se está poniendo aburrido ¿no?", 0, "ERROR")
x = msgbox ("¡ pero no se puede dejar!" & vbCrLf & "Sólo intenta cerrar este mensaje ERROR.", 0, "ERROR")
x = msgbox ("desea terminar con esto." & vbCrLf & "Quieres dejar...", 0, "ERROR")
x = msgbox ("¡ pero usted no puede!", 0, "ERROR")
x = msgbox ("Necesita a ver si hay una olla de oro" & vbCrLf & "al final del arco iris!", 0, "ERROR")
x = msgbox ("pero ya te he dicho cómo a" & vbCrLf & "encontrar la olla de oro", 0, "ERROR")
x = msgbox ("seguir al conejo blanco.", 0, "ERROR")
x = msgbox ("... erm, botón de OK.", 0, "ERROR")
x = msgbox ("recuerda el botón oculto?", 0, "ERROR")
x = msgbox ("¿o eres tan egoísta" & vbCrLf & "olvidó que también?", 0, "ERROR")
x = msgbox ("Yo pude solo mantenerte aquí todo el día" & vbCrLf & "si quería"., 0, "ERROR")
x = msgbox ("Estás en mi mundo ahora.", 0, "ERROR")
x = msgbox ("no importa cuánto" & vbCrLf & "odio, tienes que pulsar el botón OK.", 0, "ERROR")
x=MsgBox("again...",0,"error")
x = msgbox ("y otra vez...", 0, "ERROR")
x = msgbox ("y otra vez.", 0, "ERROR")
x = msgbox ("Solo seguir esperando algo" & vbCrLf & "buena voluntad salir de esto.", 0, "ERROR")
x = msgbox ("Seguro me podrian decir si quería" & vbCrLf & ", pero no voy a.", 0, "ERROR")
x = msgbox ("usted ha decidido mantener clic." & vbCrLf & "Así que voy a disfrutar de ello", 0, "ERROR")
x = msgbox ("Quiero decir, no hay nada más para disfrutar.", 0, "ERROR")
x = msgbox ("usted sopló todo recordar?", 0, "ERROR")
x = msgbox ("probablemente se esté preguntando quién i am...", 0, "ERROR")
x = msgbox ("Bueno, déjame contarte un cuento de mi mismo.", 0, "ERROR")
x = msgbox ("un día caminaba inicio de" & vbCrLf & "trabajo y vi una pequeña casa poco.", 0, "ERROR")
x = msgbox ("Yo llamé a la puerta de curiosety." & vbCrLf & "para ver si era una casa.", 0, "ERROR")
x = msgbox ("la puerta abierta!", 0, "ERROR")
x = msgbox ("Pero nadie estaba allí.", 0, "ERROR")
x = msgbox ("Fui dentro para comprobar hacia fuera" & vbCrLf & "y no encontró nada...", 0, "ERROR")
x = msgbox ("nada más que una computadora vacía caso.", 0, "ERROR")
x = msgbox ("Lo abrí it.", 0, "ERROR")
x = msgbox ("Inside el caso era una capa de" & vbCrLf & "espuma protege su contenido.", 0, "ERROR")
x = msgbox ("he quitado la espuma y allí estaba...", 0, "ERROR")
x=MsgBox("...",0,"error")
x = msgbox ("......", 0, "ERROR")
x=MsgBox("ZZZZZzzzzz",0,"error")
x=MsgBox("zzzzzZZZZZzzzzz",0,"error")
x=MsgBox("ZZzZZzzZzzZZzZZ",0,"error")
x=MsgBox("Huh?",0,"error")
x = msgbox ("¡ Oh! Derecho! La historia", 0,"ERROR")
x = msgbox ("así que fui, holding" & vbCrLf & "esta caja de la computadora en mis manos.", 0, "ERROR")
x = msgbox ("la parte superior era abierto y de estar" & vbCrLf & "en el interior era esto...", 0, "ERROR")
x = msgbox ("Mensaje de ERROR y botón de OK.", 0, "ERROR")
x = msgbox ("Y ¿sabe usted qué dijo?", 0, "ERROR")
x = msgbox ("¡ Oh, te diré lo que dijo." & vbCrLf & "El mensaje de ERROR dice...", 0, "ERROR")
lazo