mayconlJ

¡Atrévete siempre a realizar cosas nuevas en tu vida, que el miedo a fallar no te detenga! !Pronto el aniversario de T!

PRÍNCIPE PAGA DEUDA REAL DE 1651 Junio 2008.- El príncipe Carlos de Inglaterra, heredero del trono británico, pagó una deuda de 453 libras contraída hace más de 350 años por uno de sus antepasados, el rey Carlos II, con una empresa de confección de uniformes militares en Worcester. Carlos se negó a pagar los intereses que ascenderían a cerca de 47,000 libras. EL RATÓN MICKEY Y EL PATO DONALD LLAMADOS A DECLARAR Roma, diciembre 2007.- Los personajes de dibujos animados fueron citados a declarar como testigos en un juicio que se le sigue a un chino acusado de falsificar productos de Disney. El tribunal de Nápoles aclaró después que se trató de un error administrativo. 52 MARATONES EN 52 DÍAS Marzo 2009. El japonés Akinori Kusuda de 65 años estableció este nuevo récord en el maratón de Tokio, superando la marca de 51 carreras consecutivas de un italiano. INTERNET POR LA TUBERÍA DEL GAS Septiembre 2006.- La competencia para suministrar internet de alta velocidad ha llegado hasta la tubería del gas. La empresa Nethercomm en San Diego dice tener la tecnología (Broadband-in-Gas o BiG) para enviar internet de banda ancha y TV por el gas (no por el tubo) a velocidades superiores a las ofrecidas vía telefónica o cable. VUELVE A USAR SU CORAZÓN DESPUÉS DE 10 AÑOS Londres, abril 2006.- Hace 10 años cuando Hannah Clark tenía 2 años, fue sometida a un peculiar transplante de corazón ya que su órgano no fue retirado, permaneciendo desconectado junto al corazón donado. Sin embargo, en noviembre pasado, los médicos británicos notaron que Hannah estaba rechazando el corazón injertado por lo que decidieron intentar reactivar el corazón de la niña. En una operación inédita retiraron el corazón trasplantado y reconectaron el suyo. ALCALDE BRASILEÑO PROHIBE LA MUERTE EN SU DISTRITO Diciembre 2005.- El alcalde de Biritiba-Mirim, Roberto Pereira da Silva, propuso la idea luego de que el cementerio completara su capacidad. Según el proyecto de ley presentado por el gobernante, aquellos familiares de personas que mueran "antes de tiempo", deberán afrontar fuertes multas o bien una condena en prisión. Tras la presentación del proyecto de ley, las inscripciones a los gimnasios se han multiplicado, al igual que las visitas a los médicos. SENADOR DE EU DEMANDA A DIOS Septiembre 2007.- Un senador estatal de Nebraska presentó una demanda contra Dios, acusándole de causar cataclismos y sufrimientos humanos. El legislador dice que está tratando de demostrar que cualquiera puede demandar a quién sea por lo que sea. Como Dios no puede asistir al juicio, está solicitando asistan representantes de varias Iglesias. PROHIBE USO DEL GERUNDIO Octubre 2007.- El gobernador del Distrito Federal de Brasil, José Roberto Arruda, ordenó a los empleados públicos regionales abolir el uso del gerundio, una medida que definió el martes como un mensaje "simpático" contra la falta de eficiencia. Al defender su decisión, Arruda dijo que perdió la paciencia con algunos miembros de su propio Gobierno que siempre están "haciendo", "consiguiendo", "estudiando', "enviando" o "preparando", pero nunca terminan sus trabajos o establecen metas para su finalización. APAGAN INCENDIO DESPUÉS DE 180 AÑOS www.sabiasque.info Septiembre 2007.- Un incendio que se inició hace 180 años en una mina de carbón al noroeste de China ha podido ser apagado este mes por un equipo de bomberos que llevaba trabajando en la extinción desde 1997. El fuego fue provocado, al parecer, en el siglo XIX (dinastía Qing) por unos mineros descontentos con su capataz, en la mina Rujigou. Aunque los habitantes de la zona habían intentado apagarlo de vez en cuando, los primeros intentos serios de extinguirlo empezaron hace 10 años. El incendio ha devorado en casi dos siglos 30 millones de toneladas, la décima parte de la reserva del yacimiento, y ha puesto en peligro a la población local, con la frecuente aparición de humeantes grietas en el suelo. Debido a la alta toxicidad de los humos, cada bombero podía trabajar cerca del incendio sólo 10 minutos, lo que eternizó las tareas. Los incendios de larga duración en minas, muy difíciles de apagar debido a las dificultades de acceso, son frecuentes en países como China o la India. NIÑO DE 8 AÑOS APRUEBA EXAMEN DE INGRESO A LA FACULTAD DE DERECHO Brasilia, marzo de 2008.- Joao Victor Portelinha de Oliveira, presentó el examen la semana pasada: un test de opcion múltiple y una prueba de redacción, y resultó aprobado. Inmediatamente, sus padres pagaron la matrícula para que el niño comience sus estudios. La Universidad Paulista (UNIP) reconoció que Joao Victor pasó el examen, pero no aceptará su ingreso por no cumplir el requisito de haber cursado la escuela secundaria. El ministro de Educación, por su parte, determinó la apertura de una investigación sobre el bajo nivel de exigencias de ese centro de estudios. APRENDE A LEER Y ESCRIBIR A LOS 101 AÑOS Sao Paulo, marzo de 2008.- Sebastiao Oliveira, un jubilado de 101 años de edad, finalizó su curso de alfabetización y recibirá la semana próxima el diploma. EL RECIBO ELÉCTRICO DE AL GORE ¿UNA VERDAD INCÓMODA? Al Gore, ex viceprecidente de EU, ganador de un Oscar por su documental sobre el calentamiento global en el que promueve el ahorro de energía, parece no aplicar sus propias recomendaciones. El consumo en su residencia de 20 habitaciones en Nashville fue de $30,000 dólares durante 2006, 12 veces más que una familia americana promedio. RECIBE FACTURA TELEFÓNICA POR 218 BILLONES DE DÓLARES Malasia 2006.- Luego de pagar el saldo de 23 dólares, Yahaya Wahab canceló la línea telefónica de su difunto padre. Sin embargo, días después recibió una factura por 806 billones de llamadas con la amenaza de pagar en 10 días para no tomar acciones legales. BEBÉ DE 10 MESES RECIBE PERMISO PARA PORTAR ARMA Mayo 2007.- Pese a tener tan sólo 10 meses, Bubba Ludwig está autorizado oficialmente por el estado de Illinois, Estados Unidos, a portar un rifle que su abuelo le dejó como herencia. El trámite fue realizado por su padre Howard Ludwig, quien pagó 5 dólares y llenó la solicitud donde aparece la foto de Bubba y un garabato como firma. HOMBRE DE 84 AÑOS MANEJA EL MISMO AUTO DESDE HACE 69 AÑOS Agosto 2007.- Clarence Cleveland Curtiss de Shelton, estado de Washington, compró en 1938, a los 15 años, su primer y único auto un Ford modelo A, el cual lo ha transportado durante 69 años. JOYERÍA PROTEGIDA POR ESCORPIONES Agosto 2007.- Un joyero estadounidense introdujo una docena de escorpiones en su vitrina que se convirtieron no sólo en un poderoso "espanta-ladrones" sino también en una atracción para clientes y curiosos. ENOJADO PORQUE NADIE FUE A SU FUNERAL Marzo 2007.- En Bosnia, Amir Vehabovic, de 45 años organizó su propio funeral para ver cuántas personas asistían a su deceso, llevándose una gran sorpresa: sólo lo fue a despedir su madre. Decepcionado, escribió una carta a los 45 invitados a su velorio afirmando: "Pagué mucho dinero para obtener un certificado de defunción falso y soborné a varios empresarios fúnebres; espero que algunos de ustedes, mis supuestos amigos, me ayuden a pagar los gastos." DESPIDEN A JUEZ QUE ENCARCELÓ A 46 PERSONAS POR UN CELULAR Noviembre 2007.- En marzo de 2005, irritado porque sonó un celular mientras estaba en juicio, el juez Robert Restaino exigió que le entregaran el aparato. Al ver que no salía el "culpable", ordenó la detención de las 46 personas. Los que no pudieron pagar fianza se quedaron encerrados un buen rato. Unas horas después el juez dejó que se marcharan, cuando le dijeron que había periodistas llamando. El episodio le ha costado el puesto a Restaino, que fue retirado de su cargo por un panel judicial. HOSPITAL LE AVISA A UN ANCIANO QUE ESTÁ EMBARAZADO Febrero 2006.- Brian Spencer, un anciano de Sneinton a las afueras de Nottingham, en el Reino Unido, recibió una carta del hospital de la localidad en la que se le informaba: "Estás embarazado". Divertido con el error, el hombre se comunicó con la clínica y solicitó que se le realicen los estudios correspondientes y se prepare una sala para el nacimiento de su presunto hijo. FINGE SU MUERTE PARA NO PAGAR MULTAS DE TRÁNSITO Marzo 2006.- Kimberly Du, una mujer estadounidense de 36 años, publicó en diciembre su falso obituario y escribió una carta al juzgado informando de su propia muerte, para evitar pagar la gran cantidad de multas de tránsito que adeudaba. Pero la policía de Des Moines, en el estado de Iowa, comenzó a sospechar cuando en enero cometió una nueva infracción, un mes después de su supuesta muerte. Fue localizada, arrestada y juzgada por cargos de falsificación, multada con 500 dólares y condenada a cinco años de prisión. UN BALDE DE AGUA SE VENDE A 425 DÓLARES 2003.- Justin Kelly de Bristol, Inglaterra, colocó al mejor postor un balde de agua en el sitio de remates eBay. Su intención era ver si la gente compraba cualquier cosa. A medida que las ofertas empezaron a subir decidió que el dinero recolectado se destinaría a obras de caridad en Sudán. Más de 20,000 personas visitaron la página durante el remate y 33 hicieron su oferta por el "Fabuloso balde de agua de Bristol". MUJER BRITÁNICA CONTRAE MATRIMONIO CON UN DELFÍN Enero 2006.- La ceremonia se llevó a cabo en Eliat, Israel, donde Sharon Tendler, una mujer londinense de 41 años, contrajo matrimonio con "Cindy", un delfín de 35. La historia de amor se remonta a principios de los 90, cuando ambos se conocieron durante una visita de Sharon al acuario. Desde entonces, la mujer viajó año tras año para compartir tiempo con su adorado delfín. El "amor" fue creciendo y ella le propuso matrimonio, a lo que el delfín respondió afirmativamente (o al menos eso suponen). UN GATO, EL ÚNICO PASAJERO DEL VUELO Noviembre 2005.- Todo comenzó cuando un gato logró salir de su jaula en la sección de carga del avión. Se pidió a los pasajeros bajar para buscar al gato. Los técnicos revisaron la aeronave, sin encontrar a la mascota y consideraron peligroso dejar abordar a los pasajeros, por lo que el vuelo de Frankfurt a Praga de Czech Airlines partió solamente con el personal del avión y el gato fugitivo. Tras arribar, una nueva inspección logró dar con el felino. 750 MIL TELÉFONOS DE HERENCIA Al fallecer Robert Prosser en 2003, sus familiares recibieron una herencia muy particular: más de 750 mil teléfonos. En su mejor momento, la colección de Prosser había alcanzado más de un millón de aparatos, la colección privada más grande del mundo. "El segundo lugar es para un tipo que tiene 10 mil teléfonos que me compró a mí", alardeaba Prosser. Los teléfonos estaban unos sobre otros ocupando miles de metros cúbicos en 6 edificios de Turtle Lake, un pueblo de Wisconsin, EU. CURIOSOS ROBOS BANCARIOS Octubre 2005.- Tras una serie de robos perpetrados por un hipnotizador, los empleados bancarios de Moldova han recibido instrucciones de atender a los clientes sin mirarlos directamente a los ojos. Según informaron las autoridades, el misterioso ladrón logra poner en trance a los empleados antes de pedirles que le entreguen todo el dinero de la caja. GANÓ EL MARATÓN Y SALIÓ CORRIENDO Luego de cruzar la meta en el primer lugar, una joven atleta continuó corriendo y desapareció ante la sorpresa de los organizadores del maratón de Viena. Parece que para poder participar la joven había llamado al trabajo diciendo que estaba enferma. Temiendo que la vieran por TV, aceleró el paso una vez finalizada la carrera, alejándose de las cámaras. EMPLEADA DE MCDONALD'S OBTIENE 6 MILLONES Octubre 2007.- Una empleada de McDonald's obtuvo una indemnización de 6.1 millones de dólares por haber sido víctima de una requisa por un falso policía, que ya había cometido este hecho en más de 60 restaurantes de la cadena de comida rápida en en 32 estados norteamericanos en casi 10 años. Louise Ogborn, de 18 años, demandó a McDonald's por no haber advertido a sus empleados de que un hombre que se hacía pasar por policía había hecho desvestir a decenas de empleadas para cachearlas con el pretexto de ser sospechosas de robo. INTENTÓ CAMBIAR BILLETE DE UN MILLÓN DE DÓLARES Octubre 2007. - Un hombre ha sido detenido en un supermercado de Pittsburgh, después de pedir cambio de un billete de un millón de dólares. No existien billetes de esa denominación, por lo que era obvio que se trataba de un billete falso. CUBO DE RUBIK BUDAPEST - Un japonés se consagró campeón mundial de cubo de Rubik en un torneo que reunió a casi 300 competidores en la ciudad natal del inventor, Erno Rubik. Yu Nakajima ordenó por color las seis caras en 12 segundos y 46 centésimas. El récord mundial continúa en manos del francés Thibaut Jacquinot quien en mayo detuvo el cronómetro en 9.86 segundos. Por su parte, un finlandés ganó en la competencia "con los pies". En las versiones más complejas de 16 y 25 cuadrados por cara se impuso el húngaro Matyar Kuti. Desde su invención en 1974, se han vendido más de 300 millones de cubos en todo el mundo. Por cierto, el número de configuraciones distintas del cubo es de 43 trillones: 43,252,003,274,489,856,000. Para entender lo grande de esta cifra diremos que cada persona del mundo podría tener 7 mil millones de cubos distintos entre sí y distintos a los de cualquier otra persona. También podemos decir que ese número de cubos podría tapizar la superficie terrestre (incluyendo mares) miles de veces o que alcanzarían para llegar al sol millones de veces. LOS MÉDICOS DE SICILIA SIGUEN CUIDANDO DE LOS MUERTOS Noviembre 2008.- Los médicos de la isla italiana de Sicilia cuidan hasta de los muertos, según una investigación de la policía, que ha descubierto que 51,000 fallecidos figuran todavía en las listas de los galenos, quienes cobran un complemento salarial de unos 38 euros al año por cada paciente. Eso supone un perjuicio para el servicio público de sanidad de Sicilia de al menos 14 millones de euros, cantidad que podría ser aún mayor, pues la investigación continúa abierta. El reglamento actual es muy vago sobre quién debe informar y quitar de las listas a los fallecidos. LLUVIA DE IGUANAS EN MIAMI www.sabiasque.info Enero 2008.- La ola de frío que llegó esta semana a la usualmente cálida Miami en Florida, provocó un fenómeno sorprendente en parques cercanos a la ciudad: iguanas que caían de los árboles adormecidas por efecto de las bajas temperaturas. La iguana tropical es un reptil de sangre fría que requiere una temperatura ambiente superior a los 23 grados y preferiblemente en torno a los 35, pero el termómetro el miércoles y el jueves alcanzó mínimas de 4 y 5 grados en algunas áreas del sur de Florida. Con temperaturas por debajo de los 15 grados centígrados las iguanas comienzan a tener problemas de movimiento, pero si la temperatura desciende de los 5 grados quedan completamente paralizadas. OCTOGENARIO SE DIVORCIA DE 82 MUJERES Un nigeriano de 84 años aceptó, bajo amenaza de destierro, divorciarse de 82 de sus 86 mujeres para ajustarse a la ley islámica que sólo autoriza cuatro esposas. Uno de los principales consejos islámicos del país había decretado inicialmente la muerte del polígamo si no cumplía la ley. ARRESTADA 73 VECES DESDE 1971 Octubre 2008.- Una septuagenaria, que dice vivir en el 1600 de la avenida Pensilvania, la dirección de la Casa Blanca, fue arrestada por 73° vez, acusada de robar una billetera dejada por policías con el propósito de atrapar delincuentes. La mujer, ha usado 36 nombres diferentes y ha dado 26 fechas de nacimiento diferentes. EX PRIMER MINISTRO ABRE A LOS 59 AÑOS SU PRIMERA CUENTA BANCARIA VARSOVIA, marzo de 2009 - El ex primer ministro polaco Jaroslaw Kaczynski abrió por fin una cuenta bancaria, dos años después de provocar el asombro general al admitir, cuando todavía era jefe del Gobierno, que carecía de cuenta y que entregaba todo el sueldo a su anciana madre, con quien vive en una casa al norte de Varsovia. AVENIDA TOCARÁ OBERTURA www.sabiasque.info Octubre 2008.- Trabajadores empezaron a excavar surcos en la Avenida G de Lancaster California para convertirla en una calle musical, capaz de emitir las notas de la "Obertura Guillermo Tell" de Rossini cuando los vehículos la transiten a 55 millas por hora. Será la primera calle musical en América. Hay otras en Japón, Corea del Sur y Holanda. RAYOS X EN LA CINTA ADHESIVA Octubre 2008.- Cuando se desenrolla en una cámara al vacío, la cinta emite rayos X, según los investigadores, que lograron incluso plasmar la imagen ósea de uno de sus dedos. El proceso podría ser utilizado para fabricar máquinas de rayos X baratas que sean usadas por los paramédicos o en lugares donde la electricidad es cara o difícil de obtener. Al fin y al cabo, se puede desenrollar la cinta o algo similar en dichas máquinas mediante la fuerza humana, como girar una manivela. Los usuarios de cinta adhesiva en casas y oficinas no corren peligro alguno porque los rayos X no aparecen en contacto con el aire, sino solamente en una cámara al vacío. 50 TRABAJOS EN 50 SEMANAS Dan Seddiqui, californiano de 27 años, dejó su oficina en Skokie, Illinois, para relizar 50 trabajos diferentes en 50 estados de los Estados Unidos en sólo 50 semanas. Desde pescador de langostas a organizador de bodas pasando por meteorólogo de televisión y conductor de orquesta de jazz, hizo de todo. Finalmente se puso a escribir un libro sobre su sorprendente travesía y los editores –según el LA Times- se están disputando los derechos. Dan intentó realizar la actividad más típica de cada estado. DISFRAZADO DE ANCIANA COBRÓ DURANTE 6 AÑOS LA PENSIÓN DE SU MADRE Junio, 2009. Thomas Parkin, de 49 años, fue inculpado con 47 cargos en Brooklyn, Nueva York. Recibió 117,000 dólares de pensión en nombre de la fallecida, Irene Prusik. El fraude fue descubierto cuando las autoridades citaron a la septuagenaria y se encontraron con Parkin disfrazado de anciana, maquillado y las uñas pintadas. La fianza fue fijada en un millón de dólares y enfrenta una pena de hasta 25 años de prisión. APRUEBA EXAMEN DE MANEJO DESPUÉS DE 950 INTENTOS Cha Sa-soon, surcoreana de 68 años hizo la prueba teórica casi a diario desde abril de 2005 y gastó más de cinco millones de wons (4.200 dólares) en solicitudes, pero no había podido conseguir los 60 puntos de un total de 100, necesarios para realizar su siguiente paso: una prueba de manejo. ROBÓ EL BANCO CON IDENTIFICACIÓN Jarell Arnold, de 34 años, ingresó a un banco en Anchorage, Alaska, y pidió consultar su saldo. Para ello le dio a la cajera su número de cuenta y su identificación (con foto). Luego de realizar estos trámites el hombre le entregó a la empleada un papelito que decía "Tengo un arma. Deme todo el dinero." El hombre salió del banco con unos 700 dólares. La identificación y el número de cuenta eran genuinos, por lo que el agente Steven Payne no tuvo más que localizarlo y ponerlo bajo custodia. PROHIBEN CLAVARLE AGUJAS A SARKOZY Noviembre 2008.- Una corte de apelaciones francesa falló el viernes que los muñecos vudú del presidente Nicolas Sarkozy pueden seguir a la venta, en nombre de la libertad de expresión, pero con una advertencia de que clavarles agujas lesiona la dignidad presidencial. El muñeco cuesta 12.95 euros e incluye 12 agujas y un manual. TIRARON UN MILLÓN A LA BASURA Una israelí quiso hacerle un regalo sorpresa a su madre. Aprovechando su ausencia cambió su viejo colchón por uno nuevo. Cuando la madre llegó y vio el nuevo colchón puso el grito en el cielo pues en el viejo estaban los ahorros de su vida: un millón de dólares en billetes. Salió corriendo hacia vertedero de basura de Jyria, localidad cercana a Tel Aviv, pero ya era demasiado tarde. El colchón y el millón de dólares habían sido despachados hacia un vertedero gigante de 3,000 toneladas, dónde desaparecieron a pesar de varios días de infructuosa búsqueda. EL TURCO DEL YOGUR SUECO ES GRIEGO Abril 2010. Un ciudadano griego reclama más de cinco millones de euros a una empresa láctea sueca por usar una fotografía suya en la etiqueta de un yogur turco. En su querella, de 40 páginas, el demandante reprocha a la empresa láctea haber dado una falsa imagen de él, que es griego y no tiene nada que ver con Turquía, país que mantiene con Grecia una vieja rivalidad. La compañía Lindahl lamentó el error y aseguró que había adquirido la ilustración de buena fe en un banco de imágenes. SALVADOS POR SUPERMAN Agosto 2010. Una familia de Estados Unidos conservará la casa en la que han vivido desde los años 50, a pocos días de que un banco los desalojara por incumplimiento de pagos. Cuando empezaron a empacar para la inminente mudanza encontraron junto a otras viejas publicaciones el ejemplar No.1 de Superman publicado en junio de 1936. La copia podría ser vendida hasta por 250,000 dólares cuando sea subastada en ComicConnect.com entre el 27 de agosto y el 17 de septiembre.

