一个操作windows窗口的类“clsWindow”，使用非常方便！含源码 V2.0
clsWindow类最新版v.20下载地址：
http://download.csdn.net/detail/sysdzw/9295969
使用文档下载：
http://wenku.baidu.com/view/c983a463d1f34693dbef3e33.html
功能描述
clsWindow是VB6环境下使用的一个操作外部程序窗口的类，比如得到窗口句柄，得到窗口里某个文本框的内容。非常方便，使用它可以让您脱身于一堆api函数，功能强大使用简单！
这个类楼主很早就开始封装了，原本打算做成类似DOM对象那样，通过一堆getElmentByXXX等方法实现对桌面程序下各个窗口以及里面各个控件对象的自由访问，但是具体要做的工作太多，目前只实现了一部分，期待大家一起加入更新维护。
目前该类封装了绝大部分对windows窗口的常用操作，例如：获取窗口句柄，设置窗口为活动窗口，设置窗口内文本框内容，点击窗口内的某些按钮等。
这个类现在还在一直不断地扩充，功能已经很强大很广泛，使用它可以轻而易举地设置窗口标题栏文字，移动窗体等等。以前要实现这些操作常常需要一大堆api函数，现在只需要一点点代码就可以了，完全让您脱身于api函数的海洋。当然您需要研究每个方法实现原理的话可以看一看源代码。
使用范例（请在v1.9以上测试）：
1）关闭腾讯新闻窗口“腾讯网迷你版”。Dim window As New clsWindow
If window.GetWindowByTitle("腾讯网迷你版").hWnd > 0 Then
window.CloseWindow '关闭窗口
End If
以上是不是很简洁呢？
20150715更新追加：
最新1.9版本更简洁，一句话解决：
w.GetWindowByTitle("腾讯网迷你版").CloseWindow
小伙伴，是不是简洁爆了呢？:)
为了防止程序找不到窗口而一直等待可以改成：
w.GetWindowByTitle("腾讯网迷你版",1).CloseWindow
（意思为超时等待1秒。默认会耐心等60秒，除非你确定窗口一定有，然后就用上面的。）
2）获取某个打开的记事本里面的内容。假设记事本标题为“测试要求.txt - 记事本”，通过SPY等工具查看得知记事本的文本框类名为：Edit，那么我们编写程序如下：
Dim window As New clsWindow
If window.GetWindowByTitle("测试要求.txt - 记事本").hWnd > 0 Then
MsgBox window.GetElementTextByClassName("Edit")
End If
这个看起来也很简单，方法自由还可以使用正则匹配，可以写成下面这样：
Dim window As New clsWindow
If window.GetWindowByTitleEx("测试\.txt.*?", , , True).hWnd > 0 Then
MsgBox window.GetElementTextByClassName("Edi", , True) '第三个参数表示是否使用正则，默认为false
End If
获取标题那边如果觉得要把标题写完整太麻烦，可以将GetWindowByTitle改成GetWindowByTitleEx然后后面只要写关键字就行啦。看招：
Dim window As New clsWindow
If window.GetWindowByTitleEx("测试").hWnd > 0 Then
MsgBox window.GetElementTextByClassName("Edit")
End If
更多演示案例：
演示程序一（关闭包含“扫雷、蜘蛛纸牌”等系统自带游戏的窗口）：http://download.csdn.net/detail/sysdzw/9295969
演示程序二（调用系统计算器，点击里面的按钮进行计算）：
http://download.csdn.net/detail/sysdzw/9295969
演示程序三（激活移动外部程序窗口）：
http://download.csdn.net/detail/sysdzw/9295969
演示程序四（调用系统计算器，花样移动出现，效果很好）：
http://download.csdn.net/detail/sysdzw/9295969
类成员以及各个使用方法如下 V1.8：
http://download.csdn.net/detail/sysdzw/9295969
使用文档下载：
http://wenku.baidu.com/view/c983a463d1f34693dbef3e33.html
clsWindow类最新版下载请关注博客：
http://blog.csdn.net/sysdzw/article/details/9083313
sysdzw
QQ:171977759
15:09 2013-6-13