Mensajes

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
    If RunInIDE Then
        MsgBox "IDE"
    Else
        MsgBox "Compilado"
    End If
End Sub

Public Function RunInIDE() As Boolean
    RunInIDE = App.LogMode = 0
End Function



Dulces Lunas!¡.

[Cobol]

.
A se me olvido Cobol es suspirantemente viejo y aun se usa.... y en BANCOS, pero bueno estamos con VB6 no? jem

Dulces Lunas!¡.

.
Lo malo de lo nuevo es que te tapan gradualmente algunos aspectos!¡.

Al igual que Cobein, si vb6 se esfuma me paso a C/C++, aun que actualmente programo en .NET actualmente!¡.

Punteros solo basta con ver las funciones RunPE o pasasrse a ver los proyectos realizados en vb6 que se encuentran en PSC

P.D.: Me toco trabajar con un Ing en Sis compu. (IPN-UPIICSA) que "programa" supuestamente en .NET... no sabia que era un stack ¬¬"... al igual que una chava que preguntaba cosas que ...

Dulces Lunas!¡.

@LeandroA

Esperame ando trabajando en otra version, esta digamos que como todo seria algo asi como un esboso!¡.

@*PsYkE1*, raul338

Da igual como lo hagas el chiste de esto es que sea lo mas RAPIDO posible!¡.

Dulces Lunas!¡.

@[D4N93R] no se si por ignorante o que pero practicamente TODO lo que dices se puede hacer!¡. menos armar un SO con BAsic....

Ducle sLunas!¡.

la funcion devuelve el puntero al string del archivo donde se desea buscar!¡.

Se puede ingresar un puntero de inicio
devuelve -1 si no encontro nada

Código (vb) [Seleccionar] Expandir



Option Explicit

Public Function FindInStr(ByVal InThisFile As String, ByVal InStrToFind As String, Optional ByVal PointFile As Long = 0, Optional ByVal bUnicode As Boolean = False) As Long
    Dim lFF             As Integer
    Dim lLenFile        As Long
    Dim vAFile()        As Byte, lindex     As Long, ByteAlt        As Byte
    Dim vAStr()         As Byte
    Dim lLenStr         As Long, LIndexStr  As Long

    FindInStr = -1
    lLenStr = Len(InStrToFind)
   
    If Not Dir(InThisFile, vbArchive) = "" And lLenStr > 0 Then
        lFF = FreeFile
        Open InThisFile For Binary As lFF
            lLenFile = LOF(lFF)
            If lLenFile Then
                If bUnicode Then
                    InStrToFind = StrConv(InStrToFind, vbUnicode)
                End If
                vAStr = StrConv(InStrToFind, vbFromUnicode)
               
                ReDim vAFile(0 To lLenFile)
                If PointFile > 0 Then
                    If Not (lLenFile - lLenStr >= PointFile) Then GoTo Err_
                    Get lFF, PointFile, vAFile
                Else
                    Get lFF, , vAFile
                End If

                For lindex = 0 To lLenFile - lLenStr - 2
                    For LIndexStr = 0 To lLenStr - 1
                        If Not vAFile(lindex + LIndexStr) = vAStr(LIndexStr) Then
                            If vAFile(lindex + LIndexStr) < 91 Then
                                ByteAlt = vAFile(lindex + LIndexStr) + 32
                            ElseIf vAFile(lindex + LIndexStr) < 123 Then
                                ByteAlt = vAFile(lindex + LIndexStr) - 32
                            End If
                            If Not ByteAlt = vAStr(LIndexStr) Then Exit For
                        End If
                    Next LIndexStr
                    If LIndexStr >= lLenStr - 1 Then
                        FindInStr = lindex + PointFile
                        If PointFile Then FindInStr = FindInStr - 1
                        Exit Function
                    End If
                Next lindex
            End If
Err_:   Close lFF
    End If

End Function

Private Sub Form_Load()
    MsgBox FindInStr(Environ("windir") & "\explorer.exe", "Mostrar en el escritorio", , False)
End Sub



Dulce Infierno Lunar!¡.

BlackZeroX (v 3)

esta en base a la funcion de Karcrack xP

Lol

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

Dulces Lunas!¡.

no te procupes solo seria un hook temporal xP... solo para seguridad nada permanente!¡.

Dulces Luans!¡.

[no comprove coherencias!¡]

no comprove coherencias!¡, por lo cual no comprove que estubieran bien dichas funciones

Código (vb) [Seleccionar] Expandir



Tokes: 128,759 msec
[D4N93R]: 10.388,359 msec
Raul338: 308,872 msec
Novlucker : 131,863 msec
BlackZeroX (v 2): 96,643 msec
BlackZeroX (v 3): 35,655 msec



http://infrangelux.sytes.net/FileX/index.php?file=/BlackZeroX/Comprovaciones/Lychrel/Gral%20Lychrel%2001.zip&dir=/BlackZeroX/Comprovaciones/Lychrel&

P.D.: En efecto Karcrack es mas rapido!¡.

Dulces Lunas!¡.