clswindow是一个控制其他程序的类，之前有个vb6用的版本，但是直接在vba中使用会有一个小小的问题，现在修改了后可以添加到vba中使用了，这样在vba中就可以自由控制操作其他程序了。 压缩包里有个excel文件，演示的例子是读取当前打开的记事本的内容然后关闭它。需要先打开任意一个记事本文件。 相关代码： Sub 按钮1_Click() Dim w As New clsWindow Range("A1") = w.GetWindowByTitleEx("记事本", 1).GetElementTextByClassName("edit") w.CloseWindow End Sub clswindow2.0提供了很多丰富的方法控制外部程序哦，甚至可以让外部程序抖动，淡入淡出等效果。 clswindow类的详细介绍：http://blog.csdn.net/sysdzw/article/details/9083313 clswindow类的方法说明：http://wenku.baidu.com/view/c983a463d1f34693dbef3e33.html

'============================================================================================== '名 称：windows窗体控制类v2.2 '描 述：一个操作windows窗口的类，可对窗口进行很多常用的操作(类名为clsWindow) '使用范例：Dim window As New clsWindow ' window.GetWindowByTitle("计算器").closeWindow '编 程：sysdzw 原创开发，如果有需要对模块扩充或更新的话请邮箱发我一份，共同维护 '发布日期：2013/06/01 '博 客：https://blog.csdn.net/sysdzw '用户手册：https://www.kancloud.cn/sysdzw/clswindow/ '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 增加函数：GetWindowByClassName 2013/06/26 ' 增加函数：GetWindowByClassNameEx ' 增加函数：GetWindowByAppName ' 增加私有变量hWnd_ ' 增加属性hWnd，可设置，单设置时候会检查，非法则设置为0 ' 更新GetWindowByTitleEx函数，使之可以选择性支持正则 ' 删除GetWindowByTitleRegExp函数，合并到上面函数 ' 增加SetFocus函数，调用Focus实现，为了是兼容VB习惯 ' 扩了ProcessID、AppPath、AppName、AppCommandLine三个函数，可带参数 ' 网友wwb(wwbing@gmail.com)提供了一些函数和方法属性： ' CheckWindow, Load, WindowState, Visible, hDC, ZOrder ' AlphaBlend, Enabled, R

'============================================================================================== '名 称：windows窗体控制类v2.2 '描 述：一个操作windows窗口的类，可对窗口进行很多常用的操作(类名为clsWindow) '使用范例：Dim window As New clsWindow ' window.GetWindowByTitle("计算器").closeWindow '编 程：sysdzw 原创开发，如果有需要对模块扩充或更新的话请邮箱发我一份，共同维护 '发布日期：2013/06/01 '博 客：https://blog.csdn.net/sysdzw '用户手册：https://www.kancloud.cn/sysdzw/clswindow/ '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 增加函数：GetWindowByClassName 2013/06/26 ' 增加函数：GetWindowByClassNameEx ' 增加函数：GetWindowByAppName ' 增加私有变量hWnd_ ' 增加属性hWnd，可设置，单设置时候会检查，非法则设置为0 ' 更新GetWindowByTitleEx函数，使之可以选择性支持正则 ' 删除GetWindowByTitleRegExp函数，合并到上面函数 ' 增加SetFocus函数，调用Focus实现，为了是兼容VB习惯 ' 扩了ProcessID、AppPath、AppName、AppCommandLine三个函数，可带参数 ' 网友wwb(wwbing@gmail.com)提供了一些函数和方法属性： ' CheckWindow, Load, WindowState, Visible, hDC, ZOrder ' AlphaBlend, Enabled,

clsWindow2.2_20200205鼠标画圆.zip

clsWindow2.2_20210331控制PC版QQ发送消息.zip

vb群发消息软件源码，本程序是用vb6在clswindow2.1基础上开发的，是对微信客户端进行自动化处理的，完全模拟手工操作，稳定且绝度安全，不会被封。懂代码的可以稍微修改变成定时群发，批量指定目标人群群发。绝对物超所值，代码浅显易懂。 这种非常实用的软件作者选择开源，不像一些同行，摸通了一点技术就藏着掖着，没有共享精神，作者再此完全开源，没有dll没有ocx，clswindow2.1库也是作者精心打造可以用于许多自动化操作方面，非常方便。 各位觉得好麻烦给5分好评。 下面附带一下clswindow2.1更新记录，算是2.1这版本的非正式发布吧。 '============================================================================================== '名 称：windows窗体控制类v2.1 '描 述：一个操作windows窗口的类，可对窗口进行很多常用的操作(类名为clsWindow) '使用范例：Dim window As New clsWindow ' window.GetWindowByTitle("计算器").closeWindow '编 程：sysdzw 原创开发，如果有需要对模块扩充或更新的话请邮箱发我一份，共同维护 '发布日期：2013/06/01 '博 客：http://blog.163.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 增加函数：GetWindowByClassName 2013/06/26 ' 增加函数：GetWindowByClassNameEx ' 增加函数：GetWindowByAppName ' 增加私有变量hWnd_ ' 增加属性hWnd，可设置，单设置时候会检查，非法则设置为0 ' 更新GetWindowByTitleEx函数，使之可以选择性支持正则 ' 删除GetWindowByTitleRegExp函数，合并到上面函数 ' 增加SetFocus函数，调用Focus实现，为了是兼容VB习惯