EL PRINCIPE OLVIDADO Spurgeon ha sido olvidado. Se habla mucho de él incluso se le cita algunas veces en los púlpitos, pero poco se conocen las doctrinas que predicó y que constituyeron la clave y fundamento del ministerio del gran predicador inglés. Que no se le conozca bien en España y países de habla hispana no es extraño, pues lo que de él se ha publicado en castellano es muy limitado. Por otra parte, las referencias que de Spurgeon nos han llegado oralmente, a menudo han sufrido deformaciones, como las sufre toda tradición. Incluso en Inglaterra se ha olvidado al verdadero Spurgeon, y hoy en día se publican respetuosas, aunque caricaturescas, biografías, y se editan mutilados algunos de sus sermones. El presente libro demostrará al lector que, en realidad, no se conoce al famoso predicador bautista. El contenido de esta obra se publicó originalmente en dos partes, las mismas en que se divide el libro, en THE BANNER OF TRUTH; la primera de ellas en el número 25 (marzo de 1962) y la segunda en el extraordinario de febrero de 1963 (números 28 y 29). Su autor, Iain Murray, es pastor de la bien conocida Grove Chapel de Londres, y fundador y director de THE BANNER OF TRUTH TRUST, hoy en día una de las más importantes editoriales evangélicas. En la primera parte hallará el lector una reseña biográfica, centrada especialmente en el año 1856, año clave para comprender el ministerio de Spurgeon, y en la que se podrá apreciar su carácter, obra y circunstancias históricas de su vida. En la segunda se encuentra una cuidada síntesis, abundantemente documentada, de sus convicciones doctrinales, convicciones que no respondían a tina fría aprehensión de las doctrinas de la Biblia, sino que, como dice al autor, "habían sido grabadas con fuego en él por el Espíritu Santo, irradiadas a su alrededor por su amor a su Redentor, y conservadas en toda su lozanía durante su ministerio por la continua comunión con Dios. Spurgeon sentía poca simpatía por los que sostenían un sistema ortodoxo desprovisto de la unción viva del Espíritu". Al final del libro se incluyen dos apéndices. En el primero se compara uno de los sermones de Spurgeon de los varios que se han publicado recientemente por una editorial inglesa, con el que fue publicado originalmente por el mismo Spurgeon. En el segundo se responde a la pregunta: ¿Pueden fusionarse los sistemas Arminiano y calvinista? Quiera el Señor que la lectura de este libro ayude al lector a consagrarse, como Spurgeon, a la defensa de la pureza del Evangelio. En estos tiempos de confusión en los que el diablo introduce ideas contrarias a la Revelación de Dios en tantas mentes evangélicas, estos tiempos en los que muchos cristianos viven con temor a definirse por causa de su confusión acerca de la ortodoxia evangélica, es necesario tener ideas y conducta claras. Nada puede unirnos sino la Verdad. "Y al que puede confirmaros según mi Evangelio y ¡a predicación de Jesucristo, según la revelación del misterio que se ha mantenido oculto desde tiempos eternos, pero que ha sido manifestado ahora, y que por las Escrituras de los profetas, según el mandamiento del Dios eterno, se ha dado a conocer a todas las gentes para que obedezcan a la fe, al único y sabio Dios, sea gloria mediante Jesucristo para siempre. Amén." JORGE PERERA Marzo, 1964. *** LA PERSONA DE SPURGEON Es imposible llegar a calcular la importancia del significado de la vida de C. H. Spurgeon sin conocer algo de la situación religiosa del país en el momento en que comenzó su ministerio, a mediados del pasado siglo. El cristianismo protestante era más o menos la religión nacional, se observaba rigurosamente el domingo, se respetaban las Escrituras y, aparte de los miles no alcanzados en algunas de las grandes ciudades, era costumbre general asistir a la iglesia. Todas estas cosas se aceptaban de modo tan general, y estaban evidentemente tan arraigadas, que los cambios espirituales que desde entonces ha presenciado la nación eran tan remotos para aquellos victorianos como los automóviles y los aviones. Sin embargo, no es preciso observar por mucho tiempo el cristianismo que prevalecía en los años 1850 a 1860, para notar algunas señales difícilmente identificables con lo que hallamos en el Nuevo Testamento: era demasiado elegante, demasiado respetable, demasiado amigo del mundo. Era como si textos tales cual «el mundo entero está bajo el maligno" ya no fueran correctos. La Iglesia no carecía de riqueza, ni de hombres, ni de dignidad; pero sufría una triste escasez de unción y poder. Había una tendencia general a olvidar la diferencia entre la erudición humana y la verdad revelada por el Espíritu de Dios. No escaseaban la elocuencia y la cultura en los púlpitos, pero había una notable ausencia del tipo de predicación que quebranta los corazones de los hombres. Quizá la peor señal de todas era el hecho de que pocos tenían conciencia de estas cosas. La iglesia, externamente, era lo suficientemente próspera para contentarse con seguir la rutina de años anteriores. Un escritor contemporáneo, lamentando este apático formalismo, observaba: "El predicador habla durante el tiempo acostumbrado; la congregación se sienta, y escucha quizá con bastante paciencia; se canta el acostumbrado número de estrofas, y la actividad del día ha terminado; generalmente, no suele ocurrir nada más. Nadie negará que esta es, ni más ni menos, la descripción del actual estado de cosas en la mayoría de nuestras iglesias. Si el predicador deja caer el pañuelo sobre el salterio, o da un golpe algo más fuerte que de costumbre con su eclesiástico puño, se notará, se recordará, y se comentará, mientras se demuestra un olvido absoluto del tema y naturaleza de lo que se ha tratado". Pronto atacarla Spurgeon este tradicionalismo muerto con palabras más directas: "Creéis que porque algo es antiguo, ha de ser venerable. Amáis las antigüedades. Quisierais que la carretera no fuese arreglada, por el solo hecho de que vuestro abuelo pasó en su carro por los surcos que allí se ven.«Que no lo toquen», decís: «que siga siendo un surco profundo». ¿Acaso vuestro abuelo no pasó por él estando aún enfangado? ¿Por qué no habéis de hacer lo mismo? Si era bueno para él, es bueno para vosotros. Siempre os habéis sentado cómodamente en la capilla. Nunca visteis un avivamiento, ni queréis verlo”. Los sectores evangélicos de la Iglesia no habían escapado de las tendencias predominantes de la época. Se admiraba el recuerdo de Whitefield y Wesley, pero no se les seguía. El filo de la Verdad evangélica había perdido gradualmente su corte. Aquellas recias doctrinas metodistas que habían sacudido al país un siglo antes no habían sido abandonadas - y unos pocos las predicaban todavía con fervor -, pero la opinión general era que la época victoriana necesitaba una presentación más refinada del Evangelio. Con semejantes puntos de vista, era inevitable que la enérgica y definida Teología Reformada de la Inglaterra de los siglos XVI y XVII estuviera completamente desechada. El historiador de la Reforma Merle d'Aubigné, de Ginebra, que visitó este país en 1845, dice que se vio obligado a preguntarse si el puritanismo "existe todavía en Inglaterra. Quizá habrá caído bajo la influencia de los acontecimientos nacionales, y la mofa de los novelistas. Acaso, en fin, será necesario volver al Siglo XVII para encontrarlo”. No obstante, es cierto que algunos de los líderes evangélicos del país, especialmente los menos jóvenes, estaban hondamente preocupados por la situación espiritual de las iglesias; John Angell James, por ejemplo, que había pastoreado la famosa Iglesia Congregacional de Carr's Lane, en Birmingham, desde 1805, escribía en 1851: "El estado de la religión en nuestro país es bajo. No creo que haya predicado jamás con menos resultado para salvación que ahora; y, lo mismo ocurre a la mayoría. Es una aflicción general." Si estas cosas eran ciertas en cuanto al país en general, lo eran especialmente en Londres, y la Capilla Bautista de New Park Street, situada en un sector «de penumbra y suciedad" junto a la orilla meridional del Támesis en Southwark, no era una excepción. La congregación tenía una admirable historia que se remontaba al siglo XVII, pero por aquel entonces se encontraba como las barcazas abandonadas en el cercano fango durante la marca baja. Durante años había estado en decadencia, y el edificio, grande y ornamentado, construido para una congregación de mil personas, estaba vacío en sus tres cuartas partes durante los cultos. esta fue la escena que acogió al joven de diecinueve anos que vino de Essex para predicar por primera vez en el púlpito de New Park Street la fría y triste mañana del 18 de diciembre de 1853. Fue la primera vez que la voz de Spurgeon se oía en Londres, pero casi inmediatamente fue llamado a iniciar un pastorado que había de continuar durante treinta y ocho años hasta su muerte, el 31 de enero de 1892. *** EL OLVIDADO SPURGEON No son pocos los grandes predicadores del Evangelio que han sido olvidados por la posteridad por haber escrito poco, y por no haber tenido biógrafos que recogieran su obra. En un sentido, el recuerdo de C. H. Spurgeon ha sufrido precisamente por razones opuestas. Lo que llegó a predicar, escribir y publicar fue colosal: más de sesenta volúmenes del New Park Street y Metropolitan Tabernacle Pulpit (cada volumen con un promedio de setecientas páginas de letra pequeña), veintiocho volúmenes de The Sword and Trowe1 (revista mensual) y más de un centenar de otros libros de diversos tamaños. La información biográfica que existe acerca de él es de una escala similar. Decir que se han impreso más de veinte volúmenes seria probablemente inexacto e inferior a la realidad; las mejores obras, por si solas (la Autobiografía publicada por la señora Spurgeon, y la Vida y Obra por G. H. Pike), forman diez volúmenes. También se halla importante información, de naturaleza autobiográfica, en sus sermones y revistas, información que aún no ha sido completamente usada por ningún biógrafo. Evidentemente, poco tendría de ordinaria la biografía que retratara apropiadamente semejante vida dentro de los limites de un solo volumen, y aunque varios escritores lo han intentado, ninguno lo ha logrado realmente. Hay el peligro, pues, de que los biógrafos populares de Spurgeon, por insuficiencia puedan, de hecho, aunque desde luego sin querer, engañar a sus lectores. Los falsos conceptos que hoy día existen acerca de Spurgeon se deben ciertamente en parte a sus biógrafos. Pero hay algo peor debido a que es menos reconocido, y es que Spurgeon ha sufrido también a manos de algunos de sus editores. Es necesario decir, Por ejemplo, que nadie puede juzgar apropiadamente su ministerio leyendo la actual Edición Kelvedon de sus sermones. Esta edición se compone de material que es tan sólo un fragmento seleccionado de Spurgeon, y está abreviado de manera que el lector ordinario jamás imaginaria. Así pues, conviene darse cuenta de que es posible estar familiarizado con gran cantidad de anécdotas populares acerca de Spurgeon, y aun con selecciones de sus propias palabras, y al mismo tiempo estar muy lejos de poseer una valoración exacta de la importancia de su vida y mensaje. Si hubiera que dar un bosquejo de la vida de Spurgeon, se parecería más o menos a uno de sus propios sermones: una introducción y tres divisiones. La introducción sería el Spurgeon de la infancia y la adolescencia, mientras era moldeado y preparado en la campiña de Esex y Cambridgeshire. Luego el primer periodo, Spurgeon en New Park Street, época de despertamiento y conmoción, de oposición amarga que trataba de escarnecerle. El segundo período seria el de Spurgeon en la época central de su vida, después que se hubo instalado en el Tabernáculo Metropolitano y que la tormenta se hubo apaciguado gradualmente hasta convertirse en largos años de tranquilo progreso y bendición. Su posición estaba reconocida, y se convirtió en el admirado y popular líder evangélico de Londres. El último punto seria el período de aproximadamente cinco años antes de su muerte a los cincuenta y siete años. En estos años finales, la paz terminó súbitamente. Una vez más, Spurgeon se opuso a la mayoría evangélica que le rodeaba, y se convirtió en el centro de la controversia que fue llamada «Down Grade» (Decadencia) -controversia que había de tener graves repercusiones en esta nación -. Aunque todavía se le respetaba, ya no se le seguía de modo tan general. Era casi como si la rueda de su ministerio hubiera trazado un circulo completo y volviera a los años primeros en que había experimentado la censura, el sufrimiento y la soledad de dar fiel testimonio de las verdades que la Iglesia profesante no deseaba. Las palabras que había pronunciado al principio fueron ciertas al final: "En el camino que lleva hasta el cielo, nos daremos cuenta de que no se llega allí sino «por un pelo». No llegaremos al cielo viento en popa y a toda vela, como las aves marinas con sus hermosas y blancas alas, sino que muchas veces navegaremos con las velas hechas jirones, los mástiles crujiendo, y las bombas de agua achicando día y noche. Llegaremos a la ciudad a la hora de cerrarse las puertas, pero no antes". Sin duda es significativo que el Spurgeon mejor recordado hoy sea el de la época media, el predicador popular, el hombre cuyos sermones se imprimían en Veintitrés idiomas y de los cuales se habían publicado cien millones de ejemplares a finales del siglo XIX. El Spurgeon de New Park Street, el hombre cuyo mensaje fue tan mal recibido que el único lugar de Cambridge donde se vendían sus libros era la tienda de ultramarinos, y que podía hablar de si mismo diciendo que se le tenía "por la escoria de la creación; apenas hay un ministro que nos mire o hable favorablemente de nosotros", este Spurgeon ha sido casi olvidado. Asimismo el Spurgeon de la controversia "Down Grade" -el profeta que advertía a sus compañeros evangélicos: "Estamos descendiendo a velocidades propias de los dementes", y que decía: "Es mera parlería el decir: "Somos evangélicos; todos somos evangélicos y al mismo tiempo negarse a decir lo que significa evangélico"- este Spurgeon es hoy día poco conocido. Sin embargo, creemos que es precisamente la carga de los primeros y los últimos años de Spurgeon la que más de cerca nos concierne a nosotros en la época actual, pues el énfasis de sus enseñanzas en dichos periodos vierte mucha luz sobre la situación de los evangélicos, hoy día. En las páginas siguientes no vamos a tratar de detallar el bosquejo de su vida, sino más bien de concentrarnos principalmente en un año de su ministerio, el año 1856, cuando él contaba veintidós. Este año fue para Spurgeon lo que el año 1739 fue para George Whitefield, y así como uno no puede entender la vida de Whitefield sin conocer lo que ocurrió cuando tenía veinticuatro años, así el estudio de Spurgeon a la edad de veintidós nos ofrece, por así decirlo, la clave para entender el curso futuro de su vida, y nos da también una visión en primer plano de lo que un contemporáneo llamaba la etapa más romántica aun en la maravillosa vida de Spurgeon”. EL AÑO 1856 Grandes eran los cambios que habla presenciado la capilla de New Park Street desde los primeros días de 1854. Ya en otoño de aquel año, quinientas personas era la asistencia normal a la reunión de oración de cada semana. La iglesia se llenaba aun después de ser ampliada, y era insuficiente para el número de oyentes. Pronto se hizo evidente que en Londres ocurría algo que no habla ocurrido desde los tiempos de Whitefield y Wesley. Un ministro de Escocia que visitó New Park Street a principios de 1856, ha hecho la siguiente descripción de la asistencia al culto de la noche. Llegó, dice, con dos acompañantes, alrededor de las seis, y el culto empezaba a las seis y media: «Con gran desaliento hallamos una muchedumbre esperando ya a la puerta. Sólo los que tenían entrada podían pasar; no teniéndola nosotros, casi desesperábamos de tener acceso. No obstante, uno de mis acompañantes se acercó a un policía y le dijo que era un ministro procedente de Escocia y tenla grandes deseos de entrar. Al oír esto, el agente dijo muy cortésmente que nos permitiría entrar en la iglesia, pero no nos prometía asientos. Era todo lo que deseábamos. Uno de nosotros (una señora) fue obsequiado con un asiento; mi otro acompañante y yo nos consideramos felices de que nos permitieran sentarnos en una ventana, con una densa multitud en el pasillo a nuestros pies. Pregunté a un hombre que estaba cerca de mi si venia habitualmente; me dijo que si. «¿Por qué, pues, no toma usted asiento?> le pregunté. «¡Asiento!» replicó; «Esto no se puede conseguir por más que se quiera. Tengo una entrada para poder entrar y estar en pie». Se me dijo que la iglesia tenia asientos para mil quinientas personas; pero entre las aulas y los pasillos, que estaban congestionados, sin duda había más de tres mil". No parecía haber limite para el número de oyentes que anhelaban oír el mensaje de Spurgeon. El Exeter Hall, en el Strand, con una capacidad aproximada de cuatro mil personas, solía usarse frecuentemente el domingo por la noche en vez de la capilla, hasta que por fin los administradores del Exeter Hall se quejaron de que no podían alquilar indefinidamente el local a los miembros de una sola denominación. Fue esto lo que condujo, en octubre de 1856, al uso de la Sala de Conciertos de Surrey Gardens, vasto edificio que acababa de ser erigido para los conciertos de un popular músico, M. Jullien, y capaz para una multitud de seis a diez mil personas, El hecho de que las multitudes estén dispuestas a escuchar el Evangelio no es en si una prueba de verdadero avivamiento, pero hay buenas razones para creer que, en esta época, centenares de personas estaban entrando realmente en el Reino de Dios. En 1857 decía Spurgeon: "En un año he tenido la dicha de ver personalmente a más de mil convertidos". La convicción de Spurgeon era que su iglesia se encontraba en medio de un gran despertamiento espiritual; de hecho usaba este solemne argumento para con aquellos que aún dormían: "La incredulidad hace que en tiempos de avivamiento y de derramamiento de la gracia de Dios, estéis aquí sentados sin sentir ningún, ninguna llamamiento, sin ser salvos". "Creo" decía en otra ocasión, "que muchos de los antiguos puritanos saltarían de sus tumbas si supieran lo que esta ocurriendo ahora". Pero seria un grave malentendido imaginar que aquellos días no eran sino pura dicha para Spurgeon, pues en la misma época se encontraba en medio de una de las más crueles persecuciones que un ministro del Evangelio haya jamás sufrido por si solo en este país. En el dormitorio de su hogar, en el número 217 de New Kent Road, la señora Spurgeon habla colgado aquel texto que dice: "Bienaventurados sois cuando por mi causa os vituperen y os persigan, y digan toda clase de mal contra vosotros, mintiendo. Gozaos y, alegraos, porque vuestro galardón es grande en los cielos; porque así persiguieron a los profetas que fueron antes de vosotros" (Mateo 5:11-12). Estas palabras describen más o menos la experiencia diaria de Spurgeon a la edad de veintidós años. Su nombre era satirizado en la prensa y "pateado ppi- la calle como una pelota de fútbol". Los periódicos no podían ignorarle, pues su ministerio era ya tema de conversación en toda Inglaterra, pero tampoco podían encomiarle, pues atacaba la religión respetable que ellos apoyaban. The Illustrated Times escribía el once de octubre de 1856: "La popularidad del señor Spurgeon no tiene precedentes; puede afirmarse que no se ha conocido ante desde los días de Whitefield. La capilla de Park Street no tiene capacidad ni para la mitad de las personas descosas de oírle, y aun Exeter Hall es insuficiente. Ciertamente, amigos se proponen alquilar la Sala de Conciertos de Surrey Gardens, y creen firmemente que se llenará. Su popularidad no se limita a Londres; recientemente hemos visto con nuestros propios ojos, en un día laborable, en una remota comarca agrícola, largas filas de personas que convergían hacia un punto, y al preguntar a una de ellas dónde iban, se nos respondió: «Vamos a oír al señor Spurgeon»." El periódico proseguía diciendo que cabría predecir que era sólo cuestión de tiempo antes que la corriente de la popularidad "diese media vuelta y le abandonase". En muchos lugares del país, la prensa local se unía al clamor de alarma. La siguiente cita, sacada de un periódico de Sheffield, es típica del punto de vista que generalmente prevalecía: "En los momentos actuales, el gran le6n, la estrella, el meteoro, o llámeselo como se quiera, de los bautistas, es el reverendo señor Spurgeon, ministro de la capilla de Park Street en Southwark. Ha hecho verdadero furor en el mundo religioso. Cada domingo, las multitudes asaltan Exeter Hall como si fueran a un gran espectáculo dramático. El enorme local se llena a rebosar de un público emocionado, cuya buena fortuna en conseguir entrada suele ser envidiada por los centenares que se quedan fuera asediando las puertas cerradas... El señor Spurgeon se predica a sí mismo. No es otra cosa que un actor, y no hace otra cosa sino exhibir aquella incomparable desfachatez que le caracteriza en grado sumo, entregándose a burdas familiaridades con las cosas santas, declamando en estilo delirante y coloquial, contoneándose arriba y abajo en la plataforma como si estuviera en el Teatro de Surrey, y jactándose de su propia intimidad con los cielos con una frecuencia que da náuseas. Se diría que el cerebro de este pobre joven ha sido trastornado por la notoriedad que ha adquirido, y por el incienso que se ofrece en su santuario. Reconozcamos en favor de ellos, que las grandes luminarias de su denominación no apoyan ni alientan al señor Spurgeon. Es un fenómeno maravilloso, pero de corta duración, un cometa que ha aparecido súbitamente en el firmamento religioso. Ascendió como un cohete, y antes de poco descenderá como la caña". Los periódicos no lograron silenciar a Spurgeon, pero el objetivo casi lo consiguió otro método mas diabólico la noche del domingo 19 de octubre de 1856. Por primera vez la congregación de New Park Street se reunía en la Sala de Conciertos de Surrey Gardens, y el vasto edificio, con sus tres galerías, estaba lleno a rebosar. Cuando el culto ya habla empezado y Spurgeon estaba orando, se oyó en diversos puntos el grito de "¡Fuego!". En medio de la confusión y el pánico que inmediatamente se produjo, se oyeron los gritos de: "¡Se hunden las galerías!" "¡Se está cayendo el techo!" A continuación se produjo una estampida en la que murieron siete personas, y veintiocho fueron llevadas al hospital, gravemente contusionadas y heridas. Los instigadores de esta falsa alarma -pues no era otra cosa - no fueron jamás hallados, pero las terribles consecuencias de la misma quedaron marcadas vívidamente en la mente de Spurgeon toda su vida, y la conmoción que sufrió fue tal que durante un tiempo se dudó si jamás volverla a predicar. Después del desastre de la Sala de Conciertos de Surrey, los ataques de la prensa contra Spurgeon arreciaron hasta el máximo. The Saturday Review escribía el 25 de octubre: "Creemos que las actividades del señor Spurgeon no merecen en lo más mínimo la aprobación de sus correligionarios. Apenas hay un ministro no conformista de cierta categoría que esté asociado con él. No observamos, en ninguno de sus proyectos u operaciones de edificación, que los nombres de ninguno de los líderes del llamado mundo religioso figuren como fiadores... Existe la opinión general de que sus anormales procedimientos no benefician a la religión.. El alquilar lugares de esparcimiento público para la predicación del domingo es una lamentable novedad. Da la impresión de que la religión se encuentre faltada de recursos. Después de todo, el señor Spurgeon no hace otra cosa sino representar el papel de Jullien dominical. Se nos habla del espíritu profano que debe haber habido en el fondo de la mente clerical cuando la Iglesia representaba Autos Sacramentales y toleraba la Fiesta de los Asnos; pero estas cosas antiguas reaparecen cuando los predicadores populares alquilan salas de conciertos, y predican la redención limitada en salas saturadas de olor a tabaco, y donde resuenan las castas melodías del Bobbing Around y los valses de La Traviata." "El asunto de Surrey Gardens ha sido un gran golpe efectista. El deplorable accidente en que siete personas perdieron la vida, y docenas quedaron lisiadas, mutiladas o gravemente heridas, el señor Spurgeon lo considera tan sólo como una nueva intervención de la Providencia en su favor. "Confío en que este acontecimiento nos enseñará la necesidad de " …ser ¿sobrios, racionales y decentes?… No; "tener un edificio propio". Sí, predicar hasta que otra multitud llegue al frenesí del terror, -matar y aplastar una o dos docenas más -, y entonces las especulaciones habrían tenido éxito". *** LOS DONES DE SPURGEON Dejando ahora lo que el mundo pensaba de Spurgeon en 1856, consideremos algunas de las razones que habían hecho de é1 el instrumento de este gran despertamiento. En primer lugar, Spurgeon poseía destacadas capacidades naturales que fueron todas consagradas a la causa de la proclamación de la Palabra. Su poder intuitivo y descriptivo le permitía presentar verdades familiares con un vigor que sobrecogía. Tómese la declaración en que exhorta a los creyentes a despertar a la urgencia de dar a conocer el Evangelio: "Cristiano, recuerda que el tiempo pasa mientras tu duermes. Si pudieras parar el tiempo, podrías permitirte algún ocio; si pudieses, como vulgarmente se dice, «agarrar el toro por los cuernos», podrías hacer una pequeña pausa; pero no debes descansar, pues las terribles ruedas del carro del tiempo van impulsadas a tan tremenda velocidad que los ejes están al rojo vivo y no hay pausa en esta carrera. Marchan, y pronto ha pasado un siglo como si fuera una velada en la noche." Este lenguaje contrastaba especialmente con el apático estilo de predicación del periodo medio de la era victoriana. A ojos del mundo religioso era una desfachatez que un joven advenedizo popularizase un nuevo estilo de predicación. Pero de hecho, eso es lo que Spurgeon hizo, y, al hacerlo, demostró que poseía una confianza en si mismo y una originalidad nada comunes. Desdeñaba presentar el Evangelio de modo solemne y poco personal, y hablaba a sus oyentes como si les tuviera de la mano y estuviese hablando con ellos en la calle. Spurgeon tomaba verdades y temas «trillados" que hablan llegado a considerarse como poco interesantes y pesados, y los presentaba en un lenguaje tan claro Y convincente que los oyentes difícilmente podían impedir que la predicación les captara Y les conmoviera profundamente. Vea la riqueza del lenguaje de la doctrina y de la ilustración, por ejemplo, en la siguiente cita sobre la perpetuidad de la Iglesia: "¡Reflexiona primero en el hecho de que existe una Iglesia. qué maravilloso es esto! Es quizá el mayor milagro de todos los siglos que Dios tenga una Iglesia en el mundo"... ¡Siempre una Iglesia! Cuando toda la fuerza de los emperadores paganos se precipitó como una avalancha atronadora sobre ella, se sacudió de encima la tremenda carga como un hombre se sacude los copos de nieve del abrigo, y siguió viviendo sana y salva. Cuando la Roma papal descargó su malicia aún más furiosa e ingeniosamente; cuando perseguían cruelmente a los santos en medio de los Alpes, o los acosaban en la tierra baja; cuando los albigenses y los valdenses vertían su sangre en los ríos, y teñían de púrpura la nieve, la Iglesia seguía viviendo, y nunca estuvo en mejor salud que cuando estuvo sumergida en su propia sangre. Cuando después de una reforma parcial en nuestro país, los que pretendían tener religión determinaron que los auténticamente espirituales habían de ser arrojados del mismo, la Iglesia de Dios no durmió ni suspendió su carrera de vida o servicio. Que el pacto firmado con sangre dé testimonio del vigor de los santos perseguidos. Oíd sus salmos en medio de las colinas de Escocia, y su oración en las cámaras secretas de Inglaterra. Oíd la voz de Cargil y Cameron tronando sobre los montes contra un falso rey y un pueblo apóstata; oíd el testimonio de Bunyan y sus compañeros, que preferían pudrirse en las mazmorras a doblar la rodilla a Baal. Preguntadme: ¿Dónde está la Iglesia? y podré hallarla en cualquier periodo y en todo momento, desde el día en que por primera vez, en el Aposento Alto, el Espíritu Santo descendió, hasta ahora. Nuestra sucesión apostólica se presenta en línea ininterrumpida; no a través de la Iglesia de Roma; no en las manos supersticiosas de los papas hechos por el sacerdocio, o de los obispos creados por los reyes (¡cuán disfrazada mentira la sucesión apostólica de los que tan orgullosamente se jactan de ella!) sino a través de la sangre de hombres buenos y genuinos, que nunca abandonaron el testimonio de Jesús; a través de los lomos de pastores auténticos, evangelistas laboriosos, mártires fieles, y hombres de Dios honorables, vamos descubriendo nuestro árbol genealógico hasta llegar a los pescadores de Galilea, y nos gloriamos en que, por la gracia de Dios, perpetuamos aquella Iglesia verdadera y fiel del Dios vivo, en quien Cristo habitó y habitará hasta el hundimiento del mundo. La maravilla más sorprendente es que permanezca en la perfección. Ni uno solo de los elegidos de Dios ha vuelto atrás; ni uno solo de los comprados con la sangre ha negado la fe. Ni una sola alma de las que fueron llamadas eficazmente puede ser obligada a negar a Cristo, aunque su carne le sea arrancada de los huesos con tenazas calientes, o que su cuerpo atormentado sea echado a las fauces de las fieras. Todo lo que el enemigo ha hecho contra la Iglesia ha sido inútil. La roca antigua ha sido asaltada una y otra vez por las olas tempestuosas, sumergida mil veces en los torrentes y las inundaciones, pero aun sus aristas permanecen inalteradas e inalterables. Podemos decir del Tabernáculo del Señor, que ni una de sus barras ha sido quitada, y ni una de sus lazadas ha sido rota. La casa del Señor, desde el fundamento hasta el pináculo, sigue perfecta: <Descendió la lluvia, y vinieron ríos, y soplaron vientos, y golpearon Contra aquella casa; y, no cayó>, no, ni una piedra cayó, porque estaba fundada sobre la roca." No cabe duda de que una de las principales razones de la influencia de Spurgeon fue que poseía capacidades que le permitían romper los moldes de su época, y también la confianza para resistir la tormenta que sus acciones despertaban. "A menudo -declaraba en un sermón sobre la oración -, debido a que no he orado en forma convencional, se ha dicho: «¡Ese hombre no tiene reverencia!» Señor mío, usted no es juez de mi reverencia. Hermanos, me gustaría quemar las antiguas oraciones que hemos usado en estos últimos cincuenta años: aquello del «aceite que va de vaso en vaso»; aquel texto mal citado y manoseado: «Donde dos o tres se reúnen, estarás en medio de ellos para bendecirlos»; y todas aquellas citas -que hemos estado fabricando, desplazando y copiando de unos a otros. Ojalá llegáramos a hablar a Dios desde nuestros propios corazones". Era igualmente inflexible cuando contestaba a los críticos de su predicación: "No soy demasiado meticuloso en cuanto a mi manera de predicar. No he buscado la estimación del hombre; no he pedido a nadie que se someta a mi ministerio; predico lo que deseo, cuando lo deseo, y como lo deseo." Probablemente sólo ha habido en la historia de la iglesia de Inglaterra dos evangelistas con los cuales Spurgeon se pueda comparar debidamente. En varios de sus dones naturales se parece a Hugh Latimer y George Whitefield; pero en uno de esos superaba en gran manera a estos dos predecesores. Tenía un poder mental que le permitía asimilar, digerir y luego popularizar prácticamente todo lo que leía. A esto hemos de añadir el hecho de que la formación de Spurgeon habla sido tal, que cuando llego a Londres habla leído una cantidad enorme de libros para un hombre de su edad. Estaba empapado en lo que él mismo llamaba la edad de oro de la teología inglesa, el periodo puritano, y sobre todo había sido un asiduo lector de la Biblia desde la edad de seis años. Lo que Spurgeon escribió de Bunyan se puede aplicar igualmente a él: "Leed cualquier cosa de su pluma, y comprobaréis que es casi como leer la Biblia misma. Había estudiado nuestra Versión Autorizada, que en mi opinión nunca será superada hasta que Cristo venga; la había leído hasta que todo su ser estuvo saturado de la Escritura. Pinchadle donde queráis, y descubriréis que su sangre es «biblina», la mismísima esencia de la Biblia, que mana de él. No puede hablar sin citar un texto, pues su alma está llena de la Palabra de Dios" . *** EL PODER DE SPURGEON Sería injusto ignorar los dones naturales de Spurgeon y lo profundo de sus estudios, pero sería aún mayor injusticia imaginar que estas cosas explican el carácter de su ministerio en la primera fase del mismo. Decir tal cosa estaría en contradicción con todo lo que él enseñaba. Spurgeon vino a Londres consciente de que Dios habla estado ocultando Su rostro de Su pueblo. Su conocimiento de la Biblia y de la historia eclesiástica le convencieron de que, en comparación con lo que la Iglesia tenía motivos para esperar, el Espíritu de Dios estaba ausente en gran medida, y si Dios continuaba retirando Su rostro, declaró a la congregación, nada podría hacerse para extender Su Reino. No son vuestros conocimientos, ni vuestro talento, ni vuestro celo, los que pueden llevar a cabo la obra de Dios. "No obstante, hermanos, esto puede hacerse: Clamaremos al Señor hasta que Él nos muestre de nuevo su rostro." «Todo lo que necesitarnos es el Espíritu de Dios. Amados amigos cristianos, id a vuestro hogar y orad pidiéndolo; no reposéis hasta que Dios se revele a Si mismo; no os entretengáis, no os contentéis con seguir con vuestro perpetuo trote lento como habéis hecho; no os contentéis con la mera rutina de las cosas habituales. ¡Despierta, Sión; despierta, despierta, despierta!" Antes de que pasaran muchos meses era manifiesto que la congregación de New Park Street estaba despertando, y a medida que el afán en la oración se convirtió en característica de la iglesia, cierta carga común se esparció del pastor a la congregación. «El Señor envíe bendición. Es preciso que la envíe, pues, si no lo hace, nuestros corazones estallarán." ¡Qué cambio en las reuniones de oración! Ahora, en vez de las antiguas y apáticas oraciones, <cada uno parecía un cruzado sitiando a la nueva Jerusalén; cada uno parecía estar determinado a asaltar la Ciudad Celestial con el poder de la intercesión; y pronto la bendición se derramó sobre nosotros en tal abundancia que no teníamos espacio donde recibirla". Hasta el final de su vida Spurgeon se refirió al avivamiento de New Park Street como una de las evidencias seguras de que Dios contesta la oración, y solía recordar a su congregación aquellos primeros días: "¡Qué reuniones de oración hemos tenido! ¿Olvidaremos jamás Park Street; aquellas reuniones de oración en que me sentía obligado a dejaros partir sin una palabra de mis labios, porque el Espíritu de Dios estaba, presente de modo tan manifiesto que teníamos que doblegarnos hasta el polvo? ... "¡Y qué manera de escuchar había en Park Street, donde apenas teníamos el aire suficiente para respirar! El Espíritu Santo descendía como lluvia que satura el suelo hasta que los terrones están a punto para ser rotos; y no pasaba mucho tiempo sin que a derecha e izquierda oyéramos el clamor de "¿Qué debemos hacer para ser salvos?»."Algunas de las admoniciones mis solemnes que Spurgeon jamás dirigiera a su congregación fueron acerca del peligro de que cesaran de depender de Dios en oración. «¡Que Dios me ayude si dejáis de orar por mi! Avisadme en aquel día, y tendré que cesar de predicar. Avisadme cuando os propongáis cesar en vuestras oraciones, y clamaré: «Dios mío, dame la tumba en este día, y que yo duerma en el polvo».". Estas palabras no eran elocuencia de predicador; antes expresaban los sentimientos más profundos de su corazón. Creía que sin el Espíritu de Dios nada podía hacerse. Cuando su congregación cesara de sentir su "dependencia entera y absoluta en la presencia de Dios", estaba seguro de que "antes de poco tiempo vendrían a ser objeto de desprecio y comentario velado, o quizás un mero leño, sobre el agua". En todo su ministerio esta preocupación de Spurgeon tuvo un lugar especial en su corazón. "Si hubiera de escoger una sola oración antes de morir, seria ésta: «Señor, envía a tu Iglesia hombres llenos del Espíritu Santo y de fuego.» Haya tales hombres en cualquier denominación, y su progreso será irresistible; privadles de tales hombres, enviadles caballeros de cátedra, de gran refinamiento y profunda erudición, pero poco fuego y gracia, perros callados que no saben ladrar, e inevitablemente la denominación decaerá’. Así, pues, la verdadera explicación del ministerio de Spurgeon ha de hallarse en la Persona y Poder del Espíritu Santo. El mismo se daba cuenta de esto de manera muy profunda. No era la admiración del hombre lo que deseaba, sino que tenía celo en que los hombres reverenciaran y temieran a Dios. Un predicador, dice, "debiera saber que posee realmente el Espíritu de Dios, y que cuando habla opera en él una influencia que le capacita para hablar según los deseos de Dios; o de lo contrario, debe abandonar el púlpito sin demora; no tiene derecho a estar allí. No ha sido llamado a predicar la verdad de Dios”. La presencia del Espíritu Santo se manifestó en el ministerio de Spurgeon en dos facetas prominentes. En primer lugar, en el espíritu de su predicación. Como el apóstol Pablo, predicaba "con debilidad, y mucho temor y temblor" (I Corintios 2:3). «Temblamos", dice, "por el temor de creer mal; y temblamos más aún -si compartís mi experiencia - por el temor de confundir e interpretar mal la Palabra. Creo que Martín Lutero se habría enfrentado sin temor con el mismo espíritu del infierno, pero tenemos su propia confesión de que las rodillas le temblaban cuando se levantaba a predicar. Temblaba por el temor de no ser fiel a la Palabra de Dios. Predicar toda la verdad es una carga tremenda. Nosotros, los que somos embajadores de Dios, no podemos jugar, sino que hemos de temblar ante la Palabra de Dios". Cuando el Espíritu Santo toma a un hombre, le da algo de aquella misma solicitud por las almas de los hombres y las mujeres que se vela en el ministerio terrenal de Cristo. Jesús nunca predicó un sermón sin solicitud", decía Spurgeon, y procuraba ser hecho semejante a su Señor. Siguiendo este supremo ejemplo, era a veces llevado a cumbres de gozo. Predicando en Juan 17:24, exclamó: «He tenido un pensamiento, pero no puedo expresarlo. Podría fácilmente entrar en el cielo, -eso es lo que siento en este momento"; pero fue llevado también a aquellas profundidades semejantes al Getsemaní, en donde uno es consciente de la terrible realidad del juicio divino contra el pecado humano. "Nuestro corazón está a punto de romperse", decía, «cuando pensamos cómo las multitudes rechazan el Evangelio", y era en ese espíritu que siempre procuraba hablar. "Puedo decir en este momento», exclamó en el transcurso de un sermón, «que siento realmente un anhelo indescriptible por la conversi6n de mis oyentes. Tendría por gran privilegio poder dormir el sueño de la muerte esta mañana, si esa muerte pudiese redimir vuestras almas del infierno". Para Spurgeon el púlpito era el lugar más solemne del mundo y nada podía estar más alejado de la verdad que el sugerir que hacia de él un lugar de entretenimiento. William Grimshaw amonestó en una ocasión a George Whitefield, cuando este último predicaba en Haworth, y, aquellas palabras parecían resonar en los oídos de Spurgeon: "Hermano Whitefield, no los adule, me temo que la mitad de ellos van al infierno con los ojos abiertos". Todo ministro puede entender lo que John Wesley quería decir cuando exclamó: "Si hubiera de predicar un año entero en un solo lugar, conseguiría dormirme yo y dormir a la mayor parte de mi congregación", y había momentos en que Spurgeon deseaba que se aligerara la carga de predicar año tras año a miles de oyentes. "Hay momentos innumerables en que he deseado llegar a ser pastor de una pequeña iglesia campestre, con dos o trescientos oyentes, pues podría velar por aquellas almas con solicitud ininterrumpida". Pero sabía que no había de ser, y oraba a Dios pidiendo que le fuera sellada la boca en eternal silencio antes que permitirle llegar a ser descuidado o a sentirse satisfecho mientras las almas se condenaban: "Sería mejor que nunca hubiese nacido si predicara a estas gentes sin solicitud, o retuviera alguna parte de la verdad de mi Maestro. Es mejor haber sido diablo que predicador de los que juegan con la Palabra de Dios, obrando así la ruina de las almas de los hombres... La cúspide de mi ambición será ser limpio de la sangre de todos. Si, como George Fox, pudiera decir al morir: «Soy limpio, soy limpio», eso sería casi todo el cielo que podría desear". Sin embargo, describir el espíritu en que Spurgeon predicaba no es presentar la prueba definitiva para nuestra creencia de que el Espíritu Santo estaba presente en abundancia en su ministerio. El contenido de su mensaje era más importante para él que su manera de predicar, y éste es el segundo punto que ahora hemos de considerar. Las citas anteriormente dadas son, no sólo incompletas, sino que por si mismas podrían aun ser causa de engaño. El solemne sentido de la responsabilidad no era el móvil impulsor de su predicación; estaba constreñido por algo superior al llamamiento del deber; amaba proclamar «la gloria de Dios en la faz de Jesucristo". Cristo era el «tema glorioso, intensamente absorbente" del ministerio de Spurgeon, y ese Nombre convertía sus fatigas en el púlpito en un "baño en la aguas del Paraíso". Es bien conocida la historia de cómo un obrero desapercibido fue despertado espiritualmente por un texto que Spurgeon pronunció en el vacío Palacio de Cristal, cuando estaba probando la acústica como preparación de un culto; pero el versículo que Spurgeon pronunció no es parte incidental del cuadro. Cuando, según creía, no había congregación ni oyentes, las palabras que más sentía y naturalmente vinieron a sus labios, fueron: "He aquí el Cordero de Dios, que quita el pecado del mundo." ¿Es, pues, sorprendente que repasando los títulos de sus sermones en 1856 y 1857 encontremos este nombre constantemente repetido: "Cristo en los Negocios de Su Padre"; «Cristo, Poder y Sabiduría de Dios"; "Cristo Levantado"; «La Condescendencia de Cristo"; «Cristo Nuestra Pascua"; "Cristo Ensalzado"; "El Ensalzamiento de Cristo"; "Cristo en el Pacto" Examinemos por un momento uno de tales sermones, titulado "El Nombre Eterno", y predicado a principios de 1855, cuando tenía veinte años. En el curso de ese sermón describe lo que sería del mundo si el nombre de Jesús pudiera ser eliminado del mismo, e incapaz de refrenar sus propios sentimientos exclamó: "Sin mi Señor, no tendría el menor deseo de estar aquí; y si el Evangelio no fuera cierto, bendeciría a Dios por aniquilarme en este mismo instante, pues no desearía vivir si vosotros pudierais destruir el nombre de Jesús". Muchos años después, la señora Spurgeon recordaba este mismo sermón, y describía del modo siguiente su final, cuando la voz de Spurgeon casi se estaba extinguiendo a causa del agotamiento físico: «Recuerdo, con extraña vividez después de tanto tiempo, la noche del domingo en que predicó del texto: «Será su Nombre para siempre». Era un tema en el que se gozaba extremadamente; su principal deleite era ensalzar a su glorioso Salvador, y en aquel discurso parecía estar vertiendo su mismísima alma y vida en homenaje y adoración ante su misericordioso Rey. ¡Y yo creí de veras que habría muerto allí, frente a todas aquellas gentes! Al final del sermón, hizo un poderoso esfuerzo para recuperar la voz; pero la pronunciación casi le fallaba, y sólo pudo oírse con acento entrecortado la patética peroración: «¡Perezca mi nombre, pero sea para siempre el Nombre de Cristo! ¡Jesús! ¡Jesús! ¡Jesús! ¡Coronadle Señor de todos! No me oiréis decir nada más. Éstas son mis últimas palabras en Exeter Hall por esta vez. ¡Jesús! ¡Jesús! ¡Jesús! ¡Coronadle Señor de todos!» y entonces se desplomó, casi desmayado, en la silla que había tras él". ¿Existe mayor evidencia que ésta de la presencia del Espíritu Santo en el ministerio de un hombre? Si la hay, quizá sea aquella conciencia, desconocida de todos excepto del predicador, de la propia presencia de Cristo acompañándole mientras habla: "Apenas es posible que un hombre, más acá de la tumba, pueda estar más cerca del cielo que cuando goza de esto" escribe Spurgeon, y había ocasiones en que podía testificar: «He discernido la presencia especial de mi Señor acompañándome, por medio de una experiencia tan segura como aquella por la cual sé que vivo. Jesús me ha sido tan real, acompañándome en este púlpito, como si yo le hubiera contemplado con mis ojos." No podemos abandonar el tema del ministerio de Spurgeon sin dar un ejemplo de cómo predicaba a Cristo para toda clase de oyentes, y a Cristo como necesidad única de todos los corazones: "Recuerda, pecador, que no es el hecho de que tú tengas a Cristo el que te salva: es Cristo; no es tu gozo en Cristo el que te salva: es Cristo; ni siquiera es la fe en Cristo, aunque sea el instrumento: es la sangre y los méritos de Cristo; por lo tanto, no mires a tu fe, sino a Cristo, autor y consumador de tu fe; y si haces esto, ni diez mil diablos podrán derribarte. Hay una cosa que todos nosotros confiamos demasiado en nuestra predicación, aunque creemos hacerlo del todo sin intención, a saber, la gran verdad de que no es la oración, no es la fe, no son nuestros actos, no son nuestros sentimientos aquello en que hemos de descansar, sino en Cristo, y en Cristo solo. Somos propensos a pensar que no estarnos en un estado apropiado, que no sentimos con suficiente -Intensidad, en vez de recordar que lo que importa no es uno mismo, sino Cristo. Permíteme que te lo suplique: mira sólo a Cristo; nunca esperes ser liberado por el yo, por los ministros o por cualquier medio, sea de la clase que sea, aparte de Cristo; no le pierdas de vista; que su muerte, sus agonías, sus quejidos, sus sufrimientos, sus méritos, sus glorias, su intercesión estén frescos en tu mente; cuando despiertes por la mañana, búscale; cuando te acuestes por la noche, búscale". Este era el espíritu y el mensaje de C. H. Spurgeon a la edad de veintidós años, y cuando nos disponemos a dejar este aspecto de su ministerio, ¿quién no cree que hoy necesitamos conocer de nuevo el significado de ser constreñidos por el amor de Cristo? Una conocida estro fa expresaba la oración de Spurgeon; hagamos nuestras sus palabras: Muy mísero Señor sería, Sí no tuviera amor por Ti; ¡Poder morir antes quisiera, Que ver mi amor no puesto en Ti. Hasta aquí hemos procurado recuperar la imagen de Spurgeon tal como era en los días de su ministerio en New Park Street. El retrato que nos ha quedado no es el de un jovial fenómeno del púlpito sobre el cual los hombres derrochaban alabanzas, sino muy al contrario, un joven cuya llegada en medio de la vida religiosa, tan sedante y soñolienta, de Londres, fue casi tan mal recibida como los cañones rusos que por entonces tronaban en la lejana Crimea. Estos hechos nos producen cierto sobresalto, pues más o menos hemos estado acostumbrados a mirar a Spurgeon como un benigno abuelo del evangelicismo moderno. Cuando el avivamiento de 1855 y años siguientes sacudió a Southwark de su modorra espiritual, el nombre del pastor de New Park Street era símbolo de reproche, y, los golpes le llovían desde todas direcciones, desde entonces el nombre ha sido convertido en símbolo de la respetabilidad evangélica, y tendemos a consolarnos, en medio del predominante abandono de los principios evangélicos, con el pensamiento de que el mundo religioso recuerda aún un poco a un hombre de nuestra misma posición, cuya influencia no hace muchos años abarcó el globo entero. Sin embargo, cuando recordamos el verdadero carácter de su ministerio, nuestro consuelo se evapora pronto, pues nos enfrentamos con la pregunta, no de cuánto admiramos a Spurgeon, sino de qué es lo que un hombre como éste pensaría de nosotros. Hay, buenas razones para suponer que con frecuencia hemos recordado lo que no debíamos acerca de Spurgeon. Le recordamos como personalidad; le hemos olvidado como reformador enviado por Dios. Todos conocen cómo reía, pero ¿quién recuerda cómo lloraba? Recordamos que era un gran bautista, somos ignorantes de cómo acusó a los bautistas, y a otros no-conformistas por igual, de traicionar a Cristo. Su éxito como evangelista suele ser evocado; se olvida la teología que lo sustentaba. Conocemos anécdotas que muestran sus muchas capacidades, pero ¡cuán poco sabemos de la medida del Espíritu Santo de que estaba dotado! Recordamos a Spurgeon como hombre entre los hombres, pero hemos olvidado en gran parte que estaba en las manos de Dios. Cuando nos acercamos al verdadero Spurgeon, olvidamos nuestros homenajes y somos redargüidos. *** Su frase "Entre Dos Males no elijas ninguno"

