请教一个VBA里调用GetWindowText的问题

作者：金字塔来源：cxh99.com 发布时间：2014年04月13日

咨询内容： 请教一个VBA里调用GetWindowText的问题

代码如下：Set Wrap = CreateObject("DynamicWrapper")Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"Wrap.Register "user32.dll","GetWindowText","i=lsl","f=s", "r=l"hwd = Wrap.FindWindow(vbNullString, "期货交易")Dim strText Dim lngResultstrText =String(255,vbNullChar)L=len(strText)lngResult =Wrap.GetWindowText(hwd,strText,256)MsgBox(strText)问题如下：hwd正确获得了，lngResult得返回值为8，但输出的strText为空字符。是何原因呢？谢谢
金字塔客服： 试了很多方法，发现都无效，主要原因是API的第二个参数是一个字符串的指针，VBS里没有对应的对象