module1.bas

一个用vb开发的比较好的聊天系统

Attribute VB_Name = "Module1"
Public 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
    
Public Function ReadString(Section As String, key As String, Size As Long, file As String) As String
    Dim ReturnStr As String
    Dim ReturnLng As Long
    ReadString = vbNullString
    ReturnStr = Space(Size)
    ReturnLng = GetPrivateProfileString(Section, key, vbNullString, ReturnStr, Size, file)
    ReadString = Left(ReturnStr, ReturnLng)
End Function