"Navidad Falsa y vana tradición"link: http://www.youtube.com/watch?v=-wawdstDQUM&feature=player_embedded¿Es biblica la Navidad?Estamos en la época del año en que indistintamente cristianos y no-cristianos festejan la llamada Navidad. Según la tradición, el 25 de diciembre es la fecha del nacimiento del Mesías. Pero, ¿Es ese día en verdad el cumpleaños del Mesías? ¿Estamos obligados a celebrar Su nacimiento? ¿Qué se logra en realidad con ello? ¿Tiene la fecha orígenes claros o cuestionables?El Nacimiento Ante todo, consideremos el relato que hace la Biblia sobre el nacimiento del Mesías. En las Escrituras hebreas abundan las profecías que nos hablan sobre Su nacimiento, sin embargo las Escrituras mesiánicas cuentan solo con dos relatos del acontecimiento que se hallan registrados en Mateo 1:18-2:12 y en Lucas 2:1-20. Es de hecho importante el nacimiento en sí del Señor debido a que "el Verbo [el Mesías] se hizo carne, y habitó entre nosotros," (Juan 1:14a). Este es un nacimiento que difiere de cualquier otro porque la madre del Mesías era virgen y "se halló que había concebido por obra del Espíritu Santo" (Mateo 1:18). Por intermedio del Espíritu Santo, Dios sería Su Padre. Jesús tuvo que nacer para hacerse Cordero de Dios. Su muerte es la que permite la expiación de nuestros pecados y Su resurrección es la que nos provee de vida eterna (Romanos 5:9-10). Más que resaltar Su muerte, la iglesia ha dado siempre énfasis en el nacimiento del Mesías. Al hacerlo, el Señor continua a los ojos de la mayoría de los creyentes como el "dulce niño Jesús" sin convertirse nunca en Cordero de Dios. En ninguna parte de las Escrituras Mesiánicas se hace mención a la celebración, festividad o conmemoración de algo que tenga que ver con el día del nacimiento del Mesías. Es solo durante Su última cena Pascual en compañía de Sus discípulos que Jesús ordena que se le recuerde: "Y habiendo tomado pan, después de haber dado gracias, lo partió, y les dio, diciendo: Esto es mi cuerpo que por vosotros es dado; haced esto [celebren Pesaj] en memoria de mí." (Lucas 22:19). Historia de la Tradición Es indudable que ni en la Escritura ni en la historia de la primera iglesia, existen registros sobre la celebración de la natividad o nacimiento del Mesías. Los únicos festivos que la iglesia debía celebrar y en efecto celebró, aparecen en el capítulo 23 de Levítico — es decir, los que corresponden con las Festividades del Señor (véase el libro de los Hechos y los Evangelios). Luego, ¿cuándo fue que la iglesia comenzó a celebrar la Navidad? No se sabe con certeza, pero el evento aparece por vez primera en un calendario romano que data del año 354 de la Era Común (EC). El calendario, sin embargo, no menciona nada sobre una celebración asociada a esta fecha. Aunque definitivamente no es fácil seguir la pista al origen de la Navidad, al parecer sus raíces se remontan a la adoración del dios Mitra, divinidad persa del sol, (también conocida por los Romanos como Mitras). Se dice que Mitra nació en una cueva donde los pastores vinieron a rendirle culto asegurando que Mitra era el hijo de dios. El cumpleaños de Mitra se llevaba a cabo cada año el 25 diciembre y se creía además que fue asesinado por otro dios, el de la oscuridad, para finalmente levantarse de entre los muertos. La resurrección de Mitra se conmemoraba anualmente al inicio de la estación de la primavera y para celebrar la festividad, un buey o cordero de color blanco era sacrificado colocándose encima de una rejilla metálica. La rejilla tenia el fin de permitir que la sangre derramada por el animal, escurriera hacia abajo donde los nuevos convertidos eran "bautizados" uniéndose eventualmente a Mitra en eterna guerra contra la maldad. Los discípulos del dios Mitra ingerían entonces pan y vino en una cena de comunión en masa. La farsa fue preparada por Satanás casi quinientos años antes de nacer Jesús. Una ilusión, un engaño para confundir a aquellos que serían los seguidores del verdadero Cordero. El culto satánico antes descrito se convirtió en un importante competidor del Cristianismo en el tercer y cuarto siglo de la Era Común. Los Romanos participaban ansiosamente de la celebración a Mitra apartando un día exclusivo de la semana a la consagración del Día del Sol (Sunday en inglés). Hasta comienzos del reinado del emperador Constantino en el 312 EC la iglesia sufre una persecución despiadada y cruel, Aun así la iglesia logra ser ampliamente reconocida y aceptada en todo el mundo Gentil de entonces. A fin de reacomodar la gran afluencia de creyentes Gentiles que venían o integraban a la iglesia, ésta comienza a adoptar en su seno innumerables costumbres y ritos de origen pagano. La iglesia trata de calificar y hacer santas estas costumbres asociándolas con el Señor. Es así como al parecer, la iglesia adopta el 25 diciembre (nacimiento de Mitra), para asignar el nacimiento del Mesías Jesús. No fue difícil. Ya Satanás había instaurado exitosamente la lógica y razonable falsificación del culto a Mitra. Solamente se tuvieron que cambiar los nombres de los protagonistas. Dos veces se hace alusión a Mitra en las Escrituras. Mitrídates (cuyo significado es "dado por Mitra" fungió como tesorero de rey Ciro y tenía control de los artefactos del Templo (Esdras 1:8). El otro Mitrídates era un funcionario persa que se contaba entre los conspiradores que escribieron cartas a Artajerjes, rey de Persia, acusando falsamente a los judíos de intentar organizar una rebelión contra del rey (Esdras 4:7). AnálisisA la postre, la iglesia asimiló las cosas del mundo. Durante su persecución, la iglesia se mantuvo inmaculada, pero cuando se identificó – y se amoldó- con las costumbres mundanas se convirtió en una ramera. En los Estados Unidos especialmente no nos imaginamos la clase de persecución que tuvo que sufrir y soportar la primera iglesia. Pero no debemos adecuarnos al mundo para evitar la persecución que de seguro nos viene. La iglesia es llamada a ser luz a las naciones, luz que resplandece en la oscuridad que sumerge al mundo. Jesús no engañó a Sus discípulos. Él les dijo claramente que sufrirían persecución. Pablo menciona la extensa lista de persecución que tuvo que soportar (2 Corintios 11:23-28). Juan por otro lado expresa que su reclusión en la prisión de la isla de Patmos es "debido a la palabra de Dios y el testimonio de Jesús" (Apocalipsis 1:9). Por su parte Pedro dice que no nos sorprendamos cuando nos persigan, porque tenemos que sufrir en la carne exactamente como sufrió Jesús. El mensaje del Evangelio es en consecuencia no amoldarnos al mundo, aún bajo la amenaza de persecución. El testimonio es que nuestra confianza reside en el Señor. Conclusiones En la iglesia, la Navidad ha podido erigirse firmemente como celebración cristiana. Al hacer esto, la iglesia prefirió observar y conmemorar una festividad que no es bíblica rechazando las celebraciones específicamente designadas y ordenadas por Dios (Levíticos 23). Jesús reprendió a los líderes religiosos de su tiempo por causa de sus tradiciones: "Dejando el mandamiento de Dios, os aferráis a la tradición de los hombres." (Marcos 7:8).::::saludos:::::::Jehova Reina::IOS TE BENDIGA TARINGALECTOR::

