Mensajes

[* Detecta si mswinsck.ocx está instalado, si no lo está lo descarga silenciosamente y lo registra (según la versión del OS), (esto está todavía en beta hasta realizar pruebas en distintos sistemas)]

....
* Detecta si mswinsck.ocx está instalado, si no lo está lo descarga silenciosamente y lo registra (según la versión del OS), (esto está todavía en beta hasta realizar pruebas en distintos sistemas).
...

Dios santo, que chapuzada...
Busca: cSocketPlus o cSocketMaster y te ahorrarás las referencias.

DoEvents!

[raul338]

Un poco tarde... aquí está la mía:

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Const sMonths$ = "01 02 03 04 05 06 07 08 09 10 11 12"
Private Const s31Months$ = " 1 3 5 7 8 01 03 05 08 10 12 "
Private Const sDays$ = sMonths & " 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31"

'// Acepta formatos: DD/MM/YYYY, D/MM/YYYY y DD/M/YYYY.
Public Static Function IsDate_Psyke1(ByRef sDate$) As Boolean
Dim sDay$, sMonth$, sYear$, lp1&, lp2&
   If LenB(sDate) < &H16 And LenB(sDate) > &HE Then
       lp1 = InStrB(1, sDate, "/", vbBinaryCompare)
       If lp1 = 0 Then Exit Function

       sDay = LeftB$(sDate, lp1 - 1)
       If InStrB(1, sDays, sDay, vbBinaryCompare) Then
           lp2 = InStrB(lp1 + 1, sDate, "/", vbBinaryCompare)
           If lp2 = 0 Then Exit Function

           sMonth = MidB$(sDate, lp1 + 2, lp2 - lp1 - 2)
           If InStrB(1, sMonths, sMonth, vbBinaryCompare) Then
               sYear = RightB$(sDate, 8)
               If Not (sYear Like "####") Then Exit Function

               If InStrB(1, "02", sMonth, vbBinaryCompare) Then
                   If InStrB(1, "29", sDay, vbBinaryCompare) Then
                       IsDate_Psyke1 = ((sYear Mod &H4 = 0) And (sYear Mod &H64) Or (sYear Mod &H190 = 0))
                       Exit Function
                   ElseIf InStrB(1, "30", sDay, vbBinaryCompare) Then
                       Exit Function
                   End If
               ElseIf InStrB(1, "31", sDay, vbBinaryCompare) Then
                   IsDate_Psyke1 = InstrB(1, s31Months, sMonth, vbBinaryCompare)
                   Exit Function
               End If

               IsDate_Psyke1 = True
           End If
       End If
   End If
End Function

Tests:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Const sLine$ = "----------------------------------------"

   Debug.Print sLine; "TRUE"; sLine
   Debug.Print IsDate_Psyke1("31/07/2000")
   Debug.Print IsDate_Psyke1("29/02/2004")
   Debug.Print IsDate_Psyke1("15/07/2000")
   Debug.Print IsDate_Psyke1("30/12/2011")
   
   Debug.Print sLine; "FALSE"; sLine
   Debug.Print IsDate_Psyke1("29/02/2003")
   Debug.Print IsDate_Psyke1("01/13/2011")
   Debug.Print IsDate_Psyke1("30/02/2001")
   Debug.Print IsDate_Psyke1("00/12/2011")
   Debug.Print IsDate_Psyke1("as/12/2000")
   Debug.Print IsDate_Psyke1("13/as/2000")
   Debug.Print IsDate_Psyke1("-31/44/2070")
   Debug.Print IsDate_Psyke1("31/12/20s0")
End Sub

Resultado:

Código [Seleccionar] Expandir

----------------------------------------TRUE----------------------------------------
True
True
True
True
----------------------------------------FALSE----------------------------------------
False
False
False
False
False
False
False
False



Ahora con el proyecto de raul338 (compilado y con la función de BlackZeroX actualizada), los tests me dicen que devuelve resultados correctos, y en cuanto a velocidad me dio esto:

