VB6获取汉字的五笔编码

这是ChatGPt给我写的，为什么无法获取到五笔编码啊？


在 VB6 中使用 Windows API 函数 ImmGetConversionList 来获取汉字的五笔编码，需要先声明该函数，然后调用它来获取五笔编码。
以下是一个示例代码，可以获取指定汉字的五笔编码：

Option Explicit

Private Declare Function ImmGetConversionList Lib "imm32.dll" Alias "ImmGetConversionListA" (ByVal hIMC As Long, ByVal dwSrc As Long, ByVal dwDst As Long, ByVal lpSrc As String, ByVal lpDst As Long, ByVal uBufLen As Long, ByVal uFlag As Long) As Long

Private Const GCL_REVERSECONVERSION = &H2
Private Const GCL_REVERSE_LENGTH = 256

Public Function GetWbCode(ByVal str As String) As String
    Dim hIMC As Long
    Dim dwSrc As Long
    Dim dwDst As Long
    Dim lpSrc As String
    Dim lpDst As Long
    Dim uBufLen As Long
    Dim uFlag As Long
    Dim lRet As Long
    Dim sWbCode As String
   
    ' 初始化参数
    hIMC = 0
    dwSrc = 0
    dwDst = GCL_REVERSECONVERSION
    lpSrc = str
    lpDst = StrPtr(sWbCode)
    uBufLen = GCL_REVERSE_LENGTH
    uFlag = 0
   
    ' 调用 ImmGetConversionList 函数
    lRet = ImmGetConversionList(hIMC, dwSrc, dwDst, lpSrc, lpDst, uBufLen, uFlag)
   
    ' 如果返回值大于 0，则表示获取成功
    If lRet > 0 Then
        ' 截取五笔编码
        sWbCode = Left(sWbCode, lRet)
        ' 返回五笔编码
        GetWbCode = sWbCode
    Else
        ' 获取失败，返回空字符串
        GetWbCode = ""
    End If
End Function

Private Sub Form_Load()
Dim sWbCode As String
sWbCode = GetWbCode("汉")
MsgBox sWbCode
End Sub