[已解决]注册dynwrap.dll成功但仍旧无法创建对象：dynamicwrapper

tonyabbs

下面这段代码，试图通过dynwrap.dll去调用windows api，但regsvr32 dynwrap.dll 注册成功后，仍旧出现 无法创建对象：dynamicwrapper

1. '取前景窗体标题
   
2. GetForeWindowCaption
   
3. Sub GetForeWindowCaption()
   
4.         Const WM_GETTEXT = &HD
   
5.         Set Wrap = CreateObject("DynamicWrapper")
   
6.         Wrap.Register "USER32.DLL", "GetForegroundWindow", "f=s", "r=l"
   
7.         Wrap.Register "USER32.DLL", "SendMessage", "i=lllr", "f=s", "r=l"
   
8.         Title = Space(100)
   
9.         res = Wrap.SendMessage(Wrap.GetForegroundWindow(), WM_GETTEXT , 100, Title)
   
10.         GetForeWindowCaption = Title
    
11. End Sub
    
12. 'MsgBox GetForeWindowCaption

复制代码

yu2n

FYI

VBS无法创建object
http://www.bathome.net/thread-33272-1-2.html#pid158900

yu2n

1. CommandModeX64("VBS 取前景窗体标题")
   
2. WScript.Sleep(2000)
   
3. WScript.Echo("前景窗体标题为：" & vbCrLf & GetForeWindowCaption())
   
4. 
   
5. '************************************************************************
   
6. '取前景窗体标题
   
7. '************************************************************************
   
8. Function GetForeWindowCaption()
   
9.         Const WM_GETTEXT = &HD
   
10.         Set Wrap = CreateObject("DynamicWrapper")
    
11.         Wrap.Register "USER32.DLL", "GetForegroundWindow", "f=s", "r=l"
    
12.         Wrap.Register "USER32.DLL", "SendMessage", "i=lllr", "f=s", "r=l"
    
13.         Title = Space(100)
    
14.         res = Wrap.SendMessage(Wrap.GetForegroundWindow(), WM_GETTEXT , 100, Title)
    
15.         GetForeWindowCaption = Title
    
16. End Function
    
17. 
    
18. '************************************************************************
    
19. '以命令提示符环境运行(保留参数X64)
    
20. '************************************************************************
    
21. Sub CommandModeX64(ByVal sTitle)
    
22.         Dim objFSO, objWSO, strApp, strCommand, objItem, strArgs
    
23.         Set objFSO = CreateObject("Scripting.FileSystemObject")
    
24.         Set objWSO = CreateObject("WScript.Shell")
    
25.         strApp = objWSO.ExpandenVironmentStrings("%windir%\SysWOW64\cscript.exe")
    
26.         If Not objFSO.FileExists(strApp) Then strApp = objWSO.ExpandenVironmentStrings("%windir%\System32\cscript.exe")
    
27.         If InStr(1, WScript.FullName, strApp, vbTextCompare) > 0 Then Exit Sub
    
28.         strCommand = "%Comspec% /c title " & sTitle & " & " & strApp & " //NoLogo """ & WScript.ScriptFullName & """"
    
29.         For Each objItem In WScript.Arguments
    
30.                 strArgs = strArgs & " " & """" & objItem & """"
    
31.         Next
    
32.         objWSO.Run strCommand & strArgs & " & pause", 1, False
    
33.         WScript.Quit
    
34. End Sub

复制代码

Win10 x64 测试结果如下：

1. 前景窗体标题为：
   
2. C:\Users\Yu2n\Desktop\0.vbs - Notepad++
   
3. 请按任意键继续. . .

复制代码

tonyabbs

"改用 C:\Windows\SysWOW64\wscript.exe 来运行 vbs 就好了" 谢谢!

tonyabbs

@yu2n 3楼代码在我这里win10 X64 运行的结果是
前景窗体标题为：
VBS取前景窗口标题
请按任意键继续...

老刘1号

换DWX呗，别就抱着DW不放啊