【NO.0030】控件类名很多相同如何获取句柄?【 教程已发布 】【已结束】

lytest

我不知道要源码的，把源码附上

ctlyh080

【NO.0030】作业.rar (244.76 KB, 下载次数: 19)

2011-2-12 17:51 上传

点击文件名下载附件 {:3_215:} 完成了

841982054

其实有些开玩笑了。但也的确是正解。 人工区分！
详情请见： 取窗口句柄.zip (271.84 KB, 下载次数: 2)

2011-2-12 21:13 上传

点击文件名下载附件
见笑了。。。

烽火云烟

精易不完善的作业.zip (1.49 KB, 下载次数: 4)

2011-2-15 21:54 上传

点击文件名下载附件

利用标题区别，是一个不完善的作业，因为如果一个人网名就叫QQ***那么就会判断失败

hhfly

[e].版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 窗口信息, 精易_窗口信息, , "0"
.局部变量 枚举数量, 整数型
.局部变量 计次, 整数型

枚举数量 ＝ 窗口_枚举 (窗口信息)
.计次循环首 (枚举数量, 计次)
    .如果真 (窗口信息 [计次].窗口类名 ＝ “TXGuiFoundation”)
        .如果 (窗口_取父句柄 (窗口信息 [计次].窗口句柄) ≠ 0)
            信息框 (“主窗口”, 0, )
            跳出循环 ()
        .否则
            信息框 (“聊天窗口”, 0, )
            跳出循环 ()
        .如果结束

    .如果真结束

.计次循环尾 ()[/e]

01negro

[e].版本 2

.DLL命令 API_寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）　找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口类名, 文本型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
    .参数 窗口文本, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题  示例Dim hw&, cnt&Dim rttitle As  * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left, 0, "RTMain title";[/e]

API_寻找顶级窗口 (“TXGuiFoundation”, “QQ2010”)                    ’取QQ句柄
API_寻找顶级窗口 (“TXGuiFoundation”, “QQ备注姓名”)             ‘取聊天窗口句柄

lugz1981

终于完成了。奇怪。开始准备通过类名查找句柄。可找出来的句柄都是没有标题的，不知道是什么窗口。程序有BUG。如果聊天窗口标题前两位是QQ会认为是主窗口。代码比较乱。见谅。 获取QQ窗口.rar (2.23 KB, 下载次数: 3)

2011-2-24 15:08 上传

点击文件名下载附件
作业

lugz1981

好了。改了下。貌似现在没问题了。可以正确获取了。
获取QQ窗口.rar (2.28 KB, 下载次数: 4)

2011-2-25 10:09 上传

点击文件名下载附件

shanshan16

这个要留名了，以后经常用到

fufu667

好东西啊学学啊