Imports VB = Microsoft.VisualBasic’
'引用 函数
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) ''API SLEEP
Public Declare Sub writePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String)
Public 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 Integer, ByVal lpFileName As String) As Integer
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
'文件读取
Public Function readFromIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String
Try
Dim i As Integer
Dim buff As New Microsoft.VisualBasic.Compatibility.VB6.FixedLengthString(128)
GetPrivateProfileString(Section, Key, "", buff.Value, 128, FileName)
i = InStr(buff.Value, Chr(0))
readFromIni = Trim(Left(buff.Value, i - 1))
Catch ex As Exception
errNo = 1
MsgBox(ex.Message)
End Try
End Function
'文件写入
Public Sub writeToIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
Try
Dim buff As New Microsoft.VisualBasic.Compatibility.VB6.FixedLengthString(128)
buff.Value = Value & Chr(0)
writePrivateProfileString(Section, Key, buff.Value, FileName)
Catch ex As Exception
MsgBox(ex.Message)
errNo = 1
End Try
End Sub
'调用方法
'读取文件中的信息
serverUrl = readFromIni(My.Application.Info.DirectoryPath & "/config.dll", "Service Information", "IPAddress")
‘向文件写入信息
WriteToIni(My.Application.Info.DirectoryPath & "/config.dll", "Service Information", "IPAddress", strIPAddress)