易语言核心分割源码

系统结构:列表消息处理,创建窗口,WindProc,通知信息函数,易窗口回调,取字节集指针,GetNewInf,附加功能子程序,打开按钮消息处理,保存按钮消息处理,抹去OBJ,运行,读,写,运行并等待进程结束,导入图片组字节集,取窗口类名_,SendMessage列表,SendMessage,取数据地址,取数据地址1,UpdateWindow,GetParent,FindWindowEx,EnumWindows,取字节集指针_API,复制库信息_API,调用子程序_API,调用子程序_API_Text,GetWindow,FindWindow,GetModuleHandle,GetWindowLong,GetMenu,IsMenu,IsWindow,PostMessage,ShowWindow,CreateWindowEx,GetMessage,TranslateMessage,DispatchMessage,UnregisterClass,取对象句柄_,RegisterClass,载入鼠标指针_,PostQuitMessage,DefWindowProc,取系统默认色_,取变量地址,SetWindowLong,CallWindowProc,CallWindowProc列表,添加菜单项_,取前台窗口_,取窗口标题_,CreateThread,寻找子窗口_,设置窗口标题_,取菜单条目信息_,取子菜单句柄_,置菜单条目信息_,创建匿名管道,获取启动信息,创建进程,读文件,写文件,GlobalAlloc,GlobalFree,GlobalLock,CreateStreamOnHGlobal,ImageList_Read,GlobalUnlock,ImageList_Destroy,读入文件数据_,等待进程运行完毕,取管道数据,取条目ID_,取条目数量_,插入菜单条目_,禁止菜单_,取保存文件名_,复制文件_,取打开文件名_,删除菜单条目_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 列表消息处理
           |  |
           |  |------ 创建窗口
           |  |
           |  |------ WindProc
           |  |
           |  |------ 通知信息函数
           |  |
           |  |------ 易窗口回调
           |  |
           |  |------ 取字节集指针
           |  |
           |  |------ GetNewInf
           |  |
           |  |------ 附加功能子程序
           |  |
           |  |------ 打开按钮消息处理
           |  |
           |  |------ 保存按钮消息处理
           |  |
           |  |------ 抹去OBJ
           |  |
           |  |
======匿名管道类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 运行
           |  |
           |  |------ 读
           |  |
           |  |------ 写
           |  |
           |  |------ 运行并等待进程结束
           |  |
           |  |
======图片组类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 导入图片组字节集
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口类名_
           |  |
           |  |---[dll]------   SendMessage列表
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   取数据地址
           |  |
           |  |---[dll]------   取数据地址1
           |  |
           |  |---[dll]------   UpdateWindow
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   EnumWindows
           |  |
           |  |---[dll]------   取字节集指针_API
           |  |
           |  |---[dll]------   复制库信息_API
           |  |
           |  |---[dll]------   调用子程序_API
           |  |
           |  |---[dll]------   调用子程序_API_Text
           |  |
           |  |---[dll]------   GetWindow
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   GetMenu
           |  |
           |  |---[dll]------   IsMenu
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   PostMessage
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   UnregisterClass
           |  |
           |  |---[dll]------   取对象句柄_
           |  |
           |  |---[dll]------   RegisterClass
           |  |
           |  |---[dll]------   载入鼠标指针_
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   取系统默认色_
           |  |
           |  |---[dll]------   取变量地址
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   CallWindowProc列表
           |  |
           |  |---[dll]------   添加菜单项_
           |  |
           |  |---[dll]------   取前台窗口_
           |  |
           |  |---[dll]------   取窗口标题_
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   寻找子窗口_
           |  |
           |  |---[dll]------   设置窗口标题_
           |  |
           |  |---[dll]------   取菜单条目信息_
           |  |
           |  |---[dll]------   取子菜单句柄_
           |  |
           |  |---[dll]------   置菜单条目信息_
           |  |
           |  |---[dll]------   创建匿名管道
           |  |
           |  |---[dll]------   获取启动信息
           |  |
           |  |---[dll]------   创建进程
           |  |
           |  |---[dll]------   读文件
           |  |
           |  |---[dll]------   写文件
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   ImageList_Read
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   ImageList_Destroy
           |  |
           |  |---[dll]------   读入文件数据_
           |  |
           |  |---[dll]------   等待进程运行完毕
           |  |
           |  |---[dll]------   取管道数据
           |  |
           |  |---[dll]------   取条目ID_
           |  |
           |  |---[dll]------   取条目数量_
           |  |
           |  |---[dll]------   插入菜单条目_
           |  |
           |  |---[dll]------   禁止菜单_
           |  |
           |  |---[dll]------   取保存文件名_
           |  |
           |  |---[dll]------   复制文件_
           |  |
           |  |---[dll]------   取打开文件名_
           |  |
           |  |---[dll]------   删除菜单条目_

  

