Windows窗口自动化操作类forVB6_V2.0 clsWindow源码

4星(超过85%的资源)
所需积分/C币:49 2015-11-24 14:34:09 86KB RAR
79
收藏 收藏
举报

功能描述 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 clsWindow类最新版下载请关注博客: http://blog.csdn.net/sysdzw/article/details/9083313 '============================================================================================== '名 称:windows窗体控制类v2.0 '描 述:一个操作windows窗口的类,可对窗口进行很多常用的操作(类名为clsWindow) '使用范例:Dim window As New clsWindow ' window.GetWindowByTitle "计算器" ' window.closeWindow '编 程:sysdzw 原创开发,如果有需要对模块扩充或更新的话请邮箱发我一份,共同维护 '发布日期:2013/06/01 '博 客:http://blog.163.com/sysdzw ' http://blog.csdn.net/sysdzw 'Email :sysdzw@163.com 'QQ :171977759 '版

...展开详情
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
whalexia 很有用,可以参考
2020-05-26
回复
nmcfbgttyl 这个很好用的
2020-05-12
回复
xzmzh 之前下载的, 很好用.
2019-09-23
回复
请到github下载,目前最新版本为2.2:https://github.com/sysdzw/clswindow
此版本有bug,请各位到git上下载最新版本v2.2,地址为:https://github.com/sysdzw/WeNote 喜欢的可以star一下,框架经常更新,关注下可以随时免费获得最新版本
hncslsy 有非常好的参考意义,使用也方便
2019-03-25
回复
方便就给5星啊,另外最高版本是2.1的,这个2.0的不要用了
更高级版本v2.1版下载地址:https://download.csdn.net/download/sysdzw/10622938
请到github下载,目前最新版本为2.2:https://github.com/sysdzw/clswindow
此版本有bug,请各位到git上下载最新版本v2.2,地址为:https://github.com/sysdzw/WeNote 喜欢的可以star一下,框架经常更新,关注下可以随时免费获得最新版本
studyczb 刚刚下了2.0的,发现了2.1的,!
2019-01-09
回复
请到github下载,目前最新版本为2.2:https://github.com/sysdzw/clswindow
此版本有bug,请各位到git上下载最新版本v2.2,地址为:https://github.com/sysdzw/WeNote 喜欢的可以star一下,框架经常更新,关注下可以随时免费获得最新版本
bjdxscp 非常值得参考
2019-01-08
回复
此版本有bug,请各位到git上下载最新版本v2.2,地址为:https://github.com/sysdzw/WeNote 喜欢的可以star一下,框架经常更新,关注下可以随时免费获得最新版本
lglyjlylglyjly 有非常好的参考意义,使用也方便
2018-05-27
回复
此版本有bug,请各位到git上下载最新版本v2.2,地址为:https://github.com/sysdzw/WeNote 喜欢的可以star一下,框架经常更新,关注下可以随时免费获得最新版本
chenxi3223 试试看,下载下来
2018-04-13
回复
本来我发布的时候是设置0分的,万恶的csdn设置成5分,我也没办法。
Dickey 很好用,几乎把能用到的功能都封装了
2018-04-06
回复
mosquito20 写代码不容易
2018-04-02
回复
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
  • GitHub

  • 签到达人

  • 技术圈认证

  • 分享王者

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