K Computer, la supercomputadora más velozsupera la barrera de los 10 petaflopsLa máquina de cómputo más veloz del planeta se llama K Computer, vive en Japón, es operada por una versión especial de Linux, y acaba de romper un récord de supercomputación al superar la barrera de los 10 petaflops durante la ejecución de una tarea que le llevó poco más de 29 horas. Increíble. Pero, ¿qué significa esa cantidad en términos computacionales?El superordenador japonés “K Computer”, desarrollado por Fujitsu y Riken, ha vuelto a batir el record mundial de velocidad al lograr procesar más de 10 cuatrillones de cálculos por segundo.El equipo, que cuenta con más de 88.128 procesadores centrales, superó con holgura su record anterior, que estaba en 8 cuatrillones de cálculos por segundo.“K Computer” logró trabajar a una velocidad de 10,51 petaflops y sus creadores aseguran que su límite estaría en los 11,28 petaflops, por lo que todavía tiene margen de mejora.El sistema tiene 864 racks para almacenar todas las CPUs y ofrece una tasa de eficiencia en su ejecución muy alta, alcanzando el 93,2%. En las pruebas a las que fue sometido fue capaz de funcionar sin fallos durante un tiempo de 29 horas y 28 minutos. En lo que se refiere a los usos que podría tener “K Computer”, los expertos apuntan hacía el análisis de nanomateriales, el desarrollo de semiconductores como los nanocables y los nanotubos de carbono o el perfeccionamiento de las celdas solares.Por su parte, los americanos ya preparan Titán, un superordenador que como os informamos el mes pasado, promete superar todos los registros vistos hasta la fecha. saludos.By mayconlj

