modreadwriteini.bas

vb编制的木马加花器

Attribute VB_Name = "ModReadWriteIni"
Option Explicit
'INI文件读写
Private Declare 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 Function WritePrivateProfileString Lib "kernel32" _
   (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpString As Any, _
   ByVal lpFileName As String) As Long
Public Buff As String

Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal FileName As String) As String
On Error GoTo GetIniStrErr
If Trim$(In_Key) = "" Then
   GoTo GetIniStrErr
End If
Dim GetStr As String
GetStr = String(256, 0)
 GetPrivateProfileString AppName, In_Key, "", GetStr, 256, FileName
  GetStr = Replace(GetStr, Chr(0), "")
If GetStr = "" Then
   GoTo GetIniStrErr
Else
   GetIniStr = GetStr
   GetStr = ""
End If
Exit Function
GetIniStrErr:
   Err.Clear
   GetIniStr = ""
   GetStr = ""
End Function
Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String, iniPath As String) As Boolean
On Error GoTo WriteIniStrErr
WriteIniStr = True
If Trim(In_Data) = "" Or Trim(In_Key) = "" Or Trim(AppName) = "" Then
   GoTo WriteIniStrErr
Else
 WritePrivateProfileString AppName, In_Key, In_Data, iniPath
 WriteIniStr = True
End If
Exit Function
WriteIniStrErr:
   Err.Clear
   WriteIniStr = False
End Function