HOLA!!!

XD se me paso Karcrack, lo vi despues

De a poco la voy a ir optimizando

Funcion actualizada:
Cambiado Asc por AscW
Funcion convertida a Long
Agregada comparacion por InstrB

GRACIAS POR LEER!!!

HOLA!!!

Listo!!!

Private Function FirstWord7913(W1 As String, W2 As String) As Long
 
    If LenB(W1) = 0 Then
            FirstWord7913 = 0
            Exit Function
    End If
 
    If LenB(W2) = 0 Then
            FirstWord7913 = 0
            Exit Function
    End If
 
Dim ST1 As Byte
Dim ST2 As Byte
    ST1 = LCase$(W1)
    ST2 = LCase$(W2)
    If LenB(ST1) = LenB(ST2) Then
        If InStrB(1, ST1, ST2, vbBinaryCompare) Then
            FirstWord7913 = 3
            Exit Function
        End If
    End If
 
Dim B1() As Byte
Dim B2() As Byte
B1 = ST1
B2 = ST2
Dim X As Long
    If UBound(B1) > UBound(B2) Then
        For X = 1 To UBound(B2) Step 2
            If B1(X) < B2(X) Then
                FirstWord7913 = 1
                Exit Function
            ElseIf B1(X) > B2(X) Then
                FirstWord7913 = 2
                Exit Function
            End If
        Next
        FirstWord7913 = 2
        Exit Function
    Else
        For X = 1 To UBound(B1) Step 2
            If B1(X) < B2(X) Then
                FirstWord7913 = 1
                Exit Function
            ElseIf B1(X) > B2(X) Then
                FirstWord7913 = 2
                Exit Function
            End If
        Next
        FirstWord7913 = 1
        Exit Function
    End If
 
End Function

GRACIAS POR LEER!!!

HOLA!!!

Si, Mr Frog, me precipite al preguntar, termine resolviendo mi duda solo,.. ( De la misma manera que planteas).

GRACIAS POR LEER!!!

HOLA!!!

Bueno, hoy intentando hacer una interfaz totalmente pintada intente hacer unas lineas en escala de grises, pero no se que numeros corresponden a los grises... :S

Yo pensaba que conseguia grises haciendo n*n*n y me daba un long correspondiente a un punto de la escala de grises, me pueden pasar como calcular esta Escala PLZ.

Me.Line (0, Y)-(Me.ScaleWidth, Y), GRIS

Solucion: usar funcion RGB XD

GRACIAS POR LEER!!!

HOLA!!!

El Jezzball o el SKI (ojo con el yeti)

GRACIAS POR LEER!!!

HOLA!!!

MMM... suponiendo que lo que decis funciona, instala el firefox bajate el tamperdata anda a la pagina oficial de WL y pone para restablecer la contraseña ahi empeza a interceptar... cambia el valor de ese texto y listo.

GRACIAS POR LEER!!!

HOLA!!!


Eso fue duro ... Uhh :S

GRACIAS POR LEER!!!

HOLA!!!

Mira, yo todavia tengo mi comodore 128 de cuando era bebe, mis viejos nunca la vendieron, sigue andando...

Pero yendo mas al presente una de mis pcs es una con 20gb de rigido y 32mb de ram y 56k de conexión a internet ahh, y no me voy a olvidar de lo mas importante... WINDOWS MILENIUM XD. (me encanta usarla me vuelve al pasado).

Igual siempre me manejo con mi notebook 1 tera y 8 gb core i7 vuela xD.

GRACIAS POR LEER!!!

HOLA!!!

Ejemm.. FORMAT C: XD

GRACIAS POR LEER!!!

HOLA!!!

JAJAJA, por que no me dijiste que querias una Venganza XD.

Lo que podes hacer es estudiar y asi vas a poder entrar en su pc y hacer un"contra-ataque"

GRACIAS POR LEER!!!