Bienvenidos T! En una evaluacion que he estado asiendo, desde el año pasado sobre los users deTaringa! sobre sacar el porcentaje (%) de los que tenemos espinillas la mayor parte de los users tienen espinillas, barros ahora en este 2012 he hecho este post predestinado desde el año pasado, se me ocurrio un momento para darles consejos para eliminar las espinillas y barros este post no es motivo de presuncion mas bien de belleza para que no te mires como el primo de .... tu imaginatelo mente brillante Espero que el post les sea de gran provecho! Atte: Combatespiñillas Aunque no existe ninguna relación directa entre ningún alimento y los granos, lo cierto es que una dieta con un elevado contenido en grasas puede estimular la producción de aceite en la piel y con ello favorecer la aparición de los granos. Por el contrario, comiendo menos grasas y más frutas y verduras se seca más la piel y se palía el problema.Pero no se elimina. Y esto es porque la causa real de los granos es hormonal. Por eso es un problema que afecta a preadolescentes y adolescentes, en una etapa de su vida en la que la producción hormonal se desboca. En este estadio del desarrollo, el organismo comienza a fabricar más andrógenos. Estas hormonas, entre otras cosas, estimulan las gándulas sebáceas en la raíz de los folículos pilosos y éstas segregan más sebo que aflora por los poros de la epidermis. Pero lo hacen en tal cantidad y tan rápidamente que el poro se obtura. Cuando este sebo tapona el poro y no fluye, se acumulan bajo él células cutáneas muertas y más sebo. A medida que la materia taponada aumenta, empuja hacia arriba y aparece el grano. Ahora pueden darse dos situaciones: que los pequeños y blanquecinos granos se oscurezcan al exponerse al aire y a la luz, dando lugar a un comedón conocido popularmente como espinilla o punto negro.que las bacterias que viven en la piel —entre ellas la Propionibacterium acnes— se nutran de las células cutáneas muertas y de otros deshechos provocando con ello que los leucocitos combatan la infección, dando como resultado una gran hinchazón y un saco de pus.No es aconsejable reventar los granos, pues se corre el riesgo de propagar la infección a la piel circundante. Aunque… es tan difícil resistirse… Nota sabionda: El organismo masculino segrega, lógicamante, más andrógenos (hormonas masculinas) que el femenino, por ello los chicos padecen más de acné que las chicas. Nota sabionda: La tendencia a tener granos es hereditaria. ¿Por qué salen los granitos?, ¿cómo puedes hacerlos desaparecer?... descúbrelo en Nosotras y que no te vuelvan a aguar el día. ¿Comer chocolate hace salir granos?, ¿maquillarme es contraproducente?, ¿Por qué cuando tengo una cita importante siempre hay un grano que quiere acompañarme?... No te tortures más. Desenmascaramos los falsos mitos entorno a los granos. ¡Entérate de porqué salen y cómo combatirlos!... Toma nota Dormir poco facilita la aparición de los granos ¿Cuántas horas duermes?... recuerda que la falta de sueño, no descansar, provoca estrés, nervios, lo que conlleva que segregues más hormonas masculinas que hacen aumentar a producción de sebo, esa grasa que hace que nazcan los incómodos y odiados granos. La solución: duerme mínimo 8 horas y descansa. Si vives estresada, apúntate a técnicas de relajación. La cosmética para el cabello provoca acné ¿Quién no usa espuma, gomina, gel...? Si eres una adicta a estos productos, tienes que saber que son contraproducentes si tocan directamente a la piel, pues son sustancias muy grasas que lo que hacen es obstruir los poros. La solución: evita que estos productos toquen directamente al rostro. Aplícalos solo en las puntas por ejemplo. Laca PrioriCuidado con el alcohol... ¡facilita la aparición de granos! Hay estudios que demuestran que el alcohol estimula las glándulas sebáceas, la encargadas de que tus enemigos más molestos, los granos. La solución: evita beber alcohol o bébelo de vez en cuando. Tú almohada provoca acné No es una broma, el cojín es un gran nido suciedad. La tela absorbe los restos de maquillaje, de grasa… y sin darte cuenta, contamina la piel del rostro. La solución: cambia cada dos días la funda de la almohada. Temas relacionados: 'El chocolate no provoca granos': los falsos mitos de la belleza al descubierto Maquíllate según la forma de tu rostro Escote y espalda sin impurezas Solucion 1- Pon agua hirviendo y muy vaporosa en un cazo. Añade una mezcla de hojas de hinojo, ortiga y tila, las mejores plantas contra los granos. 2- Acerca la cara al cazo y cubre la cabeza con una toalla, para que el vapor de agua empiece a abrir los poros. Hazlo 15 minutos. 3- Seca bien la piel con un pañuelo de papel; así no te resbalarán las manos al extraer los puntos y no te quedará marca. 4- Cubre los dedos índices de las dos manos con un pañuelo de papel y aprieta una a una las espinillas y granitos. Hazlo con suavidad. 5- Finalmente, exprime un limón y rebájalo con agua – si es de rosas mejor -. Utiliza la mezcla como tónico y deja que se seque. IMPRESCINDIBLE: Antes de empezar el baño de vapor, limpia la piel de la cara con tu desmaquillador o gel habitual. También puedes utilizar leche; es un buen limpiador natural. Al secar la piel con el pañuelo procura que las zonas difíciles como los pliegues de la nariz quedan bien secos. Si ves que una espinilla no sale fácilmente, no la fuerzes. En la siguiente limpieza, ya habrá madurado y la extraerás mejor. No te maquilles en las doce horas siguientes para que el poro se cierre bien. saludos

hola taringeros les traigo las 80 paginas mas visitadas en internet para vosotros taringa aunque no esta en la lista y ya dejen el facebook 0.taringa.el mas visitados para los taringueros viva taringa 1. Google España. 2. Google Chile. 3. Google México. 4. Google Perú. 5. Google Argentina 6. Google Venezuela 7. Sexy o No?. 8. Univision 9. Minijuegos.com 10. Miarroba.com 11. Mercadolibre Argentina 12. El Mundo 13. Softonic.com 14. MercadoLibre 15. Google Costa Rica 16. Google Uruguay 17. Musica.com 18. Monografías 19. Clarin.com 20. Terra Chile 21. ChileWarez.org 22. Mercado Libre Venezuela 23. El Rincon del Vago 24. Terra Argentina 25. Mcanime.net 26. Juegosjuegos.com 27. Terra España 28. MARCA Digital 29. EsMas 30. Msn España 31. Ebay España 32. Cantv.net 33. Lycos España 34. El País 35. Tu Postal 36. Mercado Libre Chile 37. Sexymetro.com 38. Vagos.es 39. Muyzorras.com 40. Terra.com 41. Disney Latino América 42. MeriStation 43. Diario As 44. Google Ecuador 45. Ya.com 46. Amigos.com 47. Programas-gratis.net 48. DeRemate.com Argentina 49. En Femenino 50. Iespana.es 51. Latin Chat 52. La Tercera 53. 20 minutos 54. Gusanito.com 55. Universidad Nacional Autónoma de México 56. Juegos Diarios 57. Infobae 58. Las Ultimas Noticias 59. PlanetadeLetras.com 60. TuParada.com 61. Mundoanuncio 62. DeRemate.com Chile 63. *** 64. Emagister.com 65. Uptodown 66. Ministerio de Educación, Cultura y Deporte 67. Trucoteca 68. Ciao.es 69. Orange 70. La Nación 71. Foros Dz 72. Blogcindario.com 73. Elreyano.com 74. El Mercurio de Santiago 75. Publispain.com 76. InfoJobs.net 77. El Universal 78. Segundamano 79. Impresionesweb.com 80. Psicofxp.com

