[求助]请问这两个API的DynamicWrapper输入参数数量和类型该怎么写　[金字塔]

Private
		Declare
		Sub CopyMemory Lib
		"ntdll"
		Alias
		"RtlMoveMemory" (Destination As
		Any, Source As
		Any, ByVal Length As
		Long)

Private
		Declare
		Function StrCSpn Lib
		"shlwapi.dll"
		Alias
		"StrCSpnW" (ByVal lpStr&, ByVal lpCharacters&) As
		Long

谢谢！！

到网上一艘一大把

给你找了一篇 VBS调用Win32API示例：对话框

里面有相关累死的代码调用

Option Explicit
'************************************
'* Sample GUI only with API calls    *
'* Need DynaWrap component          *
'* Use Struct v1.1 Class               *
'* syntax Win NT et >                *
'* omen999 february 2007                *
'************************************

Class Struct ' v1.1  allow typedef with dynawrap calls
   Public Property Get Ptr '******************************* Property Ptr
       Ptr=GetBSTRPtr(sBuf)
   End Property
   Public Sub Add(sItem,sType,Data) '********************** Method Add
       Dim lVSize,iA,iB,iD
       iA=InStr(1,sType,"[",1)
       iB=InStr(1,sType,"]",1)
       iD="0"
       If iA>0    And iB>0 Then
           iD=Mid(sType,iA+1,iB-iA-1)
           If isNumeric(iD) Then
               sType=Left(sType,iA-1)
           Else
               Err.raise 10000,"Method Add","The index " & iD & " must be numeric"
               Exit Sub
           End If
       End If
       Select Case UCase(sType)'************************************************* COMPLETE WITH OTHERS WIN32 TYPES
       'OS 32bits...
       Case "DWORD","LONG","WPARAM","LPARAM","POINTX","POINTY","ULONG","HANDLE","HWND","HINSTANCE","HDC","WNDPROC","HICON","HCURSOR","HBRUSH"
           lVSize=4
       Case "LPBYTE","LPCTSTR","LPSTR","LPPRINTHOOKPROC","LPSETUPHOOKPROC","LPVOID","INT","UINT"
           lVSize=4
       Case "WORD"
           lVSize=2
       Case "BYTE"
           lVSize=1
       Case "TCHAR"
           If CLng(iD)<1 Then lVSize="254" Else lVSize=iD
       Case Else
           Err.raise 10000,"Method Add","The type " & sType & " is not a Win32 type."
           Exit Sub
       End Select
       dBuf.Add sItem,lVSize
       sBuf=sBuf & String(lVSize/2+1,Chr(0))
       SetDataBSTR GetBSTRPtr(sBuf),lVSize,Data,iOffset
   End Sub
   Public Function GetItem(sItem) '********************************************** Méthode GetItem
       Dim lOf,lSi,aItems,aKeys,i
       If dBuf.Exists(sItem) then
           lSi=CLng(dBuf.Item(sItem))
           aKeys=dBuf.Keys
           aItems=dBuf.Items
           lOf=0
           For i=0    To dBuf.Count-1
               If aKeys(i)=sItem Then Exit For
               lOf=lOf+aItems(i)
           Next
           GetItem=GetDataBSTR(Ptr,lSi,lOf)
       Else
           GetItem=""
           err.raise 10000,"Method GetItem","The item " & sItem & " don't exist"
       End If
   End Function
   Public Function GetBSTRPtr(ByRef sData)
   'retun the TRUE address (variant long) of the sData string BSTR
       Dim pSource
       Dim pDest
       If VarType(sData)<>vbString Then 'little check
           GetBSTRPtr=0
           err.raise 10000, "GetBSTRPtr", "The variable is not a string"
           Exit Function
       End If
       pSource=oSCat.lstrcat(sData,"")        'trick to return sData pointer
       pDest=oSCat.lstrcat(GetBSTRPtr,"")    'idem
       GetBSTRPtr=CLng(0)                        'cast    function variable
       'l'adresse du contenu réel de sBuf (4octets) écrase le contenu de la variable GetBSTPtr   
       'les valeurs sont incrémentées de 8 octets pour    tenir compte du Type Descriptor
       oMM.RtlMovememory pDest+8,pSource+8,4
   End Function
