易语言代码统计源码

系统结构:取易IDE,统计易代码,处理易代码,发送全选命令,查找程序数据树型框,查找客户区,查找编辑区,FindWindowEx,PostMessage,SendMessage,GetWindowText,GetWindowTextLength,IsWindow,GetClassName,SetForegroundWindow,SetFocus,keybd_event,IsIconic,MessageBox,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 取易IDE
           |  |
           |  |------ 统计易代码
           |  |
           |  |------ 处理易代码
           |  |
           |  |------ 发送全选命令
           |  |
           |  |------ 查找程序数据树型框
           |  |
           |  |------ 查找客户区
           |  |
           |  |------ 查找编辑区
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   PostMessage
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   GetWindowText
           |  |
           |  |---[dll]------   GetWindowTextLength
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   SetForegroundWindow
           |  |
           |  |---[dll]------   SetFocus
           |  |
           |  |---[dll]------   keybd_event
           |  |
           |  |---[dll]------   IsIconic
           |  |
           |  |---[dll]------   MessageBox

调用的DLL命令:

.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是该函数的“类型security”声明形式　由具体的消息决定
    .参数 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, 整数型