调用的DLL命令:

.支持库 eAPI

.DLL命令 取窗口类名_, 整数型, "user32.dll", "GetClassNameA"
    .参数 hwnd, 整数型
    .参数 缓冲区, 文本型
    .参数 缓冲区长度, 整数型

.DLL命令 SendMessage列表, 整数型, "user32.dll", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 列表项, 传址, 类型为通用型，请在调试时调整其类型

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, , 类型为通用型，请在调试时调整其类型

.DLL命令 取数据地址, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 目标, TCITEM, 传址
    .参数 源, TCITEM, 传址
    .参数 长度, 整数型

.DLL命令 取数据地址1, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 目标, RECT, 传址
    .参数 源, RECT, 传址
    .参数 长度, 整数型

.DLL命令 UpdateWindow, 整数型, "user32.dll", "UpdateWindow"
    .参数 hwnd, 整数型

.DLL命令 GetParent, 整数型, "user32.dll", "GetParent"
    .参数 窗口句柄, 整数型

.DLL命令 FindWindowEx, 整数型, "user32", "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 文本型

.DLL命令 EnumWindows, 整数型, "user32.dll"
    .参数 proc
    .参数 lparam

.DLL命令 取字节集指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, 字节集
    .参数 欲取其指针的变量, 字节集
    .参数 保留, 整数型, , 0

.DLL命令 复制库信息_API, , , "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 库信息
    .参数 Length, 整数型

.DLL命令 调用子程序_API, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 字节集
    .参数 hwnd
    .参数 msg
    .参数 wParam
    .参数 iparam

.DLL命令 调用子程序_API_Text, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 字节集
    .参数 hwnd
    .参数 msg
    .参数 wParam
    .参数 lparam, 文本型

.DLL命令 GetWindow, 整数型, "user32", "GetWindow", , 获得一个窗口的句柄，该窗口与某源窗口有特定的关系
    .参数 hwnd, 整数型, , 源窗口
    .参数 wCmd, 整数型, , 指定结果窗口与源窗口的关系

.DLL命令 FindWindow, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口
    .参数 lpClassName, 文本型, , 窗口类名
    .参数 lpWindowName, 文本型, , 窗口文本（标题）

.DLL命令 GetModuleHandle, 整数型, "kernel32.dll", "GetModuleHandleA"
    .参数 ddd

.DLL命令 GetWindowLong, 整数型, "user32.dll", "GetWindowLongA"
    .参数 hwnd
    .参数 index

.DLL命令 GetMenu, 整数型, "user32.dll"
    .参数 hwnd

.DLL命令 IsMenu, 逻辑型, "user32.dll"
    .参数 hmenu

.DLL命令 IsWindow, 逻辑型, "user32.dll"
    .参数 hwnd

.DLL命令 PostMessage, 整数型, "user32.dll", "PostMessageA"
    .参数 h
    .参数 m
    .参数 w
    .参数 l

