Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register
"user32.dll","FindWindow","i=ss","f=s", "r=l"
WindowHandle =
Wrap.FindWindow("", "无标题 - 记事本")
If WindowHandle=0 then
MsgBox "发现窗口"
Else
MsgBox "没发现"
End If
像这样的代码, 相应窗口没有打开时,返回的WindowHandle 也=0
WindowHandle = Wrap.FindWindow(
vbNullString, "无标题 - 记事本")