como crear .INI con APIS de Windows

[kler7]

Hola, quisiera que me ayuden con este tema, como crear un archivo .INI  con APIS de Windows ,en la ruta disco C con macros vba excel.

La idea es esta: En el formulario debe escribir código de de activación en un textbox  y al hacer clic en boton registrar, este debe ser corroborado con el código de una celda de hoja excel, si cumple crea archivo .INI, en la ruta disco C y en las siguientes aperturas del libro verifica el código y ya no se muestre el formulario registro. Caso contrario si no corresponde el código activación y no se registra aun,me siga mostrando el formulario registro. Si es posible se puede agregar tiempo de uso a 15 días si no se registra.

Adjunto libro excel con el formulario para ser trabajado....(si hace falta mas objetos agregar...)

Gracias de antemano por la ayuda al foro.

Saludos.

 

Ini Apis.xlsm

[LeandroA]

hola con este codigo podes escribir y leer un archivo .ini

Option Explicit

Const APPLICATION As String = "EXCEL"

#If VBA7 Then
Private Declare PtrSafe 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
Private Declare PtrSafe Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) As Long
#Else
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( ByVal lpApplicationName As String,  ByVal lpKeyName As String,  ByVal lpDefault As String,  ByVal lpReturnedString As String, ByVal nSize As Long,  ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (  ByVal lpApplicationName As String,  ByVal lpKeyName As String, ByVal lpString As String,  ByVal lpFileName As String) As Long
#End If
Public sPathIni   As String


Public Function Leer_Ini(Path_INI As String, Key As String, Optional Default As Variant = vbNullString) As String
    Dim bufer As String * 256
    Dim Len_Value As Long
    Len_Value = GetPrivateProfileString(APPLICATION, Key, Default, bufer, Len(bufer), Path_INI)
    Leer_Ini = Left$(bufer, Len_Value)
End Function
   
Public Function Grabar_Ini(Path_INI As String, Key As String, Valor As Variant) As String
    WritePrivateProfileString APPLICATION, Key, Valor, Path_INI
End Function

 

[LeandroA]

bueno la respuesta era mucho mas larga pero el foro me lo corto y no tengo ganas de volver a escribir todo así que solo te voy a dar un ejemplo de como se usa y no te recomiendo que utilices c:\ porque requiere derecho de administrador elegí mejor otra ubicación como por ejemplo la del documento.

este es un ejemplo para su uso vos desarroya el resto.

Option Explicit

Private Sub UserForm_Initialize()
    sPathIni = ThisWorkbook.Path & "\Conf.ini"
    Call Grabar_Ini(sPathIni, "ClaveRegistro", "MiPalabraSecreta")
End Sub

Private Sub CommandButton1_Click()
    txtCodigo.Text = Leer_Ini(sPathIni, "ClaveRegistro")
End Sub