vb ini 读取服务器信息,vb.net中如何读取ini文件中的分类信息？？？

'聲明INI配置檔讀寫API函數

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

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

'定義讀取配置檔函數

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, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

End Function

'定義寫入配置檔函數

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

'寫入

Try

Dim path As String

path = Application.StartupPath + "\server.ini"

WriteINI("Server", "IP", TextBox1.Text, path)

WriteINI("Server", "port", TextBox2.Text, path)

WriteINI("Server", "userName", TextBox3.Text, path)

'WriteINI("Server1", "IP", TextBox1.Text, path)

'WriteINI("Server1", "port", TextBox2.Text, path)

'WriteINI("Server1", "userName", TextBox3.Text, path)

MsgBox("配置設置已經成功！！！！")

Me.Close()

Catch ex As Exception

MsgBox("錯誤！！！！")

End Try

'讀取

Dim path As String

path = Application.StartupPath + "\server.ini"

TextBox1.Text = GetINI("Server", "IP", "", path)

TextBox2.Text = GetINI("Server", "port", "", path)

TextBox3.Text = GetINI("server", "userName", "", path)

一个人只有一个心脏，却有两个心房。一个住着快乐；一个住着悲伤。不要笑得太大声，不然会吵醒旁边的悲伤