一个操作windows窗口的类“clsWindow”,使用非常方便!含源码

功能描述

clsWindow是VB6环境下使用的一个操作外部程序窗口的类,比如得到窗口句柄,得到窗口里某个文本框的内容。非常方便,使用它可以让您脱身于一堆api函数,功能强大使用简单!

这个类楼主很早就开始封装了,原本打算做成类似DOM对象那样,通过一堆getElmentByXXX等方法实现对桌面程序下各个窗口以及里面各个控件对象的自由访问,但是具体要做的工作太多,目前只实现了一部分,期待大家一起加入更新维护。目前该类封装了绝大部分对windows窗口的常用操作,例如:获取窗口句柄,设置窗口为活动窗口,设置窗口内文本框内容,点击窗口内的某些按钮等。这个类现在还在一直不断地扩充,功能已经很强大很广泛,使用它可以轻而易举地设置窗口标题栏文字,移动窗体等等。以前要实现这些操作常常需要一大堆api函数,现在只需要一点点代码就可以了,完全让您脱身于api函数的海洋。当然需要您需要研究每个方法实现原理的话可以看一看源代码。使用范例:1)关闭腾讯新闻窗口“腾讯网迷你版”。Dim window As New clsWindowIf window.GetWindowHwndByTitle("腾讯网迷你版") > 0 Then window.CloseWindow ‘关闭窗口End If以上是不是很简洁呢?2)获取某个打开的记事本里面的内容。假设记事本标题为“测试.txt – 记事本”,通过SPY等工具查看得知记事本的文本框类名为:Edit,那么我们编写程序如下:Dim window As New clsWindowIf window.GetWindowHwndByTitle("测试.txt – 记事本") > 0 Then MsgBox window.GetElementTextByClassName("Edit")End If这个看起来也很简单,方法自由还可以使用正则匹配,可以写成下面这样:Dim window As New clsWindowIf window.GetWindowHwndByTitleRegExp("测试\.txt.*?") > 0 Then MsgBox window.GetElementTextByClassName("Edi", , True)’第三个参数表示是否使用正则,默认为falseEnd If

更多演示案例:演示程序一(关闭包含“扫雷、蜘蛛纸牌”等系统自带游戏的窗口):(版本旧,,建议下载:建议下载)演示程序二(调用系统计算器,点击里面的按钮进行计算):(版本旧,建议下载:建议下载)演示程序三(激活移动外部程序窗口):(版本旧,建议下载:建议下载)演示程序四(调用系统计算器,花样移动出现,效果很好):(版本旧,建议下载:建议下载)

类成员以及各个使用方法如下 V1.8:

clsWindow类下载地址:

clsWindow类最新版下载请关注博客:sysdzwQQ:17197775915:09 2013-6-13

自己不喜欢的人,可以报之以沉默微笑;

一个操作windows窗口的类“clsWindow”,使用非常方便!含源码

相关文章:

你感兴趣的文章:

标签云: