التحكم فى ملفات الـ INI - مكتبة أكواد VB.NET

'تعاريف API
    Public Declare Auto Function GetPrivateProfileInt Lib "kernel32" _
        (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
        ByVal nDefault As Integer, ByVal lpFileName As String) As Integer

    Public Declare Auto Function GetPrivateProfileSection Lib "kernel32" _
        (ByVal lpAppName As String, ByVal lpReturnedString As String, _
        ByVal nSize As Integer, ByVal lpFileName As String) As Integer

    Public Declare Auto Function GetPrivateProfileString Lib "kernel32" _
        (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
        ByVal lpDefault As String, ByVal lpReturnedString As String, _
        ByVal nSize As Integer, ByVal lpFileName As String) As Integer

    Public Declare Auto Function WritePrivateProfileSection Lib "kernel32" _
        (ByVal lpAppName As String, ByVal lpString As String, _
        ByVal lpFileName As String) As Integer

    Public Declare Auto Function WritePrivateProfileString Lib "kernel32" _
        (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
        ByVal lpString As String, ByVal lpFileName As String) As Integer
'وهذا مثال
   ' تعريف الإجراءات اللازمة
    Public Declare Auto Function GetPrivateProfileString Lib "kernel32" _
    (ByVal lpApplicationName As String, ByVal _
    lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, _
    ByVal nSize As Integer, ByVal lpFileName As String) As Integer

    Private Declare Auto Function WritePrivateProfileString Lib "kernel32" _
         (ByVal lpApplicationName As String, _
        ByVal lpKeyName As String, ByVal lpString As String, _
        ByVal lpFileName As String) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' تعريف المتغيرات المناسبة
        Dim Ret As Long
        Dim Rcv As String = Space(255)

        ' تجربة كتابة على الملف
        Ret = WritePrivateProfileString("Test Section", "Setting String", "Some Value", "d:\Test.ini")
        Ret = WritePrivateProfileString("Test Section", "Additional Setting String", "Additional Some Value", "d:\Test.ini")
        Ret = WritePrivateProfileString("Other Section", "Other Setting String", "Some Other Value", "d:\Test.ini")

        ' تجربة القراءة من ملف
        Ret = GetPrivateProfileString("Test Section", "Setting String", "Default Value", Rcv, Rcv.Length, "d:\Test.ini")
        MsgBox(Trim(Rcv))
        Rcv = Space(255)
        Ret = GetPrivateProfileString("Test Section", "Additional Setting String", "Default Value", Rcv, Rcv.Length, "d:\Test.ini")
        MsgBox(Trim(Rcv))
        Rcv = Space(255)
        Ret = GetPrivateProfileString("Other Section", "Other Setting String", "Other Default Value", Rcv, Rcv.Length, "d:\Test.ini")
        MsgBox(Trim(Rcv))
    End Sub