FindWindow()不工作

Question

我正在编写一个小的VBA程序，需要等到一个特定的窗口打开。我想使用FindFindow表单user32.dll来完成这个任务，但是我无法运行它。奇怪的是，即使我将函数的2个参数设置为Null，我仍然得到一个负返回，尽管在这种情况下，所有窗口都应该匹配。基本上，我没有得到与hwnd的0不同的结果，这与我如何调用FindWindow无关。我搜索了Stack OPverflow，也搜索了这个问题，但是我找不到我做错了什么。任何帮助都是非常感谢的。

Declare Function FindWindow Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub Main
    Dim hwnd As Long

    hwnd = FindWindow(vbNullString, vbNullString)

    If (hwnd = 0) Then MsgBox ("failure")

End Sub

像How to use FindWindow to find a visible or invisible window with a partial name in VBA这样的类似问题的解决方案似乎也不起作用。

Answer 1

问题是vbNullString是长度为0的字符串，与""相同。当将其编组到非托管代码时，将传递指向以空结尾的字符数组的非空指针。因为长度为0，所以传递一个指向空终止符的指针。这与NULL不同，后者是空指针。

我不是VBA专家，但我认为解决方案是这样的：

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByRef lpClassName As Any, ByRef lpWindowName As Any) As Long

如果要对这两个参数调用这个传递的NULL，请这样做：

window = FindWindow(ByVal 0&, ByVal 0&)

或者，如果您想传递一个字符串值，可以这样做：

window = FindWindow(ByVal 0&, ByVal "Untitled - Notepad")