Sendmessage关闭“离开此页”弹出窗口

Question

我正在使用一些VBA IE自动化，并且在关闭“离开此页面”弹出窗口时遇到了问题。我过去在sendmessage方面取得了成功，但为此我一直无法确定这个孩子。

IE.Quit
If IE.Busy Then
DoEvents
hwnd = FindWindow(vbNullString, "Windows Internet Explorer")
If hwnd <> 0 Then childHWND = FindWindowEx(hwnd, ByVal 0&, "Button", "&Leave this page ")
If childHWND <> 0 Then SendMessage childHWND, BM_CLICK, 0, 0

hwnd被识别没有问题，但是childHWND每次都返回0并且sendmessage无法触发。我使用EnumChildWindows来尝试识别Controls Text和ClassName，然后我得到“Button”和“＆amp; Leave this page”。我试过它没有额外的空间，没有＆amp;标志。仍然没有运气。有没有人有什么建议？提前致谢。