Mensajes

Así fue.

El hacker, con motivo de los (muchos) años que conmemora el invento de los helados de fresa, celebro una loca fiesta, en la que todos los usuarios fueron invitados. Fue una fiesta salvaje llena de sexo, alcohol, rock & roll y talleres de programación. Donde se participo en diversos eventos extremos como el tetris y "ponerle la cola al burro". Uhh! no sabes de lo que te perdiste! 

[@raul338]

@raul338

Probé el proyecto(el que pusiste para descargar) varias veces y los resultados varían mucho, hay veces que incluso mi función es la más rápida... ¿Por qué?

@BlackZerox
De qué va que a veces firmas "Dulces Lunas" y otras "Temibles Lunas"? 

Todo está en el registro... todo está en el registro... todo está en el registro...

Código [Seleccionar] Expandir

HKEY_CLASSES_ROOT\*\Shellex\ContextMenuHandlers

Saludos!

Hace poco me topé con esta noticia:

http://pijamasurf.com/2011/08/lulzsec-hackea-foro-de-pornografia-infantil-y-revela-identidad-de-miles-de-usuarios/

No fue Anonumous, si no LulzSec.

Saludos!

Supongo que el hosting que usas no admite Gifs animados...

Demonios!, el fin del mundo se acerca!

Arrepentios! pecadores!:

"...Y la tierra se abrirá y las letras minúsculas desaparecerán..."


Emm en serio lo de las minúsculas?, con razón nunca he visto los teclados con letras minúsculas, deben quedar ya muy pocos.

 "The Human Centipede"  ---->  Me quiero arrancar los ojos y colocar un embudo en mi oido izquierdo para verter ácido muriático a mi cerebro...

BUENO AMIGOS SALI DE NUEVO A PROBAR LAS FORMULAS Y LOS DATOS A UN MAQUINITA DEL CENTRO COMERCIAL Y SI SI FUNCIONA GANE 70 PESOS APROX. PERO PERDI 90 PESOS.

Definitivamente funciona. Si averiguas un algortimo que le funcione a los jugadores y no a los dueños de las maquinas, rolalo pa' la banda.

Saludos!

[Edite:]

Código (vb) [Seleccionar] Expandir

Function heyIgnorante_isDate(ByVal sDate As String) As Boolean
   Dim elemts() As String
   Dim D As Integer, M As Integer, A As Integer
   
   sDate = Trim$(sDate)
   elemnts = Split(sDate, "/")
   
   If UBound(elemnts) <> 2 Then Exit Function
   
   D = Val(elemnts(0)): M = Val(elemnts(1)): A = Val(elemnts(2))
   
   If D > 31 Or D < 1 Or M > 12 Or M < 1 Or A > 9999 Or A < 0 Then Exit Function
       
    If ((M < 8 And M Mod 2 = 0) Or (M > 7 And M Mod 2 = 1)) And D > 30 Then Exit Function
   
   If (A Mod 4 <> 0 And M = 2 And D > 28) Or _
   (A Mod 100 = 0 And A Mod 400 <> 0) Then
        Exit Function
   End If
   heyIgnorante_isDate = True
End Function


A ver, aquí esta mi archirecontraultrasupermegavegetarianamarcianarobotpirata función...
Bastante básica, pero pasó las pruebas que pusiste y solo a eso se limita.

No mencionaste sobre... los... emmm... no sé como llamarlos, los caracteres que dividen día, mes, año: "/" <---- así que solo acepta este...

Saludos!

Edite: ¡JUM! , @BlackZeroX▓▓▒▒░░

Pues no veo errores en tu código, trata lo siguiente:

1) Vuelve abrir el archivo de recursos para editarlo y fijate si todo está en orden.
2) Quita del proyecto de VB el archivo de recursos y despues vuelve a agregarlo.

Saludos