Foro de elhacker.net

Private Function GuardarVariables(NombreArchivo As String)
    Dim foo                 As Integer         'Número archivo
    Dim Texto1(99)          As String          'Reservamos 100 espacios para el Text1
    Dim Texto2(99)          As String          'Reservamos 100 espacios para el Text2
    Dim Texto3(99)          As String          'Reservamos 100 espacios para el Text3.
    Dim PosicionActual      As Long            'Variable que utilizaremos para saber cuál es la posición actual.
    Dim i                   As Integer
    
    foo = FreeFile                             'Proporciona un número de archivo libre.
    
    For i = 0 To Len(Text1)
        Texto1(i) = Mid$(Text1.Text, i + 1, 1)
    Next i
    
    For i = 0 To Len(Text2)
        Texto2(i) = Mid$(Text2.Text, i + 1, 1)
    Next i
    
    For i = 0 To Len(Text3)
        Texto3(i) = Mid$(Text3.Text, i + 1, 1)
    Next i
    
    Open NombreArchivo For Binary As #foo                   'Abre el archivo <NombreArchivo> para acceder en modo binario.
        PosicionActual = LOF(foo)                           'Obtiene el tamaño del archivo en bytes para obtener el primer byte vacío.
        
        For i = 0 To 99                                     '|
            PosicionActual = PosicionActual + 1             '| Posicion actual, cuando i = 0, obtiene el primer valor libre
            If Texto1(i) = "" Then                          '| Si la varible texto1 está vacía
                Put #foo, PosicionActual, 0                 '| Guarda en el archivo un valor 0
            Else                                            '|
                Put #foo, PosicionActual, Asc(Texto1(i))    '| Si no está vacía la variable guarda en valor ascii la letra del texto correspondiente.
            End If
        Next i
        
        'Se repite para la matriz Texto2
        For i = 0 To 99
            PosicionActual = PosicionActual + 1
            If Texto2(i) = "" Then
                Put #foo, PosicionActual, 0
            Else
                Put #foo, PosicionActual, Asc(Texto2(i))
            End If
        Next i
        
        'Se repite para la matriz Texto3
        For i = 0 To 99
            PosicionActual = PosicionActual + 1
            If Texto3(i) = "" Then
                Put #foo, PosicionActual, 0
            Else
                Put #foo, PosicionActual, Asc(Texto3(i))
            End If
            If i = 99 Then
                Stop
            End If
        Next i
    Close #foo
End Function

Private Function CargarVariables(NombreArchivo As String)
    Dim foo                 As Integer
    Dim Obteniendo          As Byte
    Dim Texto               As String
    Dim TamañoArchivo       As Long
    Dim PosicionActual      As Long
    Dim i                   As Integer
    
    foo = FreeFile
    
    Open NombreArchivo For Binary As #foo
        TamañoArchivo = LOF(foo)
        PosicionActual = TamañoArchivo - 300               'Se le resta 300 al tamaño del archivo por ser el resultado de la suma de los espacios reservados anteriormente
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                PosicionActual = PosicionActual + (100 - Len(Texto))
                Exit For
            End If
        Next i
        
        Text1.Text = Texto
        Texto = ""
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                PosicionActual = PosicionActual + (100 - Len(Texto))
                Exit For
            End If
        Next i
        
        Text2.Text = Texto
        Texto = ""
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                Exit For
            End If
        Next i
        
        Text3.Text = Texto
    Close #foo
End Function

Private Sub Command1_Click()
    GuardarVariables "archivo.exe"
End Sub

Private Sub Command2_Click()
    CargarVariables "archivo.exe"
End Sub

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'Leer en "Ejemplo.Ini":
Private Sub Form_Load()
    Dim I As Integer
    Dim Est As String
    Est = String$(50, " ")
    I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")
    If I > 0 Then
        MsgBox "Tu Nombre es: " & Est
    End If
End Sub
'Escribir en "Prueba.Ini":
Private Sub Form_Unload(Cancel As Integer)
    Dim I As Integer
    Dim Est As String
    Est = "Ejemplo - Apartado"
    I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini")
End Sub