如何判断一个窗口是否打开？

Question

    aa = 0
    aa = FindWindow("类名", "窗口名称")我知道用上面的方法，可以判断这个窗口是否为打开状态。
但是，我现在不知道窗口的名称，只知道窗口的hwnd，该用什么方法判断？

Answer 1

Dim lpclassname As String
Dim chwnd As Long
Dim rh As Long
Dim lhwnd As LongShell "d:\calc.exe"
chwnd = FindWindow(vbNullString, "计算器")   '此处得到的是 hWnd
MsgBox chwnd'此时关闭了窗口
'******************************
lpclassname = Space(50)
rh = GetClassName(chwnd, lpclassname, 50)
MsgBox lpclassname                         lhwnd = FindWindow(lpclassname, "")
MsgBox lhwnd
'看此处的 lhwnd 是否与 前面得到的 hwnd 是否相同
'**************************************

Answer 2

lhwnd = FindWindow(lpclassname, "") 
'改为
lhwnd = FindWindow(lpclassname, vbNullString)