Import Window.dll
VBSCall RunApp("notepad.exe")
Delay 1000
Delay 1000
VBSBegin 
    '下面这句是查找窗口类名(0)或者标题("无标题 - 记事本"),返回找到的句柄Hwnd
    Hwnd = Window.Find(0, "无标题 - 记事本")
    msgbox "找到记事本句柄为："&Hwnd
VBSEnd