getprofilesection.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "GetProfileSectionModule"
Option Explicit

Declare Function GetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Sub Main()
    Dim S As String, pos As Integer, count As Integer
    
    S = String(32767, 0)
    GetProfileSection "windows", S, Len(S)
    
    pos = InStr(S, Chr(0))
    While pos > 1
        count = count + 1
        MsgBox Left(S, pos - 1), , "GetProfileSection"
        S = Mid(S, pos + 1)
        pos = InStr(S, Chr(0))
    Wend
    MsgBox "[windows]含有 " & count & "个Key"
End Sub