如何加载DLL 的续贴

Question

原贴地址：
http://expert.csdn.net/Expert/PostNew.asp?room=5104
在jennyvenus() 给的地址我找到了下面的代码
但是 如果我调用带参数的API 如：
m_ucmAPIByName.CallApiByName("user32.dll", "GetWindowTextA",255,str,Hwnd) 
下面这句就会报错 好象是类型不匹配！
m_lngParameters(o_intItems) = CLng(FuncParams(o_intItems - 1))如果调用无参数的API
用这句就行了 不要那么麻烦！
        CallApiByName = CallWindowProc(m_lngAddress, 0, 0, 0, 0)请各位帮忙解答 谢谢！
另请enmity(灵感之源) 来领分
**************************************************************************
类模块：
cAPIByName.cls
__________________________________________________________
Option ExplicitPrivate Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)
Private m_lngParameters() As Long
Private m_lngAddress As Long
Private m_bytCode() As Byte
Private m_lngCP As LongPublic Function CallApiByName(ByVal strLibName As String, _
                              ByVal strFuncName As String, _
                              ParamArray FuncParams()) As Long   Dim o_lngLb As Long, o_intItems As Integer
   
   ReDim m_lngParameters(0)
   
   ReDim m_bytCode(0)
   
   m_lngAddress = 0
   
   o_lngLb = LoadLibrary(ByVal strLibName)
   
   If o_lngLb Then
    m_lngAddress = GetProcAddress(o_lngLb, ByVal strFuncName)
    
    If m_lngAddress Then
    
        ReDim m_lngParameters(UBound(FuncParams) + 1)
        
        For o_intItems = 1 To UBound(m_lngParameters)
           m_lngParameters(o_intItems) = CLng(FuncParams(o_intItems - 1))
        Next o_intItems
        
        CallApiByName = CallWindowProc(PrepareCode, 0, 0, 0, 0)
    
    End If
    
    FreeLibrary o_lngLb
   
   End IfEnd Function
Private Function PrepareCode() As Long
    
    Dim o_lngItems As Long, o_lngCodeStart As Long
    
    ReDim m_bytCode(18 + 32 + 6 * UBound(m_lngParameters))
    
    o_lngCodeStart = GetAlignedCodeStart(VarPtr(m_bytCode(0)))
    
    m_lngCP = o_lngCodeStart - VarPtr(m_bytCode(0))
    
    For o_lngItems = 0 To m_lngCP - 1
        m_bytCode(o_lngItems) = &HCC
    Next
    
    AddByteToCode &H58 'pop eax
    AddByteToCode &H59 'pop ecx
    AddByteToCode &H59 'pop ecx
    AddByteToCode &H59 'pop ecx
    AddByteToCode &H59 'pop ecx
    AddByteToCode &H50 'push eax
    
    For o_lngItems = UBound(m_lngParameters) To 1 Step -1
        AddByteToCode &H68 'push wwxxyyzz
        AddLongToCode m_lngParameters(o_lngItems)
    Next
    
    AddCallToCode m_lngAddress
    
    AddByteToCode &HC3
    
    AddByteToCode &HCC
    
    PrepareCode = o_lngCodeStart
    
End Function
Private Sub AddCallToCode(lngAddress As Long)
    AddByteToCode &HE8
    AddLongToCode lngAddress - VarPtr(m_bytCode(m_lngCP)) - 4
End Sub
Private Sub AddLongToCode(lng As Long)
    
    Dim o_intItems As Integer
    Dim o_bytArray(3) As Byte
    
    CopyMemory o_bytArray(0), lng, 4
    
    For o_intItems = 0 To 3
        AddByteToCode o_bytArray(o_intItems)
    NextEnd Sub
Private Sub AddByteToCode(byt As Byte)
    m_bytCode(m_lngCP) = byt
    m_lngCP = m_lngCP + 1
End Sub
Private Function GetAlignedCodeStart(lngAddress As Long) As Long
    GetAlignedCodeStart = lngAddress + (15 - (lngAddress - 1) Mod 16)
    If (15 - (lngAddress - 1) Mod 16) = 0 Then GetAlignedCodeStart = GetAlignedCodeStart + 16
End Function