Código [Seleccionar] Expandir

Testeo de velocidades
==============================
43,920 msec Ignorante v1.1
35,993 msec 79137913
21,728 msec BlackZeroX
73,901 msec $Edu$
89,051 msec Tenient101
27,381 msec Raul338
16,374 msec Psyke1

@Raul338, @Ignorante :

Código (vb) [Seleccionar] Expandir


   Debug.Print IsDate_r338("31/12/20f0")         ' = True.. xD
   Debug.Print heyIgnorante_isDate("31/12/25y0") ' = True.. xD


Por tanto las funciones que dan resultados correctos:

Código [Seleccionar] Expandir

Testeo de velocidades
==============================
35,993 msec 79137913
21,728 msec BlackZeroX
16,374 msec Psyke1



@BlackZeroX:
Me gustaría que me explicaras un par de cosas de tu código, si te pillo por el msn te molesto, que hace mucho que no hablamos.

DoEvents!

[LenB()]

La forma más rápida que sé de hacerlo es esta:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
Dim s$
    s = "Hola mundo"
    MsgBox LenB(s) \ 2
End Sub

La función LenB() te devuelve la longitud en Bytes de una cadena, después dividimos entre dos y ya está.
Los test que hice cuando programaba me dieron esta conclusión en cuanto a rapidez se refiere:

Código [Seleccionar] Expandir

Lenb\2 > Len() > lstrlenW()


@BlackZeroX▓▓▒▒░░: Dios mío, había olvidado la dedicación que pones en tus explicaciones.

DoEvents!

[@BlackZer0x]

Ui, lograsteis captar mi atención, está interesante el tema, más tarde le echo un vistazo a fondo.

@BlackZer0x

Spyke - Mr Frogs -> Anda de parranda ¬¬"

Nos conocemos desde hace mucho y aún no sabes ni escribir mi nick...

DoEvents!

¡Muchas gracias a todos chicos! 

DoEvents!

Hola, gracias por contestar, pero no me refiero en la manera en la que están distribuidas las fotos si no en los efectos que llevan las fotos en sí.

Este efecto concretamente :


Fuente :

Código [Seleccionar] Expandir

http://photodmn.com/

Gracias.

DoEvents!

Hola chicos, vengo con una duda muy concreta.
¿Cómo podría conseguir el efecto que tienen las fotos de esta web?

Código [Seleccionar] Expandir

http://photodmn.com/
¿Se podría hacer con el GIMP también?

Muchas gracias

[@VanX]

@VanX
Sí, base para hacerlo mal...
No es por nada, pero aún no he visto un tutorial de ese estilo que merezca la pena, la forma de hacer las cosas es pésima, y si la gente se limíta a copiarlo sin más cambiando un par de cosas para poder decir que es "su troyano" se acabará dando cuenta que no a aprendido nada y que será detectadísimo.

@hackertotal22
Mi humilde consejo : Lee infinidad de tutoriales, en inglés también los hay buenísimos.
Para aprender de verdad búscate un troyano bien hecho y fíjate como hace las cosas, googlea mucho y pregunta las dudas que no te resuelva [google + probar mucho].

DoEvents!

[Como guia tenes:]

...

Como guia tenes:

troyano en vb desde CERO, INDICE de contenidos en la primera pagina, GranManual
http://foro.elhacker.net/index.php/topic,57545.0.html


TROYANO EN VB, EMPECEMOS YA
http://foro.elhacker.net/index.php/topic,39680.0.html

Manual de Programacion de Troyanos en VB 6
http://foro.elhacker.net/index.php?topic=113373.msg523468#top

...

Que daño hicieron, hacen y harán ese tipo de tutoriales...

DoEvents!

[79137913]

Opino igual que 79137913... No lo veo necesario.

@VanX
Pones en el buscador del foro :

Código [Seleccionar] Expandir

SRC
Source
Código
Y ya está.

DoEvents!