想获取一类窗口的名称和句柄到列表框中

botong

我想获取所有已打开飞信窗口的句柄，并把标题列在超级列表框中，通过对超级列表框中行的勾选，实现选中窗口，然后选中的窗口发送消息，如图，请问大家如何实现呢？高手指教了。
已知：
飞信窗口类名：FxWnd
飞信编辑框类名：FxRichEdit

botong

自己已经解决了，请管理帮助关闭帖子吧，不然我就评我自己最佳了啊
[e].版本 2
.支持库 iext

.子程序 获取窗口列表
.局部变量 窗口句柄, 整数型
.局部变量 编辑窗口, 整数型
.局部变量 NullString, 文本型
.局部变量 窗口标题, 文本型
.局部变量 表项, 整数型
.局部变量 ClassName, 文本型

NullString ＝ 字符 (0)
超级列表框1.全部删除 ()
窗口标题 ＝ 取空白文本 (255)
ClassName ＝ 取空白文本 (255)
窗口句柄 ＝ 寻找子窗口_ (0, 0, NullString, NullString)  ' 以下枚举所有打开的飞信窗口
.判断循环首 (窗口句柄 ≠ 0)
    窗口句柄 ＝ 寻找子窗口_ (0, 窗口句柄, “FxWnd”, NullString)
    GetWindowText (窗口句柄, 窗口标题, 255)
    编辑窗口 ＝ 寻找子窗口_ (窗口句柄, 0, NullString, NullString)
    .计次循环首 (3, )
        编辑窗口 ＝ 寻找子窗口_ (窗口句柄, 编辑窗口, “FxRichEdit”, NullString)
    .计次循环尾 ()
    .如果真 (窗口标题 ≠ “” 且 寻找文本 (窗口标题, “飞信201”, , 假) ＝ -1 且 寻找文本 (窗口标题, “飞信迷你首页”, , 假) ＝ -1)
        超级列表框1.插入表项 (-1, , , , , )
        超级列表框1.置标题 (表项, 0, 窗口标题)
        超级列表框1.置标题 (表项, 1, 到文本 (窗口句柄))
        超级列表框1.置标题 (表项, 2, 到文本 (编辑窗口))
        表项 ＝ 表项 ＋ 1
    .如果真结束

.判断循环尾 ()
窗口句柄 ＝ 寻找子窗口_ (0, 0, NullString, NullString)  ' 以下枚举所有打开的QQ窗口
.判断循环首 (窗口句柄 ≠ 0)
    窗口句柄 ＝ 寻找子窗口_ (0, 窗口句柄, “TXGuiFoundation”, NullString)
    GetWindowText (窗口句柄, 窗口标题, 255)
    .如果真 (窗口标题 ≠ “” 且 窗口标题 ≠ “TXMenuWindow” 且 窗口标题 ≠ “TXFloatingWnd” 且 寻找文本 (窗口标题, “QQ20”, , 假) ＝ -1)
        超级列表框1.插入表项 (-1, , , , , )
        超级列表框1.置标题 (表项, 0, 窗口标题)
        超级列表框1.置标题 (表项, 1, 到文本 (窗口句柄))
        超级列表框1.置标题 (表项, 2, 到文本 (窗口句柄))
        超级列表框1.置标题 (表项, 3, ClassName)
        表项 ＝ 表项 ＋ 1
    .如果真结束

.判断循环尾 ()[/e]