'**************************************************************************** IMPLEMENTATION
   Private oMM,oSCat,oAnWi 'objets wrapper API
   Private dBuf,sBuf,iOffset
   Private    Sub Class_Initialize 'Constructeur
       Set oMM=CreateObject("DynamicWrapper")
       oMM.Register "kernel32.dll","RtlMoveMemory","f=s","i=lll","r=l"
       Set oSCat=CreateObject("DynamicWrapper")
       oSCat.Register "kernel32.dll","lstrcat","f=s","i=ws","r=l"        
       Set oAnWi=CreateObject("DynamicWrapper")                        
         oAnWi.Register "kernel32.dll","MultiByteToWideChar","f=s","i=llllll","r=l"
       Set dBuf=CreateObject("Scripting.Dictionary")
       sBuf=""
       iOffset=0
   End Sub   
   Private Sub SetDataBSTR(lpData,iSize,Data,ByRef iOfs)
   'Place une valeur Data de taille iSize à l'adresse lpData+iOfs
       Dim lW,hW,xBuf
       Select Case iSize     'on commence par formater les valeurs numériques
       Case 1
           lW=Data mod 256     'formatage 8 bits
           xBuf=ChrB(lW)
       Case 2                     'if any
           lW=Data mod 65536 'formatage 16 bits
           xBuf=ChrW(lW)        'formatage little-endian
       Case 4
           hW=Fix(Data/65536)'high word
           lW=Data mod 65536 'low word
           xBuf=ChrW(lW) & ChrW(hW) 'formatage little-endian
       Case Else                'bytes array, size iSize
           xBuf=Data
       End Select
       oMM.RtlMovememory lpData+iOfs,GetBSTRPtr(xBuf),iSize
       iOfs=iOfs+iSize 'maj l'offset
   End Sub
   Private Function GetDataBSTR(lpData,iSize,iOffset)
   'Read an iSize data to lpData+iOffset address
       Const CP_ACP=0             'code ANSI   
       Dim pDest,tdOffset
       'valeurs pour les données numériques
       pDest=oSCat.lstrcat(GetDataBSTR,"")
       tdOffset=8
       Select Case iSize ' cast de la variable fonction
       Case 1
           GetDataBSTR=CByte(0)
       Case 2
           GetDataBSTR=CInt(0)
       Case 4
           GetDataBSTR=CLng(0)
       Case Else    'a little bit more complicated with string data...
             GetDataBSTR=String(iSize/2,Chr(0))
             'la chaine variant BSTR stocke ses données ailleurs
           pDest=GetBSTRPtr(GetDataBSTR)
           tdOffset=0
       End Select
       'le contenu de la structure à l'offset iOffset écrase le contenu de la variable GetDataBSTR (tenir compte du TD)
       oMM.RtlMovememory pDest+tdOffset,lpData+iOffset,iSize
       if tdOffset=0 Then
           oAnWi.MultiByteToWideChar CP_ACP,0,lpData+iOffset,-1,pDest,iSize 'don't forget conversion Ansi->Wide
           GetDataBSTR=Replace(GetDataBSTR,Chr(0),"")                               'clean the trailer
       End If
   End Function
End Class

Class XGui 'v1.0
' this class create a dialogbox only by api calls
' it uses automation component DynaWrap and the struct class upper to allow typedef with dynawrap calls
' 4 public methods: CreateForm, ShowForm, RunForm et AddControl
' 1 public object dictionnary dFrmData which keys are name controls and stores data controls
' edit, static et button controls return content, listbox/combobox the selected item if exists, or empty string
' radiobutton and checkbox return true if checked or false
' groupbox control always return false
' each control must have unique name
' if the last letter of a checkbox ou radiobutton control name is "k", the control wil be checked
' close form without dictionnary data with esc key, Alt+F4, close button and system menu
' button controls haven't default behavior et must be manage by RunForm method
' this release 1.0  manages only "&ok" et "&cancel" buttons
' button ok closes the form and set data dictionnary, button cancel acts like esc key


Public dFrmData ' object dictionnary
Public Sub CreateForm(sCaption,lLeft,lTop,lWidth,lHeight,bOnTaskBar)
'Create a modeless invisible form
'sCaption: form caption
'lLeft,lTop: coordinates form
'lWidth, lHeight: form dimensions
'bOnTaskBar: if true (-1) form is display on taskbar
'no return value

   Const WS_VISIBLE=&H10000000
   Const WS_POPUP=&H80000000
   Const WS_OVERLAPPEDWINDOW=&HCF0000
   Dim hTask,fChild
   If bOnTaskBar Then
       hTask=0
       fChild=0
   Else
       hTask=hWsh
       fChild=WS_CHILD
   End If
   hWF=oWGui.CreateWindowExA(0,"#32770",sCaption&"",WS_OVERLAPPEDWINDOW+WS_POPUP+fChild,lLeft,lTop,lWidth,lHeight,hTask,0,hIns,0)
End Sub
Public Sub ShowForm(bAlwaysOnTop)
'display the form created by CreateForm
'bAlwaysOnTop: if true (-1) form always on top
'no return value

   Const HWND_TOP=0
   Const HWND_TOPMOST=-1
   Const SWP_SHOWWINDOW=&H40
   Const SWP_NOMOVE=&H2
   Const SWP_NOSIZE=&H1
   Dim fTop
   
   If bAlwaysOnTop Then fTop=HWND_TOPMOST Else fTop=HWND_TOP
   oWGui.SetWindowPos hWF,fTop,0,0,0,0,SWP_SHOWWINDOW+SWP_NOMOVE+SWP_NOSIZE
End Sub
Public Sub RunForm()
'form messages pump and dictionnary gestion
'no return value

   Const WM_COMMAND=&H111
   Const WM_SYSCOMMAND=&H112
   Const WM_KEYUP=&H101
   Const WM_LBUTTONUP=&H202
   Const GCW_ATOM=-32
   Const LB_GETCURSEL=&H188
   Const LB_ERR=-1
   Const LB_GETTEXT=&H189
   Const LB_GETTEXTLEN=&H18A
   Const GWL_STYLE=-16
   Const WS_CHILD=&H40000000
   Const WS_VISIBLE=&H10000000
   Const WS_TABSTOP=&H10000
   Const BS_AUTOCHECKBOX=&H3
   Const BS_AUTORADIOBUTTON=&H9
   Const BM_GETCHECK=&HF0
   Const BST_UNCHECKED=&H0
   Const BST_CHECKED=&H1
   Const BST_INDETERMINATE=&H2
   Const BST_PUSHED=&H4
   Const BST_FOCUS=&H8
   Const CP_ACP=0
   Const GWL_ID=-12
   Dim sCN,sCNW         'control content ansi/wide
   Dim aKData,aHData 'dictionnary contents keys/datas
   Dim lGetI             'index selected item (listbox)
   Dim lStyle             'button style
   Dim lKCode            'param message
   Dim n                'compteur