.DLL命令 ShowWindow, 逻辑型, "user32.dll"
    .参数 hwnd
    .参数 show

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA", , 创建窗口
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 GetMessage, 整数型, "user32.dll", "GetMessageA"
    .参数 lpMsg, MSG, 传址
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32.dll", "TranslateMessage"
    .参数 lpMsg, MSG, 传址

.DLL命令 DispatchMessage, 整数型, "user32.dll", "DispatchMessageA"
    .参数 lpMsg, MSG, 传址

.DLL命令 UnregisterClass, 整数型, "user32.dll", "UnregisterClassA"
    .参数 Class, 文本型
    .参数 句柄, 整数型

.DLL命令 取对象句柄_, 整数型, "gdi32", "GetStockObject", , ,
    .参数 类型, 整数型

.DLL命令 RegisterClass, 整数型, "user32.dll", "RegisterClassA", , 注册窗口类
    .参数 Class, WNDCLASS, 传址, 窗口的类结构

.DLL命令 载入鼠标指针_, 整数型, "user32.dll", "LoadCursorA", , , 从指定的模块或应用程序实例中载入一个鼠标指针
    .参数 实例句柄, 整数型, , hInstance,参见相关帮助
    .参数 鼠标指针标识, , , lpCursorName,参见相关帮助

.DLL命令 PostQuitMessage, , "user32.dll", "PostQuitMessage"
    .参数 nExitCode, 整数型

.DLL命令 DefWindowProc, 整数型, "user32.dll", "DefWindowProcA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 取系统默认色_, 整数型, "user32", "GetSysColor", , ,
    .参数 类型, 整数型

.DLL命令 取变量地址, 整数型, "kernel32", "lstrcpynA", , 取内存变量地址
    .参数 lpString1, 列表项, 传址, 传址
    .参数 lpString2, 列表项, 传址
    .参数 iMaxLength, 整数型

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA", 公开
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA", 公开, LRESULT WINAPI CallWindowProc
    .参数 lpPrevWndFunc, , , WNDPROC lpPrevWndFunc ,
    .参数 hWnd, 整数型, , HWND hWnd ,
    .参数 Msg, 整数型, , UINT Msg ,
    .参数 wParam, 整数型, , WPARAM wParam ,
    .参数 lParam, 整数型, , LPARAM lParam ,

.DLL命令 CallWindowProc列表, 整数型, "user32.dll", "CallWindowProcA", 公开, LRESULT WINAPI CallWindowProc
    .参数 lpPrevWndFunc, , , WNDPROC lpPrevWndFunc ,
    .参数 hWnd, 整数型, , HWND hWnd ,
    .参数 Msg, 整数型, , UINT Msg ,
    .参数 wParam, 整数型, , WPARAM wParam ,
    .参数 lParam, 列表项, 传址, LPARAM lParam ,

.DLL命令 添加菜单项_, 整数型, "user32.dll", "AppendMenuA", , , 非零表示成功，零表示失败
    .参数 菜单句柄, 整数型, , hMenu,菜单句柄
    .参数 菜单常数标志, 整数型, , wFlags,参见相关帮助
    .参数 新菜单条目ID, 整数型, , wIDNewItem,指定菜单条目的新命令ID
    .参数 标志值, 文本型, , lpNewItem,参见相关帮助

.DLL命令 取前台窗口_, 整数型, "user32", "GetForegroundWindow", , ,

.DLL命令 取窗口标题_, 整数型, "user32", "GetWindowTextA", , , 取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）  复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 缓冲区, 文本型, , 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 缓冲尺寸, 整数型, , lp缓冲区的长度;

.DLL命令 CreateThread, 整数型, , "CreateThread", 公开, 线程_启动
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型, , 控制线程创建的标志。如果指定了CREATE_SUSPENDED标志，是创建线程处于暂停状态，并不会运行，直到ResumeThread函数被调用。如果这个值是零，线程创建后立即运行
    .参数 lpThreadId, 整数型, 传址