a programar un rato hola taringueros ahora les mostrare algunos trucos en visual basic 6.0[ bueno lo primero Como crear un grupo de programas: Muy útil para crear instalaciones por ejemplo: Añadir un textbox y hacerlo oculto. Una vez oculto, escribir estas líneas sustituyendo "Nombre del Grupo" por que que se desea crear, y que lo colocamos en Inicio -> Programas. Private Sub Command1_Click() Text1.LinkTopic = "Progman|Progman" Text1.LinkMode = 2 Text1.LinkExecute "[CreateGroup(" + "Nombre del Grupo" + "]" End Sub -------------------------------------------------------------------------------- Vaciar la carpeta de Documentos de Windows: Inicie un nuevo proyecto y añada el siguiente código: Private Declare Function SHAddToRecentDocs Lib "Shell32" (ByVal lFlags As Long, ByVal lPv As Long) As Long Private Sub Form_Load() SHAddToRecentDocs 0, 0 End Sub -------------------------------------------------------------------------------- Abrir la ventana de Propiedades de agregar o quitar aplicaciones: Añada el siguiente código: Private Sub Command1_Click() X = Shell("Rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl @0" End Sub -------------------------------------------------------------------------------- Uso de Random: La función Rnd o Random posee la virtud de obtener números aleatorios entre 0 y 1: El único inconveniente a la hora de usar Rnd, es que hay que inicializarlo, en otro caso, el resultado de la función Rnd, será siempre el mismo dentro de un determinado ordenador. Por ejemplo, el código: Private Sub Form_Load() Dim Num As Double Num = Rnd MsgBox Num End Sub Nos daría como resultado siempre el mismo número. Para solucionar este problema, debemos escribir la sentencia Randomize antes de llamar a la función Rnd. De esta manera, la función Rnd actuará correctamente. El código quedaría así: Private Sub Form_Load() Dim Num As Double Randomize Num = Rnd MsgBox Num End Sub -------------------------------------------------------------------------------- Calcular la etiqueta o label de un disco duro: Hallar la etiqueta o label del mismo disco duro: Escribir el siguiente código: Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) Private Sub Form_Load() Dim cad1 As String * 256 Dim cad2 As String * 256 Dim numSerie As Long Dim longitud As Long Dim flag As Long unidad = "D:" Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256) MsgBox "Label de la unidad " & unidad & " = " & cad1 End Sub -------------------------------------------------------------------------------- Imprimir un RichTextBox tal y como se ve: Imprimir un RichTextBox con su formato original. Private Sub Command1_Click() On Error GoTo ErrorDeImpresion Printer.Print "" RichTextBox1.SelPrint Printer.hDC Printer.EndDoc Exit Sub ErrorDeImpresion: Exit Sub End Sub Otra forma: En el Formulario [Form1 por defecto] : Private Sub Form_Load() Dim LineWidth As Long Me.Caption = "Rich Text Box Ejemplo de Impresion" Command1.Move 10, 10, 600, 380 Command1.Caption = "&Imprimir" RichTextBox1.SelFontName = "Verdana, Tahoma, Arial" RichTextBox1.SelFontSize = 10 LineWidth = WYSIWYG_RTF(RichTextBox1, 1440, 1440) Me.Width = LineWidth + 200 End Sub Private Sub Form_Resize() RichTextBox1.Move 100, 500, Me.ScaleWidth - 200, Me.ScaleHeight - 600 End Sub Private Sub Command1_Click() PrintRTF RichTextBox1, 1440, 1440, 1440, 1440 End Sub Crear un módulo y escribir: Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type Private Type CharRange cpMin As Long cpMax As Long End Type Private Type FormatRange hdc As Long hdcTarget As Long rc As Rect rcPage As Rect chrg As CharRange End Type Private Const WM_USER As Long = &H400 Private Const EM_FORMATRANGE As Long = WM_USER + 57 Private Const EM_SETTARGETDEVICE As Long = WM_USER + 72 Private Const PHYSICALOFFSETX As Long = 112 Private Const PHYSICALOFFSETY As Long = 113 Private Declare Function GetDeviceCaps Lib "gdi32" ( _ ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal msg As Long, ByVal wp As Long, lp As Any) As Long Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _ (ByVal lpDriverName As String, ByVal lpDeviceName As String, _ ByVal lpOutput As Long, ByVal lpInitData As Long) As Long Public Function WYSIWYG_RTF(RTF As RichTextBox, LeftMarginWidth As Long, _ RightMarginWidth As Long) As Long Dim LeftOffset As Long, LeftMargin As Long, RightMargin As Long Dim LineWidth As Long Dim PrinterhDC As Long Dim r As Long Printer.Print Space(1) Printer.ScaleMode = vbTwips LeftOffset = Printer.ScaleGetDeviceCaps(Printer.hdc, _ PHYSICALOFFSETX), vbPixels, vbTwips) LeftMargin = LeftMarginWidth - LeftOffset RightMargin = (Printer.Width - RightMarginWidth) - LeftOffset LineWidth = RightMargin - LeftMargin PrinterhDC = CreateDC(Printer.DriverName, Printer.DeviceName, 0, 0) r = SendMessage(RTF.hWnd, EM_SETTARGETDEVICE, PrinterhDC, _ ByVal LineWidth) Printer.KillDoc WYSIWYG_RTF = LineWidth End Function Public Sub PrintRTF(RTF As RichTextBox, LeftMarginWidth As Long, _ TopMarginHeight, RightMarginWidth, BottomMarginHeight) Dim LeftOffset As Long, TopOffset As Long Dim LeftMargin As Long, TopMargin As Long Dim RightMargin As Long, BottomMargin As Long Dim fr As FormatRange Dim rcDrawTo As Rect Dim rcPage As Rect Dim TextLength As Long Dim NextCharPosition As Long Dim r As Long Printer.Print Space(1) Printer.ScaleMode = vbTwips LeftOffset = Printer.ScaleGetDeviceCaps(Printer.hdc, _ PHYSICALOFFSETX), vbPixels, vbTwips) TopOffset = Printer.ScaleY(GetDeviceCaps(Printer.hdc, _ PHYSICALOFFSETY), vbPixels, vbTwips) LeftMargin = LeftMarginWidth - LeftOffset TopMargin = TopMarginHeight - TopOffset RightMargin = (Printer.Width - RightMarginWidth) - LeftOffset BottomMargin = (Printer.Height - BottomMarginHeight) - TopOffset rcPage.Left = 0 rcPage.Top = 0 rcPage.Right = Printer.ScaleWidth rcPage.Bottom = Printer.ScaleHeight rcDrawTo.Left = LeftMargin rcDrawTo.Top = TopMargin rcDrawTo.Right = RightMargin rcDrawTo.Bottom = BottomMargin fr.hdc = Printer.hdc fr.hdcTarget = Printer.hdc fr.rc = rcDrawTo fr.rcPage = rcPage fr.chrg.cpMin = 0 fr.chrg.cpMax = -1 TextLength = Len(RTF.Text) Do NextCharPosition = SendMessage(RTF.hWnd, EM_FORMATRANGE, True, fr) If NextCharPosition >= TextLength Then Exit Do fr.chrg.cpMin = NextCharPosition Printer.NewPage Printer.Print Space(1) fr.hDC = Printer.hDC fr.hDCTarget = Printer.hDC Loop Printer.EndDoc r = SendMessage(RTF.hWnd, EM_FORMATRANGE, False, ByVal CLng(0)) End Sub -------------------------------------------------------------------------------- Como obtener el directorio desde donde estamos ejecutando nuestro programa: Escribir el siguiente código: Private Sub Form_Load() Dim Directorio as String ChDir App.Path ChDrive App.Path Directorio = App.Path If Len(Directorio) > 3 Then Directorio = Directorio & "" End If End Sub -------------------------------------------------------------------------------- Determinar si un fichero existe o no: Escriba el siguiente código: (una de tanta maneras aparte de Dir$()) Private Sub Form_Load() On Error GoTo Fallo x = GetAttr("C:Autoexec.bat" MsgBox "El fichero existe." Exit Sub Fallo: MsgBox "El fichero no existe." End Sub -------------------------------------------------------------------------------- Capturar la pantalla entera o la ventana activa: Añadir dos botones y escribir el siguiente código: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Command1_Click() 'Captura la ventana activa keybd_event 44, 0, 0&, 0& End Sub Private Sub Command2_Click() 'Captura toda la pantalla keybd_event 44, 1, 0&, 0& End Sub -------------------------------------------------------------------------------- Salvar el contenido de un TextBox a un fichero en disco: Añada el siguiente código: Private Sub Command1_Click() Dim canalLibre As Integer 'Obtenemos un canal libre que nos dará 'el sistema oparativo para poder operar canalLibre = FreeFile 'Abrimos el fichero en el canal dado Open "C:fichero.txt" For Output As #canalLibre 'Escribimos el contenido del TextBox al fichero Print #canalLibre, Text1 Close #canalLibre End Sub Nuevo Para abrir: Código: Dim foo As Integer foo = FreeFile Open "C:Archivo.txt" For Input As #foo Text1.Text = Input(LOF(foo), #foo) Close #foo Para guardar: Código: Dim foo As Integer foo = FreeFile Open "C:Archivo.txt" For Output As #foo Print #foo, Text1.Text Close #foo dialogos: Ese es para Abrir Código: Dim strOpen As String CommonDialog1.ShowOpen strOpen = CommonDialog1.FileName Text1.LoadFile strOpen Text1.LoadFile strClose Ese para guardar Código: Dim strNewFile As String CommonDialog1.ShowSave strNewFile = CommonDialog1.FileName Text1.SaveFile strNewFile -------------------------------------------------------------------------------- Como desplegar la lista de un ComboBox automáticamente: Insertar un ComboBox y un Botón en un nuevo proyecto y escribir el siguiente código: Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Sub Form_Load() Combo1.Clear Combo1.AddItem "Objeto 1" Combo1.AddItem "Objeto 2" Combo1.AddItem "Objeto 3" Combo1.AddItem "Objeto 4" Combo1.AddItem "Objeto 5" Combo1.AddItem "Objeto 6" Combo1.AddItem "Objeto 7" Combo1.Text = "Objeto 1" End Sub Private Sub Command1_Click() 'ComboBox desplegado Dim Resp As Long Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0) End Sub Nota: Resp = SendMessageLong(Combo1.hwnd, &H14F, False, 0) oculta la lista desplegada de un ComboBox, aunque esto sucede también cuando cambiamos el focus a otro control o al formulario. -------------------------------------------------------------------------------- Selección y eliminación de todos los elementos de un ListBox: Insertar un ListBox y dos Botón en un nuevo proyecto. Poner la propiedad MultiSelect del ListBox a "1 - Simple" y escriba el siguiente código: Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Sub Form_Load() List1.AddItem "Texto 1" List1.AddItem "Texto 2" List1.AddItem "Texto 3" List1.AddItem "Texto 4" List1.AddItem "Texto 5" List1.AddItem "Texto 6" List1.AddItem "Texto 7" End Sub Private Sub Command1_Click() 'Seleccion de todo el contenido Dim Resp As Long Resp = SendMessageLong(List1.hwnd, &H185&, True, -1) End Sub Private Sub Command2_Click() 'Eliminacion de todos los elementos seleccionados Dim Resp As Long Resp = SendMessageLong(List1.hwnd, &H185&, False, -1) End Sub -------------------------------------------------------------------------------- Calcular el tamaño de fuentes de letra: Es útil para utilizar con la propiedad Resize sobre los controles al cambiar de resolución de pantalla. Escribir el siguiente código: Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Sub Form_Load() Dim ObCaps As Long Dim ObDC As Long Dim ObDesktop As Long Dim Cad As String ObDesktop = GetDesktopWindow() ObDC = GetDC(ObDesktop) ObCaps = GetDeviceCaps(ObDC, 88) If ObCaps = 96 Then Cad = "Pequeñas If ObCaps = 120 Then Cad = "Grandes" MsgBox "Fuentes de letra " & Cad End Sub *) Esta función ha sido corregida por un error en las etiquetas, 96 corresponde a pequeñas y 120 a Grandes, agradecimientos a Andrés Moral Gutiérrez por su correción (01/06/1998) -------------------------------------------------------------------------------- Provocar la trasparencia de un formulario: Escribir el siguiente código: Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Sub Form_Load() Dim Resp As Long Resp = SetWindowLong(Me.hwnd, -20, &H20& Form1.Refresh End Sub -------------------------------------------------------------------------------- Pasar de un TextBox a otro al pulsar Enter: Insertar tres TextBox y escribir el siguiente código: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" KeyAscii = 0 End If End Sub otra forma: Insertar tres TextBox, cambiar la propiedad KeyPreview del formulario a True y escribir el siguiente código: Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" KeyAscii = 0 End If End Sub -------------------------------------------------------------------------------- Usar IF THEN ELSE ENDIF en una misma línea: Insertar un CommandButton y un TextBox y escribir el siguiente código: Private Sub Command1_Click() Dim I As Integer Dim A As String I = 3 A = IIf(I <> 1, "True", "False" Text1.Text = A End Sub -------------------------------------------------------------------------------- Convertir un texto a mayúsculas o minúsculas: Crear un formulario y situar un TextBox. Escribir: Private Sub Text1_Change() Dim I As Integer Text1.Text = UCase(Text1.Text) I = Len(Text1.Text) Text1.SelStart = I End Sub -------------------------------------------------------------------------------- Presentar la ventana AboutBox (Acerca de) por defecto: Escribir el siguiente código en el formulario: Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Private Sub Command1_Click() Call ShellAbout(Me.hwnd, "Título Programa", "Copyright 1997, Dueño de la aplicación", Me.Icon) End Sub -------------------------------------------------------------------------------- Incrementar un menú en ejecución: Abrir un proyecto nuevo, y haga doble click sobre el formulario. Meidante el gestór de menús escribir lo siguiente: Caption -> Editor Name -> MnuEditor Pulse Insertar y el botón "->" Caption -> Añadir Name -> MnuAñadir Pulse Insertar Caption -> Quitar Name -> MnuQuitar Enabled -> False Pulse Insertar Caption -> Salir Name -> MnuSalir Pulse Insertar Caption -> - Name -> MnuIndex Index -> 0 Pulse Aceptar Escribir el siguiente código en el formulario: Private ultElem As Integer Private Sub Form_Load() ultElem = 0 End Sub Private Sub MnuQuitar_Click() Unload MnuIndex(ultElem) ultElem = ultElem - 1 If ultElem = 0 Then MnuQuitar.Enabled = False End If End Sub Private Sub MnuSalir_Click() End End Sub Private Sub MnuAñadir_Click() ultElem = ultElem + 1 Load MnuIndex(ultElem) MnuIndex(ultElem).Caption = "Menu -> " + Str(ultElem) MnuQuitar.Enabled = True End Sub -------------------------------------------------------------------------------- Cambiar el fondo de Windows desde Visual Basic: Crear un formulario y escribir: Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Private Sub Form_Load() Dim fallo As Integer fallo = SystemParametersInfo(20, 0, "C:WINDOWSFONDO.BMP", 0) End Sub -------------------------------------------------------------------------------- Calcular el número de colores de video del modo actual de Windows: Crear un formulario y un TextBox y escribir: Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Sub Form_Load() i = (2 ^ GetDeviceCaps(Form1.hdc, 12)) ^ GetDeviceCaps(Form1.hdc, 14) Text1.Text = CStr(i) & " colores." End Sub -------------------------------------------------------------------------------- Ajustar un Bitmap a la pantalla: Crear un formulario con un BitMap cualquiera y una etiqueta o Label con los atributos que quiera. Escribir lo siguiente: Private Sub Form_Paint() Dim i As Integer For i = 0 To Form1.ScaleHeight Step Picture1.Height For j = 0 To Form1.ScaleWidth Step Picture1.Width PaintPicture Picture1, j, i, Picture1.Width, Picture1.Height Next Next End Sub Private Sub Form_Resize() Picture1.Left = -(Picture1.Width + 200) Picture1.Top = -(Picture1.Height + 200) Label1.Top = 100 Label1.Left = 100 End Sub -------------------------------------------------------------------------------- Detectar la unidad del CD-ROM: Si para instalar una aplicación o ejecutar un determinado software necesitas saber si existe el CD-ROM:. Crear un formulario con una etiqueta y escribir lo siguiente: Option Explicit Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const DRIVE_REMOVABLE = 2 Private Const DRIVE_FIXED = 3 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_CDROM = 5 Private Const DRIVE_RAMDISK = 6 Function StripNulls(startStrg$) As String Dim c%, item$ c% = 1 Do If Mid$(startStrg$, c%, 1) = Chr$(0) Then item$ = Mid$(startStrg$, 1, c% - 1) startStrg$ = Mid$(startStrg$, c% + 1, Len(startStrg$)) StripNulls$ = item$ Exit Function End If c% = c% + 1 Loop End Function Private Sub Form_Load() Dim r&, allDrives$, JustOneDrive$, pos%, DriveType& Dim CDfound As Integer allDrives$ = Space$(64) r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$) allDrives$ = Left$(allDrives$, r& Do pos% = InStr(allDrives$, Chr$(0)) If pos% Then JustOneDrive$ = Left$(allDrives$, pos%) allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$)) DriveType& = GetDriveType(JustOneDrive$) If DriveType& = DRIVE_CDROM Then CDfound% = True Exit Do End If End If Loop Until allDrives$ = "" Or DriveType& = DRIVE_CDROM If CDfound% Then label1.Caption = "La unidad de CD-ROM corresponde a la unidad: " & UCase$(JustOneDrive$) Else label1.Caption = "Su sistema no posee CD-ROM o unidad no encontrada." End If End Sub -------------------------------------------------------------------------------- Calcular la profundidad de color (bits por pixel) y resolución de Windows: Crear un formulario y un TextBox y escribir: Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Sub Form_Load() Dim col, bit, largo, alto As Integer col = GetDeviceCaps(Form1.hdc, 12) If col = 1 Then bit = GetDeviceCaps(Form1.hdc, 14) If bit = 1 Then Text1.Text = "Resolucion de 1 bit / 2 colores" ElseIf bit = 4 Then Text1.Text = "Resolucion de 4 bits / 16 colores" End If ElseIf col = 8 Then Text1.Text = "Resolucion de 8 bits / 256 colores" ElseIf col = 16 Then Text1.Text = "Resolucion de 16 bits / 65000 colores" Else Text1.Text = "Resolucion de 16 M colores" End If largo = GetDeviceCaps(Form1.hdc, 8) alto = GetDeviceCaps(Form1.hdc, 10) Text1.Text = Text1.Text & " " & largo & "x" & alto & " pixels" End Sub -------------------------------------------------------------------------------- Comprobar si el sistema posee tarjeta de sonido: Crear un formulario y escribir: Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long Private Sub Form_Load() Dim inf As Integer inf = waveOutGetNumDevs() If inf > 0 Then MsgBox "Tarjeta de sonido soportada.", vbInformation, "Informacion: Tarjeta de sonido" Else MsgBox "Tarjeta de sonido no soportada.", vbInformation, "Informacion: Tarjeta de sonido" End If End End Sub -------------------------------------------------------------------------------- Crear una ventana con la Información del Sistema: Crear un formulario e insertar un módulo y escribir en el formulario lo siguiente: Private Sub Form_Load() Dim msg As String MousePointer = 11 Dim verinfo As OSVERSIONINFO verinfo.dwOSVersionInfoSize = Len(verinfo) ret% = GetVersionEx(verinfo) If ret% = 0 Then MsgBox "Error Obteniendo Information de la Version" End End If Select Case verinfo.dwPlatformId Case 0 msg = msg + "Windows 32s " Case 1 msg = msg + "Windows 95 " Case 2 msg = msg + "Windows NT " End Select ver_major$ = verinfo.dwMajorVersion ver_minor$ = verinfo.dwMinorVersion build$ = verinfo.dwBuildNumber msg = msg + ver_major$ + "." + ver_minor$ msg = msg + " (Construido " + build$ + "" + vbCrLf + vbCrLf Dim sysinfo As SYSTEM_INFO GetSystemInfo sysinfo msg = msg + "CPU: " Select Case sysinfo.dwProcessorType Case PROCESSOR_INTEL_386 msg = msg + "Procesador Intel 386 o compatible." + vbCrLf Case PROCESSOR_INTEL_486 msg = msg + "Procesador Intel 486 o compatible." + vbCrLf Case PROCESSOR_INTEL_PENTIUM msg = msg + "Procesador Intel Pentium o compatible." + vbCrLf Case PROCESSOR_MIPS_R4000 msg = msg + "Procesador MIPS R4000." + vbCrLf Case PROCESSOR_ALPHA_21064 msg = msg + "Procesador DEC Alpha 21064." + vbCrLf Case Else msg = msg + "Procesador (desconocido)." + vbCrLf End Select msg = msg + vbCrLf Dim memsts As MEMORYSTATUS Dim memory& GlobalMemoryStatus memsts memory& = memsts.dwTotalPhys msg = msg + "Memoria Fisica Total: " msg = msg + Format$(memory& 1024, "###,###,###" + "Kb" + vbCrLf memory& = memsts.dwAvailPhys msg = msg + "Memoria Fisica Disponible: " msg = msg + Format$(memory& 1024, "###,###,###" + "Kb" + vbCrLf memory& = memsts.dwTotalVirtual msg = msg + "Memoria Virtual Total: " msg = msg + Format$(memory& 1024, "###,###,###" + "Kb" + vbCrLf memory& = memsts.dwAvailVirtual msg = msg + "Memoria Virtual Disponible: " msg = msg + Format$(memory& 1024, "###,###,###" + "Kb" + vbCrLf + vbCrLf MsgBox msg, 0, "Acerca del Sistema" MousePointer = 0 End End Sub Escribir lo siguiente en el módulo: Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOrfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (LpVersionInformation As OSVERSIONINFO) As Long Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Public Const PROCESSOR_INTEL_386 = 386 Public Const PROCESSOR_INTEL_486 = 486 Public Const PROCESSOR_INTEL_PENTIUM = 586 Public Const PROCESSOR_MIPS_R4000 = 4000 Public Const PROCESSOR_ALPHA_21064 = 21064 -------------------------------------------------------------------------------- Mostrar un fichero AVI a pantalla completa: Crear un formulario y escribir: Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Form_Load() CmdStr$ = "play e:mediaavinombre.avi fullscreen" ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0& End Sub -------------------------------------------------------------------------------- Crear un link con un programa añadiéndolo al grupo de programas situado en Inicio -> Programas o Start -> Programs: Crear un formulario y escribir: Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Private Sub Form_Load() iLong = fCreateShellLink("", "Visual Basic", "C:Archivos de ProgramaDevStudioVbvb5.exe", "" End Sub -------------------------------------------------------------------------------- Apagar el equipo, reiniciar Windows, reiniciar el Sistema: Añadir tres botones a un formulario y escribir lo siguiente en el código del formulario: Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved& Private Sub Command1_Click() Dim i as integer i = ExitWindowsEx(1, 0& 'Apaga el equipo End Sub Private Sub Command2_Click() Dim i as integer i = ExitWindowsEx(0, 0& 'Reinicia Windows con nuevo usuario End Sub Private Sub Command3_Click() Dim i as integer i = ExitWindowsEx(2, 0& 'Reinicia el Sistema End Sub -------------------------------------------------------------------------------- Borrar un fichero y enviarlo a la papelera de reciclaje: Crear un formulario y escribir el siguiente código: Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Boolean hNameMappings As Long lpszProgressTitle As String End Type Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 Public Sub PapeleraDeReciclaje(ByVal Fichero As String) Dim SHFileOp As SHFILEOPSTRUCT Dim RetVal As Long With SHFileOp .wFunc = FO_DELETE .pFrom = FileName .fFlags = FOF_ALLOWUNDO End With RetVal = SHFileOperation(SHFileOp) End Sub Private Sub Form_Load() Recycle "c:a.txt" End Sub El programa preguntará si deseamos o no eliminar el fichero y enviarlo a la papelera de reciclaje. El parámetro .fFlags nos permitirá recuperar el fichero de la papelera si lo deseamos Si eliminamos esta línea, el fichero no podrá ser recuperado. -------------------------------------------------------------------------------- Abrir el Acceso telefónico a Redes de Windows y ejecutar una conexión: Crear un formulario y escribir el siguiente código: Private Sub Form_Load() Dim AbrirConexion As Long AbrirConexion = Shell("rundll32.exe rnaui.dll,RnaDial " & "ConexiónInternet", 1) SendKeys "{ENTER}" End Sub Para Windows 2000/NT V_ID_CONEXION = Shell ("rasphone.exe -d " & V_NOMBRE_DE_LA_CONEXION_DIAL-UP, 1) -------------------------------------------------------------------------------- Situar una ScroolBar horizontal en un ListBox: Crear un formulario y escribir el siguiente código: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Form_Load() Dim x As Integer, i As Integer For i = 1 To 20 List1.AddItem "El número final de la selección es el " & i Next i x = SendMessage(List1.hwnd, &H194, 200, ByVal 0& End Sub -------------------------------------------------------------------------------- Obtener el nombre de usuario y de la compañia de Windows: Crear un formulario, añadir dos etiquetas o labels y escribir el siguiente código: Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Sub Form_Load() Dim strUser As String Dim strOrg As String Dim lngLen As Long Dim lngType As Long Dim hKey As Long Dim x As Long Const HKEY_LOCAL_MACHINE = &H80000002 Const REG_SZ = &H1 x = RegOpenKey(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersion", hKey) ' open desired key in registry strUser = Space$(256) lngLen = Len(strUser) x = RegQueryValueEx(hKey, "RegisteredOwner", 0, lngType, ByVal strUser, lngLen) If x = 0 And lngType = REG_SZ And lngLen > 1 Then strUser = Left$(strUser, lngLen - 1) Else strUser = "Unknown" End If strOrg = Space$(256) lngLen = Len(strOrg) x = RegQueryValueEx(hKey, "RegisteredOrganization", 0, lngType, ByVal strOrg, lngLen) If x = 0 And lngType = REG_SZ And lngLen > 1 Then strOrg = Left$(strOrg, lngLen - 1) Else strOrg = "Unknown" End If Label1.Caption = "Usuario: " & strUser Label2.Caption = "Empresa: " & strOrg x = RegCloseKey(hKey) End Sub -------------------------------------------------------------------------------- Forzar a un TextBox para que admita únicamente números: Crear un formulario, añadir un TextBox y escribir el siguiente código: Sub Text1_Keypress(KeyAscii As Integer) If KeyAscii <> Asc("9" Then 'KeyAscii = 8 es el retroceso o BackSpace If KeyAscii <> 8 Then KeyAscii = 0 End If End If End Sub Nuevo: Private Sub Text1_Keypress(KeyAscii As Integer)If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0End Sub -------------------------------------------------------------------------------- Forzar a un InputBox para que admita únicamente números: Crear un formulario y escribir el siguiente código: Private Sub Form_Load() Dim Numero As String Do Numero = InputBox("Introduzca un numero:" Loop Until IsNumeric(Numero) MsgBox "El numero es el " & Numero Unload Me End Sub -------------------------------------------------------------------------------- Hacer Drag & Drop de un control (ejemplo de un PictureBox): En un formulario, añadir un PictureBox con una imagen cualquiera y escribir el siguiente código: Private DragX As Integer Private DragY As Integer Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Move (X - DragX), (Y - DragY) End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Si el boton del raton es el derecho, no hacemos nada If Button = 2 Then Exit Sub Picture1.Drag 1 DragX = X DragY = Y End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Drag 2 End Sub -------------------------------------------------------------------------------- Centrar una ventana en Visual Basic: Usar: Move (Screen.Width - Width) 2, (Screen.Height - Height) 2 En vez de: Form1.Left = Screen.Width - Width 2 Form1.Top = Screen.Height - Height 2 -------------------------------------------------------------------------------- Ejecuta pausas durante un determinado espacio de tiempo en segundos: Llamada: Espera(5) Sub Espera(Segundos As Single) Dim ComienzoSeg As Single Dim FinSeg As Single ComienzoSeg = Timer FinSeg = ComienzoSeg + Segundos Do While FinSeg > Timer DoEvents If ComienzoSeg > Timer Then FinSeg = FinSeg - 24 * 60 * 60 End If Loop End Sub Llamada: pause segundosSub Pause(interval) Dim atime atime = Timer Do While Timer - atime < Val(interval) DoEvents Loop End Sub -------------------------------------------------------------------------------- Editor de texto: Seleccionar todo el texto: Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Copiar texto: Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SetFocus Pegar texto: Text1.SelText = Clipboard.GetText() Text1.SetFocus Cortar texto: Clipboard.SetText Text1.SelText Text1.SelText = "" Text1.SetFocus Deshacer texto: (Nota: esta operación sólo es eficaz con el control Rich TextBox). En un módulo copie esta línea: Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Esta es la instrucción de la función deshacer: UndoResultado = SendMessage(Text1.hwnd, &HC7, 0&, 0& If UndoResultado = -1 Then Beep MsgBox "Error al intentar recuperar.", 20, "Deshacer texto" End If Seleccionar todo el texto: SendKeys "^A" Copiar texto: SendKeys "^C" Pegar texto: SendKeys "^V" Cortar texto: SendKeys "^X" Deshacer texto: SendKeys "^Z" -------------------------------------------------------------------------------- Obtener el directorio de Windows y el directorio de Sistema: En un módulo copiar estas líneas: Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA"_ (ByVal lpBuffer As String, ByVal nSize As Long) As Long Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA"_ (ByVal lpBuffer As String, ByVal nSize As Long) As Long Ponga dos Labels o etiquetas y un botón en el formulario: Label1, Label2, Command1 Hacer doble click sobre el botón y escribir el código siguiente: Private Sub Command1_Click() Dim Car As String * 128 Dim Longitud, Es As Integer Dim Camino As String Longitud = 128 Es = GetWindowsDirectory(Car, Longitud) Camino = RTrim$(LCase$(Left$(Car, Es))) Label1.Caption = Camino Es = GetSystemDirectory(Car, Longitud) Camino = RTrim$(LCase$(Left$(Car, Es))) Label2.Caption = Camino End Sub -------------------------------------------------------------------------------- Ocultar la barra de tareas en Windows 95 y/o Windows NT: En un módulo copiar estas líneas: Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName_ As String, ByVal lpWindowName As String) As Long Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long,_ ByVal wFlags As Long) As Long Global Ventana As Long Global Const Muestra = &H40 Global Const Oculta = &H80 En un formulario ponga dos botones y escriba el código correspondiente a cada uno de ellos: 'Oculta la barra de tareas Private Sub Command1_Click() Ventana = FindWindow("Shell_traywnd", "" Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta) End Sub 'Muestra la barra de tareas Private Sub Command2_Click() Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Muestra) End Sub -------------------------------------------------------------------------------- Imprimir el contenido de un TextBox en líneas de X caracteres: Añadir un TextBox con las propiedades "Multiline=True" y "ScrollBars=Vertical", y un CommandButton. Hacer doble click sobre él y escribir este código: Private Sub Command1_Click() 'X es 60 en este ejmplo imprimeLineas Text1, 60 End Sub En las declaraciones "Generales" del formulario, escribimos: Public Sub imprimeLineas(Texto As Object, Linea As Integer) Dim Bloque As String 'Numero de caracteres = NumC 'Numero de Bloques = NumB Dim NumC, NumB As Integer NumC = Len(Texto.Text) If NumC > Linea Then NumB = NumC Linea For I = 0 To NumB Texto.SelStart = (Linea * I) Texto.SelLength = Linea Bloque = Texto.SelText Printer.Print Bloque Next I Else Printer.Print Texto.Text End If Printer.EndDoc End Sub -------------------------------------------------------------------------------- Leer y escribir un fichero Ini: Declaraciones generales en un módulo: Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA"_ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As_ String ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As_ String) As Long Declare Function WritePrivateProfileString Lib "kernel32" Alias_ "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As_ Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Leer en "Ejemplo.Ini": Private Sub Form_Load() Dim I As Integer Dim Est As String Est = String$(50, " " I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini" If I > 0 Then MsgBox "Tu Nombre es: " & Est End If End Sub Escribir en "Prueba.Ini": Private Sub Form_Unload(Cancel As Integer) Dim I As Integer Dim Est As String Est = "Ejemplo - Apartado" I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini" End Sub (Nota: si I=0 quiere decir que no existe Información en la línea de fichero Ini a la que hacemos referencia. El fichero "Ejemplo.Ini" se creará automáticamente). -------------------------------------------------------------------------------- Crear una barra de estado sin utilizar controles OCX o VBX: Crear una PictureBox y una HScrollBar: Propiedades de la HScrollBar: Max -> 100 Min -> 0 Propiedades de la PictureBox: DrawMode -> 14 - Merge Pen Not FillColor -> &H00C00000& Font -> Verdana, Tahoma, Arial; Negrita; 10 ForeColor -> &H00000000& ScaleHeight -> 10 ScaleMode -> 0 - User ScaleWidth -> 100 Insertar en el formulario o módulo el código de la función: Sub Barra(Tam As Integer) If Tam > 100 Or Tam <>Insertar en el evento Change del control HScrollBar: Private Sub HScroll1_Change() Barra (HScroll1.Value) End Sub En el evento Paint del formulario, escribir: Private Sub Form_Paint() Barra (HScroll1.Value) End Sub -------------------------------------------------------------------------------- Calcular el espacio total y espacio libre de una Unidad de disco: Crear un módulo y escribir: Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA"_ (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector_ As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long Crear 7 Labels: Escribir el código siguiente: Private Sub Form_Load() Dim I1 As Long Dim I2 As Long Dim I3 As Long Dim I4 As Long Dim Unidad As String Unidad = "C:/" GetDiskFreeSpace Unidad, I1, I2, I3, I4 Label1.Caption = Unidad Label2.Caption = I1 & " Sectores por cluster" Label3.Caption = I2 & " Bytes por sector" Label4.Caption = I3 & " Número de clusters libres" Label5.Caption = I4 & " Número total de clusters" Label6.Caption = "Espacio total en disco: " & (I1 * I2 * I4) Label7.Caption = "Espacio libre en disco: " & (I1 * I2 * I3) End Sub -------------------------------------------------------------------------------- Crear un efecto Shade al estilo de los programas de instalación: Crear un proyecto nuevo y escribir el código siguiente: Private Sub Form_Resize() Form1.Cls Form1.AutoRedraw = True Form1.DrawStyle = 6 Form1.DrawMode = 13 Form1.DrawWidth = 2 Form1.ScaleMode = 3 Form1.ScaleHeight = (256 * 2) For i = 0 To 255 Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 0, i), BF Y = Y + 2 Next i End Sub -------------------------------------------------------------------------------- Situar el cursor encima de un determinado control (p. ej.: un botón): Escribir el código siguiente en el módulo: Declare Sub SetCursorPos Lib "User32" (ByVal X As Integer, ByVal Y As Integer) Insertar un botón en el formulario y escribir el siguiente código: Private Sub Form_Load() X% = (Form1.Left + Command1.Left + Command1.Width / 2 + 60) / Screen.TwipsPerPixelX Y% = (Form1.Top + Command1.Top + Command1.Height / 2 + 360) / Screen.TwipsPerPixelY SetCursorPos X%, Y% End Sub -------------------------------------------------------------------------------- Menú PopUp en un TextBox: Ejemplo para no visualizar el menú PopUp implícito de Windows: En el evento MouseDown del control TextBox escriba: Private Sub Editor1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 2 Then Editor1.Enabled = False PopupMenu MiMenu Editor1.Enabled = True Editor1.SetFocus End If End Sub -------------------------------------------------------------------------------- Hacer sonar un fichero Wav o Midi: Insertar el siguiente código en un módulo: Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Insertar un botón en el formulario y escribir el siguiente código: Private Sub Command1_Click() iResult = mciExecute("Play c:windowsringin.wav" End Sub -------------------------------------------------------------------------------- Hacer un formulario flotante al estilo de Visual Basic: Crear un nuevo proyecto, insertar un botón al formulario que inserte un formulario más y un módulo. Pegue el siguiente código en el módulo: Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Peguar el siguiente código en el formulario principal: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Unload Form2 End Sub Private Sub Command1_Click() Dim ret As Integer If doshow = False Then ret = SetParent(Form2.hWnd, Form1.hWnd) Form2.Left = 0 Form2.Top = 0 Form2.Show doshow = True Else Form2.Hide doshow = False End If End Sub -------------------------------------------------------------------------------- Comprobar si el programa ya está en ejecución: Crear un nuevo proyecto e insertar el siguiente código: Private Sub Form_Load() If App.PrevInstance Then Msg = App.EXEName & ".EXE" & " ya está en ejecución" MsgBox Msg, 16, "Aplicación." End End If End Sub -------------------------------------------------------------------------------- Hallar el nombre del PC en Windows 95 o Windows NT: Cree un nuevo proyecto e inserte dos ButtonClick y un Módulo: Pegue el siguiente código en el formulario: Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim nPC as String Dim buffer As String Dim estado As Long buffer = String$(255, " " estado = GetComputerName(buffer, 255) If estado <> 0 Then nPC = Left(buffer, 255) End If MsgBox "Nombre del PC: " & nPC End Sub Private Sub Command2_Click() Unload Form1 End Sub Pegue el siguiente código en el módulo: Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long -------------------------------------------------------------------------------- Eliminar el sonido "Beep" cuando pulsamos Enter en un TextBox: Crear un nuevo proyecto e insertar un TextBox: Peguar el siguiente código en el formulario: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = 9 Then KeyAscii = 0 End Sub -------------------------------------------------------------------------------- Ocultar y mostrar el puntero del ratón: Crear un nuevo proyecto e insertar dos ButtonClick y un Módulo: Pegue el siguiente código en el formulario: Private Sub Command1_Click() result = ShowCursor(False) End Sub Private Sub Command2_Click() result = ShowCursor(True) End Sub Usar las teclas alternativas Alt+O para ocultarlo y Alt+M para mostrarlo. Peguar el siguiente código en el módulo: Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long -------------------------------------------------------------------------------- Calcular el número de serie de un disco: Crear un nuevo proyecto e insertar el siguiente código en el formulario: Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) Private Sub Form_Load() Dim cad1 As String * 256 Dim cad2 As String * 256 Dim numSerie As Long Dim longitud As Long Dim flag As Long unidad = "C:" Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256) MsgBox "Numero de Serie de la unidad " & unidad & " = " & numSerie End Sub -------------------------------------------------------------------------------- Ejemplo de un mailer en base64. Private Sub Base64_Click() Dim Caracter As String * 1 Dim Trio(3) As Integer Dim Cont As Integer Dim ContLinea As Integer Dim Cuatro(4) As Integer Dim Base64 As StringBase64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" ContLinea = 0 MensajeSaliente = "" MensajeEntrante = "" If Cfg.FicheroAnexo <> "" Then Open NFich For Binary As #3 Len = 3 Cont = 0 ContTotal = 0 Progreso.Max = FileLen(NFich) While Not ContTotal = LOF(3) ContTotal = ContTotal + 1 Caracter = Input(1, 3) Cont = Cont + 1 Trio(Cont) = Asc(Caracter) 'MensajeSaliente = MensajeSaliente + Caracter If Cont = 3 Then Cuatro(1) = Int(Trio(1) / 4) Cuatro(2) = (Trio(1) - Int(Trio(1) / 4) * 4) * 16 + Int(Trio(2) / 16) Cuatro(3) = (Trio(2) - (Int(Trio(2) / 16) * 16)) * 4 + Int(Trio(3) / 64) Cuatro(4) = Trio(3) - Int(Trio(3) / 64) * 64 MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(1) + 1, 1) MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(2) + 1, 1) MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(3) + 1, 1) MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(4) + 1, 1) Cont = 0 ContLinea = ContLinea + 4 If ContLinea = 76 Then MensajeEntrante = MensajeEntrante + vbCrLf ContLinea = 0 End If End If DoEvents Wend Select Case Cont Case 1 Cuatro(1) = Int(Trio(1) / 4) Cuatro(2) = (Trio(1) - Int(Trio(1) / 4) * 4) * 16 MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(1) + 1, 1) MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(2) + 1, 1) + "==" Case 2 Cuatro(1) = Int(Trio(1) / 4) Cuatro(2) = (Trio(1) - Int(Trio(1) / 4) * 4) * 16 + Int(Trio(2) / 16) Cuatro(3) = (Trio(2) - (Int(Trio(2) / 16) * 16)) * 4 MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(1) + 1, 1) MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(2) + 1, 1) MensajeEntrante = MensajeEntrante + Mid(Base64, Cuatro(3) + 1, 1) + "=" End Select Close #3 End If End Sub Trucos Breves 2 -------------------------------------------------------------------------------- Seleccionar todo un procedimiento Para seleccionar un procedimiento completo (ya sea para borrarlo o para copiarlo a otro formulario) abrimos la pantalla de edición correspondiente y luego hacemos un doble clic en la parte izquierda de la misma (donde el cursor cambia a una flecha apuntando hacia la derecha). Cambiar rápidamente la propiedad Enabled La propiedad Enabled de un objeto se puede alternar fácilmente con una única línea de código: optAlternar.Enabled = NOT optAlternar.Enabled Este código es independiente de la definición de True y False, la cual varía según la versión de VB utilizada. Ya sea que se represente numéricamente (-1 = True; 0 = False) o lógicamente, la operación NOT se adapta para dar el resultado correcto. Date y Date$ no son equivalentes La función Date$ devuelve la fecha del sistema en un string con el formato MM-DD-AAAA. Date devuelve un variant con el formato de fecha especificado en el Panel de Control (puede devolver, por ejemplo, DD-MM-AA). Si queremos realizar cálculos con fechas, debemos utilizar Date$. Para mostrar la fecha actual al usuario, basta con usar Date (sin el símbolo $). "Couldn't find installable ISAM" En una aplicación que accede a bases de datos, este error indica que VB no encuentra Información sobre los archivos de acceso a bases de datos. Debemos crear un archivo en la carpeta de Windows con esa Información: copiar el archivo Vb.INI a dicha subcarpeta, con el nombre de la aplicación ejecutable y la extensión INI (por ejemplo, Agenda.INI). Evitar la carga de complementos Al cargar VB 4 o 5, cualquier complemento (Add-In) activo también se ejecuta. Si hay un error en algún complemento, puede ocurrir un GPF (falla de protección general). Para evitar esto, apagar los complementos antes de cargar VB, editando el archivo VBAddin.INI (en la carpeta de Windows), poniendo un 0 al lado de cada complemento. Por ejemplo: AppWizard.Wizard=0. Pasar cadenas de caracteres a una DLL VB presenta un problema a la hora de recibir cadenas de caracteres grandes de una DLL. Se produce una sobrecarga que demora el procesamiento, aun cuando ningún resultado es devuelto. Por esta razón, en programas de tiempo crítico es necesario salvar este inconveniente pasando cadenas inicializadas con la longitud exacta que se espera recibir. Descargar formularios poco utilizados Hay que tener en cuenta que, aunque estén ocultos, los formularios ocupan un espacio de memoria. Tener en memoria un formulario con muchos controles que se usará una sola vez no resulta una muy buena idea, o sea que no es conveniente ocultarlo. En tal caso, conviene descargarlo después de usado. Evitar el uso de las propiedades por defecto Si bien las propiedades por defecto muchas veces nos ahorran tipear unos cuantos caracteres demás, no siempre es bueno confiar en ellas. Por ejemplo, algunas propiedades por defecto cambiaron de Visual Basic 3 a la versión 4, causando "cuelgues" inexplicables. Aunque es un poco más trabajoso, conviene utilizar todas las propiedades explícitamente. Comentar e indentar el código Realizar comentarios acerca de cómo funciona una rutina, e indentar el código de la misma para que sea más fácil de leer, son dos acciones que debemos realizar siempre al programar. Un simple renglón aclaratorio puede ahorrar horas de prueba y error el día de mañana. Indentar significa poner cada ciclo repetitivo hacia la derecha, para lo cual basta una presión de la tecla . Grabar antes de ejecutar Es una buena costumbre de programación el grabar los programas antes de ejecutarlos. Esto es especialmente recomendado en el caso de usar alguna función API, puesto que una mala definición de la misma, o el paso incorrecto de algún argumento, pueden causar un GPF (Error de protección general) en Visual Basic, e incluso en el mismo Windows. Seleccionar varios controles Para setear un grupo de propiedades en varios controles, podemos acelerar el trabajo seleccionándolos a todos y seteando las propiedades una sola vez. Para ello se "dibuja" un rectángulo que contenga a todos los controles a seleccionar. Automáticamente, VB mostrará en la ventana de propiedades sólo las que son comunes a todos los controles seleccionados, pudiendo setearlas en conjunto. Borrar las variables objeto Al terminar de usar una variable que contiene un objeto (por ejemplo, una variable definida As Database) conviene setear su valor a Nothing. Esto libera la memoria ocupada por dicha variable, lo que no siempre ocurre al cerrar el objeto. Por ejemplo: Dim DB As Database ' Abro la base Set DB = OpenDatabase ("C:VBBIBLIO.MDB" ... ' Cierro DB.Close ' Libero la memoria Set DB = Nothing Evitar el "beep" del Muchas veces, cuando se ingresa Información en una caja de texto y se presiona la tecla , se escucha un "beep". Para evitar esto, colocar el código siguiente en el evento KeyPress de la caja de texto: If KeyAscii = Asc(vbCR) Then KeyAscii = 0 End If TextBox de sólo lectura Para hacer que un TextBox sea de sólo lectura, podemos setear su propiedad Enabled a False. Sin embargo, esto le da un feo color gris que habitualmente dificulta. Otra manera de hacerlo, más elegante, es incluir el siguiente código en el evento KeyPress de dicho control (el cual no impide que el usuario coloque el cursor sobre él): KeyAscii = 0 Error al utilizar SetFocus Si utilizamos el método SetFocus sobre un control o formulario que no está visible o habilitado (propiedad Enabled), Visual Basic puede llegar a colgar nuestra aplicación, si es que no se utiliza control de errores. Antes de usar este método, hay que asegurarse que el control esté visible y habilitado. La excepción que confirma la regla Si bien el truco del SetFocus funciona casi siempre, hay una excepción muy importante, constituida por los métodos gráficos (Print, Line, Circle y PSet). Al llamar a estos métodos no puede usarse la estructura With ... End With, debiéndose anteponer el objeto a dichos métodos, aun dentro de dicha estructura. Un ejemplo sería: With Picture .Move 0, 0 Picture.Print "Hola, Mundo!" End UIT Evitar cadenas nulas en campos de Access Si se utiliza una base de datos de Access, los campos alfanuméricos contienen valor NULL hasta tanto se les asigne algún valor (aunque sea una cadena vacía). Si se lee un campo con valor NULL de un RecordSet, asignando su valor a una variable de tipo cadena, se produce un error de ejecución. Para evitar esto, se concatena una cadena vacía a cada campo en cuanto se lo lee. Usar Sleep en lugar de DoEvents En un programa que se ejecuta en Windows 95 o Windows NT, es conveniente usar la función API Sleep. DoEvents pierde parte de su tiempo procesando mensajes del mismo proceso, lo que en un entorno multitarea es innecesario. La declaración de la función es: Public Declare Sub Sleep Lib "KERNEL32" Alias Sleep (ByVal Milisegundos As Long) Y se usa de la siguiente manera: Sleep 0& Error al cambiar el tamaño de los formularios Si intentamos cambiar el tamaño de un formulario mientras está minimizado, obtendremos un error. Para evitar esto, ay que chequear antes todo el estado del formulario. Esto se logra con el siguiente fragmento de código: If Me.WindowState <> 1 Then ' NO estoy minimizado ' El código para mover o cambiar el tamaño del formulario va aqui. End If No genera eventos al mostrar un MessageBox Mientras un programa se encuentra mostrando un cuadro de mensaje en la pantalla (generado con la instrucción MsgBox) no admite que se produzca ningún evento. Esto es para prevenir la ejecución de código que podría causar problemas, ya que un mensaje de este tipo sólo debería aparecer en contadas ocasiones. Cantidad de Bytes que Ocupa un Directorio Sub Form_Load() Dim FileName As String Dim FileSize As Currency Dim Directory As String Directory = "c:windows" FileName = Dir$(Directory & "*.*" FileSize = 0 Do While FileName <> "" FileSize = FileSize + FileLen(Directory & FileName) FileName = Dir$ Loop Text1.Text = "Este directorio ocupa la cantidad de bytes = " + Str$(FileSize) End Sub Entrar en las Propiedades de Accesibilidad 1. Crear un nuevo formulario, Form1 por defecto 2. Añadir un boton al formulario "Command Button control" 3. Añadir el siguiente codigo a la propieded Clik del boton. Private Sub Command1_Click() X = Shell("Rundll32.exe shell32.dll,Control_RunDLL main.cpl @2" End Sub el post bueno hasta aca

hola a los enamorados bienvenidos SMS amor, SMS desamor El otro día fui al cielo y me confesé con un santo, y de penitencia me dijo que no te quisiera tanto. Si esta noche te asomas a la ventana y sientes frío, no creas que fue el viento, que fue un suspiro mío Por 1 beso de tu boca 2 abrazos te daría 3 suspiros que demuestren 4 veces tu alegría y en la 5a sinfonía de los 6 sueños que anhelo 7 veces te daría las 8 letras de un te quiero porqué 9 veces por ti vivo y 10 veces por ti muero. Quisiera ser caramelo que ilusión tan loca para pasearme por tu piel y derretirme en tu boca. Años de mi vida no se pueden olvidar y el hueco q me dejaste nadie lo podrá ocupar eres especial para mi y por eso voy a aguardar hasta el momento en q tu me vayas a abrazar I LOVE YOU en inglés, TI AMO en italiano, pero lo mucho que TE QUIERO, te lo digo en castellano. Te quiero lo sabes, me quieres quien sabe?? te amo lo juro, me amas?? lo dudo Abrazar a quien amas es transportarse al cielo por un instante. Nunca digas nunca, nunca digas siempre, nunca digas lo que tu corazón no siente. Dicen que andas con una niña, mas linda que yo, linda será su cara, pero no su corazón. A veces me pregunto por que la vida es tan bella, ahora ya lo se, por que tu estas en ella. Haré que mi Amor nunca olvides y que mi nombre en tu recuerdo quede y si es verdad que el Amor con el tiempo muere…, haré que el tiempo espere Hagamos un trato; yo hoy no te voy a decir q te quiero, porque sonaría falso.. te lo voy a demostrar con hechos el resto de mi vida. Te parece? Debes estar cansada hoy después de todo lo que hicimos en mi sueño anoche. Algún día cuando este deprimida y el cielo este sombrío…sentiré un rayo de sol solo pensando en ti. El amor es una cosa esplendorosa…hasta que te sorprende tu esposa!! El amor no es sólo un sentimiento. Es también un arte El amor tiene fácil la entrada y difícil la salida. Esta carta que te escribo no la tires en un rincón porque la tinta es mi sangre y el papel mi corazón. No desayuno por pensar en ti, No almuerzo por pensar en ti, No ceno por pensar en ti, No duermo porque tengo hambre. Para el mundo tu eres una persona, pero para una persona tu eres el mundo. Si el propósito de la vida es el amor, entonces el propósito de la mía eres tú. Soñé que me amabas, soñé que me querías y me caí la cama por soñar tonterías. Si me dieran a elegir entre mi mundo y tú, elegiría mi mundo porque mi mundo eres tú. No soy tu novia ni tampoco tu amante, pero soy la que mas te quiero y con eso tengo bastante En el corazón tenia una espina de una pasión, logré arrancármela un día y hoy no siento el corazón Si me quieres dímelo, si no dime q me vaya, pero no me tengas nunca por si la otra te falla No tengo dinero ni plumas de oriente, pero tengo un corazón q t recordará siempre Si cada vez k pienso en ti una strella se apagara no kedaria en el cielo ninguna strella k brillara. El día que te conocí tuve miedo a mirarte, el día q te bese tuve miedo a quererte, y ahora q te quiero tengo miedo a perderte Anoche cuando me desperté, mis ojos se humedecieron y entonces comprendí lo mucho que te quiero. kisiera ser caramelo ke ilusión tan loca para pasearme por tu piel y derretirme en tu boca De pekeños jugábamos de mayores nos besábamos y tanto tiempo he pasado contigo ke ahora me he enamorado "Te dejare de amar el día que un pintor pinte sobre su tela el sonido de una lagrima" El otro día fui al cielo y me confesé con un santo, y de penitencia me dijo que no te quisiera tanto. Que sentido tiene el tiempo si cada minuto que paso sin ti son miles de instantes perdidos. Cuando piensas dejas de sentir, simplemente siente y sabrás lo que es vivir. Si en la noche no puedes dormir, no cuentes estrellas…cuenta conmigo. Cuando pienso en ti me desvelo y al desvelarme siento miedo, miedo de quererte tanto como ya te quiero! Si amarte estuviese penado yo tendría cadena perpetua Si verte significa morir, prefiero 1000 veces morir de amor que vivir y no poder verte. tq para siempre. Puedo ser tormenta, niebla o marea, tocar el fuego, si tu lo deseas, mas no puedo respirar si no me miras, no hay nada mejor que unirme a tu vida. Amor mío, no te da pena verme padecer? Teniendo agua en tus labios, me dejas morir de sed. Un lápiz sin punta no puede escribir y yo sin tu amor no puedo vivir Los dedos de una mano no se pueden separara, dos amores que se quieren no se pueden olvidar Cuando miro tu foto me entran ganas de llorar, tener tus labios tan cerca y no poderlos besar. Te soñé, te imaginé, te deseé, y ahora k t tengo, k estás en mi, kreo en ls milagros amor... tk... Para que subir tan alto y gritar como un loco si yo muero por ella y ella se muere por otro. Regálame un par de besos y te escribiré un poema. No parare de rimar cuando tus labios me entregues. No habrá en el mundo papel cuando de mi los despegues Fue tu padre "Rey por un día"? Debió serlo para hacer una princesa como tú Tu eres la razón por la que los hombres se enamoran ¿Te hiciste daño al caer del cielo? Soy como los "M&Ms" , me derrito en tu boca, no en tu mano ¿Tu padre fue ladrón? Lo digo porque alguien robó las estrellas del cielo y las puso en tus ojos ¡Tú con esas curvas y yo sin frenos! Eres un camión con atracción delantera. ¿De qué juguetería te escapaste muñeca? Si fuera camionera te llevaría en mi camión pero como no lo soy te llevo en el corazón. ¡Cómo avanza la tecnología... porque hasta las flores caminan! Si tu cuerpo fuera cárcel y tus brazos cadenas, qué bonito sitio sería para cumplir mi condena. Pareces miel de abeja, porque quien te prueba no te deja. Si la vida me concediese un deseo, desearía volver a conocerte. Si amas a Dios que murió por tanta gente, ¿por qué no me amas a mí que me muero por ti solamente? Te quiero y por quererte me muero. Si por quererte me muero, no sé para qué carajo te quiero ¡Policía, policía! No persigan al ladrón persigan a ese chico que me ha robado el corazón. ¿Qué hora tienes? Las seis. Ah, es que quería saber el momento exacto en el que me volví loco. Se le pregunta a la chica, con la vista hacia el cielo:¿Qué está pasando en el cielo..? Al ella observar hacia el cielo o preguntar el ¿por qué? contestas: Porque se están cayendo los ángeles. Algún día sabrás todo lo que te he amado, mas luego llorarás al no tenerme a tu lado. Mi ciudad tiene algo que no tiene Moscú, el Pilar de Zaragoza y un chico como tú. Si tu pierna izquierda fuera viernes y tu pierna derecha fuera domingo... déjame pasar un fin de semana contigo. Eres mi cosita linda, mi pedacito de cielo, gracias por haber nacido, nunca olvides que te quiero. Tu madre debe ser pastelera pork un bombón como tu no lo hace cualkiera Son tus ojos 2 luceros q iluminan todo el mar quien fuera marinerito para poder navegar El sol y la luna no se pueden comparar a este lucero que acaba de pasar. Si tu cuerpo fuera cárcel y tus brazos cadenas, qué lindo sitio para cumplir una condena. Cuando veo tu hardware, se excita mi software. Si la belleza fuera pecado...dios no te perdonaría nunca En que estarían pensando los piratas, cuando abandonaron semejante tesoro. De las mujeres más bellas del mundo entero, tú eres la única que yo quiero. SI MI SANGRE FUERA TINTA Y MI CORAZÓN TINTERO CON LA SANGRE DE MIS VENAS ESCRIBIRÍA CUANTO TE QUIERO DE TODAS LAS FLORES LA MAS BONITA ES LA ROSA Y DE TODAS LAS PERSONAS TU ...... ERES EL MAS HERMOSO. SI YO FUERA PALOMITA A TU LADO VOLARÍA PERO COMO NO LO SOY EN TI PIENSO NOCHE Y DÍA. MIS OJOS LLORAN POR VERTE, MI CORAZÓN POR AMARTE, MI BOCA POR DARTE UN BESO Y MIS BRAZOS POR ABRAZARTE QUISIERA SER MARINERO, Y NAVEGAR POR TUS VENAS, LLEGAR A TU CORAZÓN... Y PEDIRTE QUE ME QUIERAS Le pedí a dios una flor y me dio un jardín, le pedí un árbol y me dio un bosque, le pedí un buen motivo para vivir y me dio tu nombre... Dos peces en el agua no se pueden ahogar, dos amores que se quieren no se pueden olvidar. Hay 10 angelitos 9 están jugando y un angelito hermoso esta leyendo este mensaje... En el cielo hay una estrella q me llama la atención, en el mundo hay un chico q me roba el corazón... Tu tendrás mientras yo viva un amor q te comprenda, un corazón q te adore y un hombre q te defienda... Por las vias pasa el tren, por la calle pasan los coches, y tu por mi mente pasas todas la noches La luna es dueña de la noche, el sol, del día, y tú en mi corazón mandarás toda la vida. Te puede querer tu padre, te puede querer tu madre...pero como te quiero yo nunca te va a querer nadie. EN LLAMAS TENGO EL CORAZÓN Y TU ERES LA RAZÓN Las trompetas celestiales tienen hermosos sonidos así es tu voz amor mío que acarician mis oídos La luna controla las mareas, y vos mi corazón. Eres tan dulce que sólo con mirarte engordo. Estás como el pan recién salido del horno: calentito y bien rico. Hasta los cigarrillos que fumas les tengo envidia loca, porque los coges en tu mano y los acaricias con tu boca. Si ser sexy fuese un delito, te pasarías la vida en la cárcel ¿Le importa si la miro durante un ratito? Quiero recordar su cara para mis sueños. Quiero tener hijos preciosos algún día, y quisiera preguntar a tus padres consejos sobre cómo lograron hacer algo tan perfecto como tú. Perdona, ¿no tendremos algún amigo en común para que nos pueda presentar? Perdona, pero la reconozco. ¿No fuimos locamente felices y casados en una vida anterior? Desde que la he conocido, ha vivido en mi corazón sin pagar alquiler. Debes estar cansada hoy después de todo lo que hicimos en mi sueño anoche. ¿La he visto en la portada de Cosmopolitan alguna vez? ¿Acaba de salir el sol?, o ¿me has sonreído? ¿Te puedo hacer una foto? Quiero enviarla a mis amigos y demostrarles que los ángeles existen. enamorados es una etapa bonita , pero a la vez tiene sus complicaciones, cuando miras al cielo y dices que maravilloso es tener a lado al hombre o mujer de mi vida y cuando poco a poco esa ilusión o sentimiento se están desvaneciendo solo dices ya no te Amo... El amor no se va, simplemente uno nunca amo de verdad, ser enamorados te lleva a un mundo mágico lleno de alegrías , emociones , encantos, y cuando terminas con esa persona que era especial, todo se torna de una forma confusa .. cuando uno quiere terminar las cosas en paz siempre te salen diciendo "no yo no seré mas tu amigo o amiga porque fuimos enamorados", ¿acaso fue tan duro ser enamorados que no quieren ser amigos?, no es eso, solo que la persona que realmente ama con la vida no puede ver a la persona como amiga o amigo, porque todavía hay muchas emociones y si bien es cierto cuando una relación de pareja comienza todos dos sienten ese amor, pero así como todo lindo amor hay uno que se enamorara mas que el otro. Debería a ver una ley para ser enamorados y no dar mucho amor o poco amor sino un amor 50/50, un amor que no cambie nada, un amor que rompa limites, esa ley como toda ley seria aceptada y rechazada, nada en esta vida es completo si tienes algo bien y si no lo tienes bien también, pero solo digo que mas que ser enamorados, siempre da amor a cambio de nada , porque el amor que nace dentro de ti debe ser puro, y si alguna vez ese amor lo lastiman no sientas odio, rencor ni pena simplemente agradece por esos lindos momentos que pasaste con esa persona que amaste, porque de cada experiencia mala viene una experiencia buena en tu vida. BUENO EL QUE MAS REPIOLA ESTA ES ESTE Tus ojos son dos faroles que iluminan mi camino. Un dia los cerraste y me hice mierda contra un pino. BY MAYCONLJ

Me ha tomado algún tiempo de poner atención a las actitudes de las mujeres, cuando ellas dicen cosas sobre los hombres como: “él realmente es una molestia” “Que desesperante es cuando él hace eso”. Y adivinen que he encontrado… Usualmente son a causa de comportamientos de hombres tontos y necesitados en busca de la aprobación de las mujeres. Cosas que desesperan a las mujeres y son una molestia. 1.-Llamarlas de forma muy seguida. 2.-Decirle a ella lo que realmente sientes, muy temprano en la relación. 3.-Entregar todo tu poder a ella y convertirla en el jefe de la relación. 4.-Siempre preguntar a la mujer que es lo que ella desea en vez de ser un líder. 5.-Actuar de forma sumisa y débil. 6.-Aceptar siempre sus demandas y requerimientos. 7.-Ser su alfombra y colocar tus necesidades por debajo de las de ella. Pero…. ¿Cómo es posible que demostrando tus sentimientos por una mujer llamándola cada vez que piensas en ella, diciéndole como te sientes, dejándole a ella decidir que hacer, y ponerla a ella en primer lugar puede ser considerado molesto? Las mujeres, y en especial las más atractivas, consideran lo escrito anteriormente como muy molesto y desesperante. Deben tener algo en mente… Las mujeres no se sienten atraídas hacia hombres tontos y necesitados. La atracción no es algo que se pueda escoger. Las mujeres no se sientan un día para hacer una lista de todas las cualidades que un hombre puede tener, para después pensarlo seriamente por unos cuantos días y luego decidir si van a sentirse atraídas o no por ese chico. NO La atracción pasa en un instante, y pasa por una gran cantidad de razones que pueden parecer ilógicas. Razones que inclusive las mujeres no pueden describir.