本帖最后由 tonyabbs 于 2017-10-8 20:27 编辑
下面这段代码,试图通过dynwrap.dll去调用windows api,但regsvr32 dynwrap.dll 注册成功后,仍旧出现 无法创建对象:dynamicwrapper- '取前景窗体标题
- GetForeWindowCaption
- Sub GetForeWindowCaption()
- Const WM_GETTEXT = &HD
- Set Wrap = CreateObject("DynamicWrapper")
- Wrap.Register "USER32.DLL", "GetForegroundWindow", "f=s", "r=l"
- Wrap.Register "USER32.DLL", "SendMessage", "i=lllr", "f=s", "r=l"
- Title = Space(100)
- res = Wrap.SendMessage(Wrap.GetForegroundWindow(), WM_GETTEXT , 100, Title)
- GetForeWindowCaption = Title
- End Sub
- 'MsgBox GetForeWindowCaption
复制代码
|