Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - raul338

#751
Programación Visual Basic / Re: [Reto] IsHour
15 Septiembre 2011, 23:40 PM
Usando el mismo estilo de prueba que use en IsDate :rolleyes:

=== Reto IsHour ====
09-15-2011 18:41:27

Testeo de calidad
==============================
00:00:00 Psyke1 FAILS

Testeo de falsos
==============================
5:59:59 Psyke1 FAILS


Testeo de velocidades
==============================
300000 vueltas

413,168 msec BlackZeroX
1.198,057 msec Psyke1
572,217 msec Psyke14
215,601 msec raul338
#752
Programación Visual Basic / Re: [Reto] IsHour
15 Septiembre 2011, 15:02 PM
Buena idea con el reto :D yo me olvide que iba a proponer de reto y después se me paso :xD

Hice lo mismo que BlackZeroX, agarre mi IsDate y lo transforme a IsHour!! :xD
Ademas de que lo optimize (y puedo optimizar tambien el IsDate, pero ya fue xD)
Código (vb) [Seleccionar]

Public Function IsHour_r338(str As String) As Boolean
If str = vbNullString Then Exit Function
If LenB(str) <> 16 Then Exit Function
   
    Dim j As Long, k As Long, vTemp As Byte, jp As Long
    Dim strp As Long
    strp = StrPtr(str)
    jp = VarPtr(j)
    For k = 0 To 14 Step 2
        Call RtlMoveMemory(jp, strp + k, 1)
        Select Case k
            Case 0
                If j < 48 And j > 50 Then Exit Function
                vTemp = (j - 48) * 10
            Case 2
                If j < 48 And j > 57 Then Exit Function
                vTemp = vTemp + (j - 48)
                If vTemp > 23 Then Exit Function
            Case 4, 10: If j <> 58 Then Exit Function
            Case 6, 12
                If j < 48 And j > 53 Then Exit Function
                vTemp = (j - 48) * 10
            Case 8, 14
                If j < 48 And j > 57 Then Exit Function
                vTemp = vTemp + (j - 48)
                If vTemp > 59 Then Exit Function
        End Select
    Next
    IsHour_r338 = True
End Function
#753
Noticias / Re: Cambio radical de interfaz en Windows 8
15 Septiembre 2011, 01:34 AM
Cita de: wolfbcn en 14 Septiembre 2011, 01:27 AM
Windows 8 será, además un sistema exportable. Una empresa puede suministrar a su empleado una llave USB con el sistema copiado al completo de tal manera que pueda proseguir sus tareas fuera del ordenador corporativo.
:D
#754
Programación Visual Basic / Re: winsocks
13 Septiembre 2011, 03:14 AM
Chicos, la duda fue resuelta. No hagan de esto un offtopic. Si quieres presentar una herramienta o proponer su habla, crea un nuevo tema o un sitio dedicado a el.
#755
Desarrollo Web / Re: Ver html generado por javascript
13 Septiembre 2011, 00:20 AM
Cita de: ~ Yoya ~ en 13 Septiembre 2011, 00:14 AM
Con firebug y el Inspector de elementos de Chrome (El inspector es parte del core de chrome), se puede hacer lo que dices.

+1. En chrome, a lo que quieres "debuggear" le haces click derecho -> "Inspeccionar elemento" y te saldra el HTML ordenadito y con las propiedades CSS al lado :P

Y podes modificar "en vivo" lo que sea :P
#756
Nivel Web / Re: XSS sin <script>
12 Septiembre 2011, 23:30 PM
prueba con frames :P o links con "javascript:"
#757
Programación Visual Basic / Re: situarme en x linea
11 Septiembre 2011, 22:35 PM
Ya te iba a proponer eso :xD

Fijate que tambien hay otras implementaciones hasta usando API (para que sea mas exacta viste :P) de BlackZeroX y otros
#758
Programación Visual Basic / Re: situarme en x linea
11 Septiembre 2011, 22:15 PM
Para eso tienes que debbugear bien :P

Fijate sobre Option Explicit :P
#759
Programación Visual Basic / Re: situarme en x linea
11 Septiembre 2011, 22:12 PM
De donde estas obteniendo es algun servidor UNIX/UNIX-Like :P y a diferencia de windows, los saltos de lineas son vbLf (en windows es vbCrLf) :P
#760
Programación Visual Basic / Re: [Ayuda] CMD Echo
11 Septiembre 2011, 22:11 PM
Tu quieres hacer una aplicacion de consola, y no estoy seguro de que se pueda :P
A menos que quieras simular una consola para ejecutar otras aplicaciones :-\