VB.NET 读写ini文件

读写ini文件

---

Imports System.Text
Imports System.IO
Public Class io_ini
    Public path As String
    '读ini api string
    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 Int32, ByVal lpFileName As String) As Int32
    '写ini api
    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 Int32
    '读ini
    Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
        Dim Str As String = LSet(Str, 256)
        GetPrivateProfileString(Section, AppName, Nothing, Str, Len(Str), FileName)
        Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
    End Function
    '写ini
    Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
        WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
    End Function
    Sub New()
        Try
            Path = Application.StartupPath & "/user.ini"
            If File.Exists(Path) = False Then
                File.Create(Path)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "为文件创建保存路径时出错！ ")
        End Try
    End Sub
    Public Function ok()
        If Len(GetINI("user_info", "id", "", path)) > 10 And Len(GetINI("user_info", "pass", "", path)) > 5 Then
            Return True
        End If
        Return False
    End Function
End Class