文件名称:
Windows窗口自动化操作类forVB6_V1.8 源代码
开发工具:
文件大小: 407kb
下载次数: 0
上传时间: 2013-07-29
详细说明： 楼主辛苦开发的源码，0分放送。亲们只要评价五分就是对我的努力付出的最大回报！ 此版本比v1.7的多增加了几个函数和方法，同时也修正了一些bug。 vb封装的一个控制窗口操作的类，使用非常简单！时刻更新。 clsWindow是VB6环境下使用的一个操作外部程序窗口的类，比如得到窗口句柄，得到窗口里某个文本框的内容。非常方便，使用它可以让您脱身于一堆api函数，功能强大使用简单！ 这个类楼主很早就开始封装了，原本打算做成类似DOM对象那样，通过一堆getElmentByXXX等方法实现对桌面程序下各个窗口以及里面各个控件对象的自由访问，但是具体要做的工作太多，目前只实现了一部分，期待大家一起加入更新维护。 目前该类封装了绝大部分对windows窗口的常用操作，例如：获取窗口句柄，设置窗口为活动窗口，设置窗口内文本框内容，点击窗口内的某些按钮等。 这个类现在还在一直不断地扩充，功能已经很强大很广泛，使用它可以轻而易举地设置窗口标题栏文字，移动窗体等等。以前要实现这些操作常常需要一大堆api函数，现在只需要一点点代码就可以了，完全让您脱身于api函数的海洋。当然需要您需要研究每个方法实现原理的话可以看一看源代码。 使用范例： 1）关闭腾讯新闻 窗口“腾讯网迷你版”。 Dim window As New clsWindow If window.GetWindowHwndByTitle("腾讯网迷你版") > 0 Then window.CloseWindow '关闭窗口 End If 以上是不是很简洁呢？ 2）获取某个打开的记事本里面的内容。假设记事本标题为“测试.txt - 记事本”，通过SPY等工具查看得知记事本的文本框类名为：Edit，那么我们编写程序如下： Dim window As New clsWindow If window.GetWindowHwndByTitle("测试.txt - 记事本") > 0 Then MsgBox window.GetElementTextByClassName("Edit") End If 这个看起来也很简单，方法自由还可以使用正则匹配，可以写成下面这样： Dim window As New clsWindow If window.GetWindowHwndByTitleRegExp("测试\.txt.*?") > 0 Then MsgBox window.GetElementTextByClassName("Edi", , True)'第三个参数表示是否使用正则，默认为false End If 更多演示案例： 演示程序一（关闭包含“扫雷、蜘蛛纸牌”等系统自带游戏的窗口）： http://files.cnblogs.com/sysdzw/clsWindow1.7_demo1.rar 演示程序二（调用系统计算器，点击里面的按钮进行计算）： http://files.cnblogs.com/sysdzw/clsWindow1.7_demo2.rar 演示程序三（激活移动外部程序窗口）： http://files.cnblogs.com/sysdzw/clsWindow1.7_demo3.rar 演示程序四（调用系统计算器，花样移动出现，效果很好）： http://files.cnblogs.com/sysdzw/clsWindow1.7_demo4.rar clsWindow类最新版下载请关注博客： http://blog.csdn.net/sysdzw/article/details/9083313 '=================================================================================== '描 述：一个操作windows窗口的类，可对窗口进行很多常用的操作(类名为clsWindow) '使用范例：Dim window As New clsWindow ' window.GetWindowHwndByTitle "计算器" ' window.closeWindow '编 程：sysdzw 原创开发，如果有需要对模块扩充或更新的话请邮箱发我一份，共同维护 '发布日期：2013/06/01 '博 客：http://hi.baidu.com/sysdzw ' http://blog.csdn.net/sysdzw 'Email ：sysdzw@163.com 'QQ ：171977759 '版 本：V1.0 初版 2012/12/03 ' V1.1 修正了几个正则相关的函数，调整了部分类结构 2013/05/28 ' V1.2 增加属性Caption，可以获取或设置当前标题栏 2013/05/29 ' V1.3 增加了方法Focus，可以激活当前窗口 2013/06/01 ' 增加了方法Left,Top,Width,Height,Move，处理窗口位置等 ' V1.4 增加了窗口位置调整的几个函数 2013/06/04 ' 增加了得到应用程序路径的函数AppName ' 增加了得到应用程序启动参数的函数AppCommandLine ' V1.5 增加了窗口最大最小化，隐藏显示正常的几个函数 2013/06/06 ' 增加了获取控件相关函数是否使用正则的参数UseRegExp默认F ' V1.6 将Left，Top函数改为属性，可获得可设置 2013/06/10 ' V1.7 增加了CloseApp函数，可以结束进程 2013/06/13 ' 修正了部分跟正则匹配相关的函数 ' 增加函数：GetElementTextByText ' 增加函数：GetElementHwndByText ' V1.8 增加GetWindowHwndByClassName函数 2013/06/26 ' 增加GetWindowHwndByClassNameEx函数 ' 增加GetWindowHwndByAppName函数 ' 增加私有变量hWnd_ ' 增加属性hWnd，可设置，单设置时候会检查，非法则设置为0 ' 更新GetWindowHwndByTitleEx函数，使之可以选择性支持正则 ' 删除GetWindowHwndByTitleRegExp函数，合并到上面函数 ' 增加SetFocus函数，调用Focus实现，为了是兼容VB习惯 ' 扩了ProcessID、AppPath、AppName、AppCommandLine三个函数，可带参数 ' 网友wwb(wwbing@gmail.com)提供了一些函数和方法属性： ' CheckWindow, Load, WindowState, Visible, hDC, ZOrder ' AlphaBlend, Enabled, Refresh, TransparentColor ' 部分采纳网友意见，将句柄变量改为hWnd_，但是hWnd作为公共属性 '=================================================================================== ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