.DLL命令 寻找子窗口_, 整数型, "user32", "FindWindowExA", , , 在窗口列表中寻找与指定条件相符的第一个子窗口  找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
    .参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
    .参数 欲搜索的类名1, 文本型, , 欲搜索的类名。“”表示忽略
    .参数 欲搜索的类名2, 整数型, , 欲搜索的类名。“”表示忽略;

.DLL命令 设置窗口标题_, 整数型, "user32", "SetWindowTextA", , ,
    .参数 窗口句柄, 整数型
    .参数 窗口标题, 文本型

.DLL命令 取菜单条目信息_, 整数型, "user32", "GetMenuItemInfoA", , ,
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型
    .参数 查找方式, 逻辑型
    .参数 菜单信息, 菜单条目结构_, 传址

.DLL命令 取子菜单句柄_, 整数型, "user32", "GetSubMenu", , ,
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 置菜单条目信息_, 整数型, "user32.dll", "SetMenuItemInfoA", , , 为一个菜单条目设置指定的信息，具体信息保存于MENUITEMINFO结构中  TRUE（非零）表示成功，否则返回零。会设置GetLastError
    .参数 菜单句柄, 整数型, , hMenu
    .参数 菜单标识符或位置, 整数型, , un
    .参数 标识符或位置, 逻辑型, , bool，如un指定了条目的位置，就为TRUE；如指定的是菜单ID，就为FALSE
    .参数 菜单条目信息结构, 菜单条目结构_, , lpcMenuItemInfo

.DLL命令 创建匿名管道, 整数型, "kernel32.dll", "CreatePipe"
    .参数 输出管道, 整数型, 传址
    .参数 输入管道, 整数型, 传址
    .参数 管道属性, security属性, 传址
    .参数 尺寸, 整数型

.DLL命令 获取启动信息, 整数型, "kernel32.dll", "GetStartupInfoA"
    .参数 启动信息, 启动信息, 传址

.DLL命令 创建进程, 整数型, "kernel32.dll", "CreateProcessA"
    .参数 程序名称, 整数型, , 32位程序用，可设为文本型
    .参数 命令行, 文本型
    .参数 进程属性, 整数型
    .参数 线程属性, 整数型
    .参数 参数一, 整数型
    .参数 参数二, 整数型
    .参数 参数三, 整数型
    .参数 运行目录, 文本型, , 如需指定运行目录设为文本行
    .参数 启动信息, 启动信息
    .参数 进程信息, 进程信息

.DLL命令 读文件, 整数型, "kernel32.dll", "ReadFile"
    .参数 文件号, 整数型
    .参数 缓存, 整数型
    .参数 读取尺寸, 整数型
    .参数 实际尺寸, 整数型, 传址
    .参数 参数, 整数型

.DLL命令 写文件, 整数型, "kernel32.dll", "WriteFile"
    .参数 文件号, 整数型
    .参数 写入内容, 字节集, 传址
    .参数 写入尺寸, 整数型
    .参数 实际尺寸, 整数型, 传址
    .参数 参数, 整数型

.DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc", , 在堆中分配内存  成功返回内存块句柄，失败返回零
    .参数 wFlags, 整数型, , GMEM_开头常量。如指定了 GMEM_FIXED那么无须调用GlobalLock/GlobalUnlock 操作
    .参数 dwBytes, 整数型, , 要分配的字符数

.DLL命令 GlobalFree, 整数型, "kernel32", "GlobalFree", , 释放全局内存块
    .参数 hMem, 整数型

.DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock", , 锁定内存对象并返回一个指针  成功返回内存指针，失败返回null。GetLastError来获得出错信息
    .参数 hMem, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal, 整数型
    .参数 fDeleteOnRelease, 整数型
    .参数 ppstm, 整数型, 传址

