Mensajes

@Shell Root

no lo hubieras hecho, el podia buscar mejor...

o gracias lo traduciré a vb6 en cuanto pueda

Dulces lunas!¡.

usa el buscador de eso se a hablado y respondido

Creo que la primera vez que pusieron esa pagina fue LeandroA xP se me habia olvidado lo meto a favoritos

Dulces Lunas!¡.

[youtube=425,350]http://www.youtube.com/watch?v=s8wNzndRvPM[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=bwMf8rJ6VI8[/youtube]

Dulces Lunas!¡

No si hace referencias el código fuente a archivos externos...

Edito---

app.path solo devuelve la ruta actual de la aplicación mas no incluye los archivos externos, lee-te un manual y lee la teoría yo estaba igual que tu cuando empezaba xP

Dulces Lunas!¡

[Encryptar y/o descifrar miles de MEGAS sin perder velocidad]

No se que hacer mas me he puesto a mejorar códigos así que pongo esta función es una función realmente rápida a comparación a las que se encuentran en google, así que pueden Encryptar y/o descifrar miles de MEGAS sin perder velocidad ya que los códigos que se encuentran en google pierden velocidad de descifrado en el acto.

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////

Option Explicit
Enum ActionsHexStr
    HexToString = 0
    StringToHex
End Enum
Public Function HexAndString(ByVal vData As String, Optional Accion As ActionsHexStr = HexToString) As String
Dim LenBuffer               As Long
Dim LenOfBuffer             As Integer
Dim Puntero                 As Long
Dim I                       As Long
Dim vStep                   As Integer
    If CBool(IIf(Accion = HexToString And (Len(vData) Mod 2) = 0, True, IIf(Accion = StringToHex, True, False))) Then
        LenBuffer = IIf(Accion = HexToString, Len(vData) / 2, Len(vData) * 2)
        LenOfBuffer = IIf(Accion = HexToString, 1, 2)
        HexAndString = Space(LenBuffer)
        vStep = IIf(Accion = HexToString, 2, 1)
        Puntero = 1
        For I = 1 To Len(vData) Step vStep
            If Accion = HexToString Then
                Mid(HexAndString, Puntero, LenOfBuffer) = Chr$(Val("&H" & Mid$(vData, I, 2)))
                Puntero = Puntero + 1
            Else
                Mid(HexAndString, Puntero, LenOfBuffer) = Hex$(Asc(Mid$(vData, I, 1)))
                Puntero = Puntero + 2
            End If
        Next I
    End If
End Function



P.D.: Estoy aburrido me ire a jugar basketball nos vemos!¡.

Dulces Lunas!¡

     

@ Karcrack

cuando abrí el tema me resaltaron las grandes expresiones de los integrantes... sin palabras o era una competencia de iconos gestuales?

[que grosso este foro... C@rajo!]

que grosso este foro... C@rajo!


P/D: BlackZero cambiaste la foto  

Cuantas veces lo tendré que decir es BlackZeroX no BlackZero

siempre se cambia la foto según la cambie en el msn es decir la que ves en el foro es la misma de mi msn xP


@Novlucker

Volviendo al principio y por curiosidad, no debería de tomar tanto para llegar al nivel 500, pero de cualquier manera los números son bestiales XD

Es por los números y creo que por otra cosilla pero igual lo reviso después Xao a y la longitud de los números esta limitada por el buffer que solo le asigne 255 caracteres

El limite de lineas es de 932 si es que no se aumentan los buffers de memoria

Dulces Lunas!¡

Ahora si mucho mejor 

Ahora bien...que pasaria si hacemos la inversa ? 

Pues tendría que llegar a 1 no ¬¬"

Dulces Lunas!¡