vbs脚本中引用dll的方法

1、注册dynwrap.dll
copy dynwrap.dll c:\windows\system32\
regsvr32 c:\windows\system32\dynwrap.dll /c

下载地址：

http://download.csdn.net/detail/zhouzhou423/7178129

2、包装方法
Function SendMessage(str_Handle,msg,wParam,lParam)
 Dim oWsm
 Set oWsm=CreateObject("dynamicwrapper") '不注册dynwrap.dll会报错：Activex不支持对象“dynamicwrapper”
 oWsm.Register "user32.dll","SendMessageA","f=s","i=llls","r=l"
 rc=oWsm.SendMessageA(Clng(str_Handle),Clng(msg),Clng(wParam),lParam)
 SendMessage=rc
 set oWsm = Nothing
End Function

3、调用方法
SendMessage HWND,消息类型,附加参数,0