.DLL命令 ImageList_Read, 整数型, "comctl32.dll", "ImageList_Read"
    .参数 pstm, 整数型

.DLL命令 GlobalUnlock, 整数型, "kernel32", "GlobalUnlock", , 开锁全局内存块  非零值，指定的内存对象仍处于被锁定状态。0，函数执行出错，可以用GetLastError来获得出错信息，如果返回NO_ERROR，则表示内存对象已经解锁了
    .参数 hMem, 整数型

.DLL命令 ImageList_Destroy, 整数型, "comctl32.dll", "ImageList_Destroy"
    .参数 himl, 整数型

.DLL命令 读入文件数据_, 整数型, "kernel32", "ReadFileEx", , ,
    .参数 文件句柄, 整数型, , hfile，文件的句柄
    .参数 数据缓冲区, 整数型, , lpbuffer，指定容纳读入数据的一个缓冲区。除非读操作执行完毕，否则不要访问这个缓冲区
    .参数 读入长度, 整数型, , nnumberofbytestoread，要读入的字节数
    .参数 异步操作结构, 重叠操作_, , lpoverlapped，定义了一个异步操作的结构。使用这个函数时，结构中的hEvent字段会被忽略
    .参数 回调函数返回值, 整数型, , lpcompletionroutine，回调函数的返回值

.DLL命令 等待进程运行完毕, 整数型, "kernel32", "WaitForSingleObject"
    .参数 进程句柄
    .参数 等待时间

.DLL命令 取管道数据, , "kernel32", "peeknamedpipe"
    .参数 管道句
    .参数 缓冲区
    .参数 缓冲区长度
    .参数 实读尺寸
    .参数 管道可用尺寸
    .参数 保留消息

.DLL命令 取条目ID_, 整数型, "user32", "GetMenuItemID", , ,
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 取条目数量_, 整数型, "user32", "GetMenuItemCount", , ,
    .参数 菜单句柄, 整数型

.DLL命令 插入菜单条目_, 整数型, "user32.dll", "InsertMenuA", , ,
    .参数 菜单句柄, 整数型, , hMenu,菜单的句柄
    .参数 插入点标志符, 整数型, , nPosition,参见相关帮助
    .参数 常数标志, 整数型, , wFlags,常数标志的组合,参考ModifyMenu
    .参数 新条目ID, 整数型, , wIDNewItem,指定菜单条目的新菜单ID
    .参数 条目内容, 文本型, , lpNewItem,由wFlags参数决定

.DLL命令 禁止菜单_, 整数型, "user32.dll", "EnableMenuItem", , , 允许或禁止指定的菜单条目
    .参数 菜单句柄, 整数型, , hMenu，菜单句柄
    .参数 标识符, 整数型, , wIDEnableItem，欲允许或禁止的一个菜单条目的标识符
    .参数 常数标志, 整数型, , wEnable，参见相关帮助

.DLL命令 取保存文件名_, 整数型, "msvfw32.dll", "GetSaveFileNamePreviewA", , ,
    .参数 格式, 打开文件名_

.DLL命令 复制文件_, 整数型, "kernel32.dll", "CopyFileA", , ,
    .参数 源文件名, 文本型, , lpExistingFileName，被复制的文件名
    .参数 目标文件名, 文本型, , lpNewFileName，目标文件名
    .参数 是否覆盖, 整数型, , bFailIfExists，非0不覆盖，0覆盖

.DLL命令 取打开文件名_, 整数型, "msvfw32.dll", "GetOpenFileNamePreview"
    .参数 格式, 打开文件名_

.DLL命令 删除菜单条目_, , "user32.dll", "DeleteMenu", , , 删除指定的菜单条目
    .参数 菜单句柄, 整数型, , hMenu,菜单句柄
    .参数 标志索引, 整数型, , nPosition,参见相关帮助
    .参数 标识符, 整数型, , wFlags,参见相关帮助