您好,登录后才能下订单哦!
密码登录
登录注册
点击 登录注册 即表示同意《亿速云用户服务条款》
小编给大家分享一下易语言如何实现统计代码行数与API的工具,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!
DLL命令表
.版本 2 .DLL命令 FindWindowEx, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口 找到的窗口的句柄。如未找到相符窗口,则返回零。会设置GetLastError .参数 hWnd1, 整数型, , 在其中查找子的父窗口。如设为零,表示使用桌面窗口(通常说的顶级窗口都被认为是桌面的子窗口,所以也会对它们进行查找) .参数 hWnd2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零,表示从第一个子窗口开始搜索 .参数 lpsz1, 文本型, , 欲搜索的类名。零表示忽略 .参数 lpsz2, 文本型, , 欲搜索的类名。零表示忽略; .DLL命令 PostMessage, 整数型, "user32", "PostMessageA", , 将一条消息投递到指定窗口的消息队列。投递的消息会在Windows事件处理过程中得到处理。在那个时候,会随同投递的消息调用指定窗口的窗口函数。特别适合那些不需要立即处理的窗口消息的发送 如消息投递成功,则返回TRUE(非零)。会设置GetLastError .参数 hwnd, 整数型, , 接收消息的那个窗口的句柄。如设为HWND_BROADCAST,表示投递给系统中的所有顶级窗口。如设为零,表示投递一条线程消息(参考PostThreadMessage) .参数 wMsg, 整数型, , 消息标识符 .参数 wParam, 整数型, , 具体由消息决定 .参数 lParam, 整数型, , 具体由消息决定; .DLL命令 SendMessage, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, ; SendMessageByString是该函数的“类型安全”声明形式 由具体的消息决定 .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄 .参数 wMsg, 整数型, , 消息的标识符 .参数 wParam, 整数型, , 具体取决于消息 .参数 lParam, 整数型, , 具体取决于消息; .DLL命令 GetWindowText, 整数型, "user32", "GetWindowTextA", , 取得一个窗体的标题(caption)文字,或者一个控件的内容(在vb里使用:使用vb窗体或控件的caption或text属性) 复制到lpString的字串长度;不包括空中止字符。会设置GetLastError .参数 hwnd, 整数型, , 欲获取文字的那个窗口的句柄 .参数 lpString, 文本型, , 预定义的一个缓冲区,至少有cch+1个字符大小;随同窗口文字载入 .参数 cch, 整数型, , lp缓冲区的长度; .DLL命令 GetWindowTextLength, 整数型, "user32", "GetWindowTextLengthA", , 调查窗口标题文字或控件内容的长短(在vb里使用:直接使用vb窗体或控件的caption或text属性) 字串长度,不包括空中止字符 .参数 hwnd, 整数型, , 想调查文字长度的窗口的句柄; .DLL命令 IsWindow, 整数型, "user32", "IsWindow", , 判断一个窗口句柄是否有效 非零表示成功,零表示失败 .参数 hwnd, 整数型, , 待检查窗口的句柄; .DLL命令 GetClassName, 整数型, "user32", "GetClassNameA", , 为指定的窗口取得类名 以字节数表示的类名长度;排除最后的空中止字符。零表示出错。会设置GetLastError .参数 hwnd, 整数型, , 欲获得类名的那个窗口的句柄 .参数 lpClassName, 文本型, , 随同类名载入的缓冲区。预先至少必须分配nMaxCount+1个字符 .参数 nMaxCount, 整数型, , 由lpClassName提供的缓冲区长度; .DLL命令 SetForegroundWindow, 整数型, "user32", "SetForegroundWindow", , 将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序 非零表示成功,零表示失败。会设置GetLastError .参数 hwnd, 整数型, , 带到前台的窗口; .DLL命令 SetFocus, 整数型, "user32", "SetFocus", , 设置键盘焦点 前一个拥有焦点的窗口的句柄 .参数 hwnd, 整数型, , 准备接收焦点的窗口的句柄 .DLL命令 keybd_event, , "user32", "keybd_event", , 这个函数模拟了键盘行动 .参数 bVk, 字节型, , 欲模拟的虚拟键码 .参数 bScan, 字节型, , 键的OEM扫描码 .参数 dwFlags, 整数型, , 零;或设为下述两个标志之一;KEYEVENTF_EXTENDEDKEY:指出是一个扩展键,而且在前面冠以0xE0代码;KEYEVENTF_KEYUP:模拟松开一个键 .参数 dwExtraInfo, 整数型, , 通常不用的一个值。api函数GetMessageExtraInfo可取得这个值。允许使用的值取决于特定的驱动程序; .DLL命令 IsIconic, 整数型, "user32", "IsIconic", , 判断窗口是否已最小化 非零表示成功,零表示失败 .参数 hwnd, 整数型, , 待检测窗口的句柄; .DLL命令 MessageBox, 整数型, "user32", "MessageBoxA", , 建立消息框窗体 .参数 hwnd, 整数型 .参数 lpText, 文本型 .参数 lpCaption, 文本型 .参数 wType, 整数型
常量数据表
.版本 2 .常量 易菜单命令_复制, "57634" .常量 易菜单命令_粘贴, "57637" .常量 易菜单命令_跳转, "32793" .常量 WM_COMMAND, "273" .常量 WM_CHAR, "258", , //按下某键,并已发出WM_KEYDOWN, WM_KEYUP消息 .常量 WM_KEYDOWN, "256", , //按下一个键 .常量 WM_KEYFIRST, "256" .常量 WM_KEYUP, "257", , //释放一个键 .常量 EM_SETSEL, "177" .常量 VK_CONTROL, "17" .常量 VK_A, "65" .常量 WM_LBUTTONDOWN, "513" .常量 WM_LBUTTONDBLCLK, "515" .常量 WM_LBUTTONUP, "514" .常量 WM_MOUSEMOVE, "512" .常量 KEYEVENTF_KEYUP, "2" .常量 KEYEVENTF_EXTENDEDKEY, "1" .常量 WM_SYSCOMMAND, "274" .常量 SC_RESTORE, "61728" .常量 EM_GETLINECOUNT, "186"
易语言代码统计
此功能需要加载 树型框操作类模块 1.2
.版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 取易IDE () .子程序 __启动窗口_尺寸被改变 IDE组合框.宽度 = 取用户区宽度 () - IDE组合框.左边 - 8 统计按钮.左边 = 取用户区宽度 () - 统计按钮.宽度 - 8 刷新按钮.左边 = 统计按钮.左边 - 统计按钮.宽度 - 8 统计编辑框.移动 (, , 取用户区宽度 () - 16, 取用户区高度 () - 统计编辑框.顶边 - 8) .子程序 _刷新按钮_被单击 取易IDE () .子程序 _统计按钮_被单击 .局部变量 hWnd, 整数型 hWnd = IDE组合框.取项目数值 (IDE组合框.现行选中项) .如果真 (IsWindow (hWnd) = 0) 取易IDE () MessageBox (取窗口句柄 (), “请选择已打开的易IDE进行统计”, “提示”, 64) IDE组合框.获取焦点 () 返回 () .如果真结束 统计易代码 (hWnd) .子程序 取易IDE .局部变量 hWnd, 整数型 .局部变量 strText, 文本型 .局部变量 n, 整数型 IDE组合框.清空 () hWnd = FindWindowEx (0, 0, “ENewFrame”, 字符 (0)) .判断循环首 (hWnd ≠ 0) n = GetWindowTextLength (hWnd) + 1 strText = 取空白文本 (n) GetWindowText (hWnd, strText, n) IDE组合框.加入项目 (strText, hWnd) hWnd = FindWindowEx (0, hWnd, “ENewFrame”, 字符 (0)) .判断循环尾 () .子程序 统计易代码 .参数 hWndEFrame, 整数型 .局部变量 hTreeView, 整数型 .局部变量 hMDIClient, 整数型 .局部变量 hEdit, 整数型 .局部变量 树型框, 树型框句柄操作类 .局部变量 n .局部变量 i .局部变量 p .局部变量 x .局部变量 ApiP, 整数型 .局部变量 Api, 整数型 .局部变量 strText, 文本型 .局部变量 strCode, 文本型 .如果真 (IsWindow (hWndEFrame) = 0) 返回 () .如果真结束 hTreeView = 查找程序数据树型框 (hWndEFrame) hMDIClient = 查找客户区 (hWndEFrame) ApiP = -1 连续赋值 (真, 刷新按钮.禁止, 统计按钮.禁止, IDE组合框.禁止) 统计标签.标题 = “正在统计...” 统计编辑框.内容 = “” 处理事件 () .如果真 (hTreeView ≠ 0 且 hMDIClient ≠ 0) .如果真 (IsIconic (hWndEFrame) ≠ 0) ' 判断窗口是否已最小化 SendMessage (hWndEFrame, #WM_SYSCOMMAND, #SC_RESTORE, 0) .如果真结束 SetForegroundWindow (hWndEFrame) 处理事件 () .如果真 (树型框._初始化类 (hTreeView, 真)) 树型框.置自动更新状态 (假) n = 树型框.数据_取项目数 () .计次循环首 (n, i) p = 树型框.数据_取父项目 (i - 1) .如果真 (p = 0) strText = 树型框.数据_取项目文本 (i - 1) .如果真 (寻找文本 (“资源表|模块引用表|窗口”, strText, , 假) = -1) 统计标签.标题 = “正在统计:” + strText 处理事件 () 树型框.动作_保证显示 (i - 1) 树型框.数据_现行选中项_置 (i - 1) SendMessage (hWndEFrame, #WM_COMMAND, #易菜单命令_跳转, 0) 延时 (200) hEdit = 查找编辑区 (hMDIClient, strText) .如果真 (hEdit ≠ 0) SetFocus (hEdit) 发送全选命令 (hEdit) 置剪辑板文本 (“”) 处理事件 () 延时 (200) SendMessage (hWndEFrame, #WM_COMMAND, #易菜单命令_复制, 0) strCode = strCode + 取剪辑板文本 () + #换行符 .如果真结束 .如果真结束 .如果 (strText = “Dll命令”) ApiP = i - 1 .否则 .如果结束 .如果真结束 .如果真 (p = ApiP) Api = Api + 1 .如果真结束 .计次循环尾 () .如果真结束 .如果真结束 处理易代码 (strCode) 统计编辑框.内容 = strCode 置剪辑板文本 (“”) n = 统计编辑框.发送信息 (#EM_GETLINECOUNT, 0, 0) 统计标签.标题 = “共有代码 ” + 到文本 (n) + “ 行” .如果真 (Api > 0) 统计标签.标题 = 统计标签.标题 + “,使用API ” + 到文本 (Api) + “ 个” .如果真结束 SetForegroundWindow (取窗口句柄 ()) 连续赋值 (假, 刷新按钮.禁止, 统计按钮.禁止, IDE组合框.禁止) .子程序 处理易代码 .参数 strCode, 文本型, 参考 .局部变量 n, 整数型 strCode = 子文本替换 (strCode, “.版本 2” + #换行符, “”, , , 真) .判断循环首 (寻找文本 (strCode, #换行符 + #换行符, , 假) ≠ -1) strCode = 子文本替换 (strCode, #换行符 + #换行符, #换行符, , , 真) .判断循环尾 () strCode = “.版本 2” + #换行符 + #换行符 + strCode .子程序 发送全选命令 .参数 hWnd, 整数型 .局部变量 lParam keybd_event (#VK_CONTROL, 0, 0, 0) keybd_event (#VK_A, 0, 0, 0) keybd_event (#VK_CONTROL, 0, #KEYEVENTF_KEYUP, 0) keybd_event (#VK_A, 0, #KEYEVENTF_KEYUP, 0) 延时 (200) .子程序 查找程序数据树型框, 整数型 .参数 hWndEFrame, 整数型 .局部变量 hPrent, 整数型 .局部变量 hWnd, 整数型 .局部变量 List, 整数型, , "0" .局部变量 ClassName, 文本型 .局部变量 树型框, 树型框句柄操作类 加入成员 (List, hWndEFrame) .判断循环首 (取数组成员数 (List) > 0) hPrent = List [1] 删除成员 (List, 1, 1) hWnd = FindWindowEx (hPrent, 0, 字符 (0), 字符 (0)) .判断循环首 (hWnd ≠ 0) 加入成员 (List, hWnd) ClassName = 取空白文本 (255) GetClassName (hWnd, ClassName, 255) .如果真 (ClassName = “SysTreeView32”) .如果真 (树型框._初始化类 (hWnd, 真)) .如果真 (树型框.数据_取项目文本 (0) = “程序数据”) 返回 (hWnd) .如果真结束 .如果真结束 .如果真结束 hWnd = FindWindowEx (hPrent, hWnd, 字符 (0), 字符 (0)) .判断循环尾 () .判断循环尾 () 返回 (0) .子程序 查找客户区, 整数型, , MDIClient .参数 hWndEFrame, 整数型 .局部变量 hPrent, 整数型 .局部变量 hWnd, 整数型 .局部变量 List, 整数型, , "0" .局部变量 ClassName, 文本型 .局部变量 树型框, 树型框句柄操作类 加入成员 (List, hWndEFrame) .判断循环首 (取数组成员数 (List) > 0) hPrent = List [1] 删除成员 (List, 1, 1) hWnd = FindWindowEx (hPrent, 0, 字符 (0), 字符 (0)) .判断循环首 (hWnd ≠ 0) 加入成员 (List, hWnd) ClassName = 取空白文本 (255) GetClassName (hWnd, ClassName, 255) .如果真 (ClassName = “MDIClient”) 返回 (hWnd) .如果真结束 hWnd = FindWindowEx (hPrent, hWnd, 字符 (0), 字符 (0)) .判断循环尾 () .判断循环尾 () 返回 (0) .子程序 查找编辑区, 整数型, , 在客户区里查找当前编辑的窗口 .参数 hMDIClient, 整数型 .参数 strWindowText, 文本型 .局部变量 hWnd, 整数型 .局部变量 strText, 文本型 .局部变量 ClassName, 文本型 .局部变量 n, 整数型 .局部变量 hPrent, 整数型 .局部变量 hAfx, 整数型 hWnd = FindWindowEx (hMDIClient, 0, 字符 (0), 字符 (0)) n = GetWindowTextLength (hWnd) + 1 strText = 取空白文本 (n) GetWindowText (hWnd, strText, n) .如果真 (寻找文本 (strText, strWindowText, , 假) ≠ -1) hPrent = FindWindowEx (hWnd, 0, 字符 (0), 字符 (0)) .如果真 (hPrent ≠ 0) hWnd = FindWindowEx (hPrent, 0, 字符 (0), 字符 (0)) .判断循环首 (hWnd ≠ 0) ClassName = 取空白文本 (255) GetClassName (hWnd, ClassName, 255) .如果真 (取文本左边 (ClassName, 4) = “Afx:”) hAfx = hWnd 跳出循环 () .如果真结束 hWnd = FindWindowEx (hPrent, hWnd, 字符 (0), 字符 (0)) .判断循环尾 () .如果真结束 .如果真结束 .如果真 (hAfx ≠ 0) hAfx = FindWindowEx (hAfx, 0, 字符 (0), 字符 (0)) .如果真结束 返回 (hAfx)
运行结果:
以上是“易语言如何实现统计代码行数与API的工具”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注亿速云行业资讯频道!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。