易语言统计代码行数与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)