🔥码云GVP开源项目 12k star Uniapp+ElementUI 功能强大 支持多语言、二开方便! 广告
## **描述** DebugMe为开发人员设置的调试用的。默认为False,如果设置为True,类将在每调用一个函数都会生成一个日志文件,名称为DEBUG.txt,如果查询窗体内元素还会生成一个controls.txt文件,便于开发人员分析使用。 ## **示例** > 说明:设置DebugMe为True,然后尝试调用一些函数看看生成的文件内容。运行前请先随便打开一个记事本,记事本内随便放一些文字内容。 ``` Dim w As New clsWindow w.DebugMe = True MsgBox w.GetWindowByTitleEx("记事本").hWnd '此时会看到有文件DEBUG.txt MsgBox w.GetElementTextByClassName("Edit") '此时会看到有文件controls.txt ``` ***** 我们看到程序旁生成了两个日志文件。 ![](https://img.kancloud.cn/55/9a/559ac0205f2f9d9fa1e2594e2c9af109_611x76.png) ***** **DEBUG.txt 文件内容为:** ``` 2020-02-02 02:20:44 函数GetWindowByTitleEx被调用 参数为 strTitle=记事本 intWaitSeconds=10 2020-02-02 02:20:45 函数GetElementTextByClassName被调用 参数为 strClassName=Edit intIndex=1 2020-02-02 02:20:45 函数GetElementTextByClassName中调用函数getMatchHwndFromWindow 2020-02-02 02:20:45 函数getMatchHwndFromWindow被调用 参数为 Pattern=^([-\d]+)\s+[-\d]+\sEdit\s.*?$ intIndex=1 2020-02-02 02:20:45 函数getMatchHwndFromWindow中调用函数ControlsInfo,参数为 hWnd_=1573918 2020-02-02 02:20:45 函数getMatchHwndFromWindow执行完毕 匹配数量为=1 ``` ***** **controls.txt 文件内容为:** ``` 1573918 0 Notepad 新建文本文档.txt - 记事本 1901478 15 Edit test 722488 1025 msctls_statusbar32 ```