Windows窗口自动化操作类forVB6_V1.7纯净版 源码

5星(超过95%的资源)
所需积分/C币:17 2013-06-13 17:14:40 180KB RAR
63
收藏 收藏
举报

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://download.csdn.net/user/sysdzw 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 '

...展开详情
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
luckdeer803 能给个可下的地址不
2016-07-02
回复
http://download.csdn.net/detail/sysdzw/9295969 用这个,最新的版本的
silence2k 是个不错的东西,学习了一些方法
2015-09-30
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
岭神 这个有用,操作方便
2013-11-04
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
asdasdasdaasdasdasd 资源对我很有用,真是非常感谢
2013-09-03
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
mumushu1 资源对我很有用,非常感谢
2013-08-18
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
一如既往哈 作者的精神和思路值得学习!收藏了
2013-08-01
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
stublue520 不得不评论一下,楼主辛苦了,我还是菜鸟,只能拿来用了。随时更新
2013-07-31
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
也已时过境迁 这个很有用,操作方便,
2013-07-10
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
Jet_Monkey 对我来说不错。。挺好的
2013-07-05
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
笨狗先飞 资源对我很有用,真是非常感谢
2013-06-24
回复
这个版本有点bug,请下载2.0版本的。 地址:http://download.csdn.net/detail/sysdzw/9295969
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
  • GitHub

  • 签到达人

  • 技术圈认证

  • 分享王者

关注 私信
上传资源赚钱or赚积分
最新推荐
Windows窗口自动化操作类forVB6_V1.7纯净版 源码 17积分/C币 立即下载
1/0