易语言彗星虚表操作类_1.3模块源码

系统结构:父窗口消息处理,列表框消息处理,On_MouscEveal,On_LvnGetdispinfo,指针到列表框项目,读绑定数据库,是否已创建,取窗口句柄,创建,高度,宽度,左边,顶边,事件_填充表项,事件_鼠标左键单击,事件_鼠标左键双击,事件_鼠标右键单击,整行选择,显示表格线,取列数,删除列,插入列,置列标题,置列宽,置列图片,置表项数,取表项数,单一选择,现行选中项_取,现行选中项_置,选择表项,取鼠标指针所在的索引,全部删除,取标题,取表项数值,保证显示,刷新显示,取第一项索引,取可显示数量,取消表项选择,取消数据库绑定,绑定ACCESS数据库,绑定记录集,刷新表头,刷新记录集,读文本,置图片组,置图片组_易格式,隐藏,显示,释放字节流,创建字节流,取字节流指针,取字节流尺寸,取出字节集,A2W,W2A,CreateWindowEx,GetWindowRect,IsWindow,MoveWindow,SendMessage,SendMessage_LVITEM,SendMessage_LVCOLUMN,SetWindowPos,FindWindowEx,CallWindowProc,GetWindowLong,SetWindowLong,GetProp,SetProp,RtlMoveMemory_NMHDR,RtlMoveMemory_NMLVDISPINFO,RtlMoveMemory_NMLVDISPINFO2,LocalSize,LocalSize_NMLVDISPINFO,GlobalAlloc,GlobalFree,WriteProcessMemory,CallWindowProcA_调用子程序,API_取文本指针,API_字节集指针,RtlMoveMemory_超级列表框项目,取指针_超级列表框项目,GlobalUnlock,GlobalSize,GlobalHandle,GlobalLock,CreateStreamOnHGlobal,ImageList_Read,ShowWindow,MultiByteToWideChar,WideCharToMultiByte,lstrlenW,lstrlenA,ScreenToClient,GetParent,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 父窗口消息处理
           |  |
           |  |------ 列表框消息处理
           |  |
           |  |------ On_MouscEveal
           |  |
           |  |------ On_LvnGetdispinfo
           |  |
           |  |------ 指针到列表框项目
           |  |
           |  |------ 读绑定数据库
           |  |
           |  |
======彗星虚表操作类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 是否已创建
           |  |
           |  |------ 取窗口句柄
           |  |
           |  |------ 创建
           |  |
           |  |------ 高度
           |  |
           |  |------ 宽度
           |  |
           |  |------ 左边
           |  |
           |  |------ 顶边
           |  |
           |  |------ 事件_填充表项
           |  |
           |  |------ 事件_鼠标左键单击
           |  |
           |  |------ 事件_鼠标左键双击
           |  |
           |  |------ 事件_鼠标右键单击
           |  |
           |  |------ 整行选择
           |  |
           |  |------ 显示表格线
           |  |
           |  |------ 取列数
           |  |
           |  |------ 删除列
           |  |
           |  |------ 插入列
           |  |
           |  |------ 置列标题
           |  |
           |  |------ 置列宽
           |  |
           |  |------ 置列图片
           |  |
           |  |------ 置表项数
           |  |
           |  |------ 取表项数
           |  |
           |  |------ 单一选择
           |  |
           |  |------ 现行选中项_取
           |  |
           |  |------ 现行选中项_置
           |  |
           |  |------ 选择表项
           |  |
           |  |------ 取鼠标指针所在的索引
           |  |
           |  |------ 全部删除
           |  |
           |  |------ 取标题
           |  |
           |  |------ 取表项数值
           |  |
           |  |------ 保证显示
           |  |
           |  |------ 刷新显示
           |  |
           |  |------ 取第一项索引
           |  |
           |  |------ 取可显示数量
           |  |
           |  |------ 取消表项选择
           |  |
           |  |------ 取消数据库绑定
           |  |
           |  |------ 绑定ACCESS数据库
           |  |
           |  |------ 绑定记录集
           |  |
           |  |------ 刷新表头
           |  |
           |  |------ 刷新记录集
           |  |
           |  |------ 读文本
           |  |
           |  |------ 置图片组
           |  |
           |  |------ 置图片组_易格式
           |  |
           |  |------ 隐藏
           |  |
           |  |------ 显示
           |  |
           |  |
======字节流
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 释放字节流
           |  |
           |  |------ 创建字节流
           |  |
           |  |------ 取字节流指针
           |  |
           |  |------ 取字节流尺寸
           |  |
           |  |------ 取出字节集
           |  |
           |  |
======程序集2
           |  |
           |  |------ A2W
           |  |
           |  |------ W2A
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SendMessage_LVITEM
           |  |
           |  |---[dll]------   SendMessage_LVCOLUMN
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   RtlMoveMemory_NMHDR
           |  |
           |  |---[dll]------   RtlMoveMemory_NMLVDISPINFO
           |  |
           |  |---[dll]------   RtlMoveMemory_NMLVDISPINFO2
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   LocalSize_NMLVDISPINFO
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   WriteProcessMemory
           |  |
           |  |---[dll]------   CallWindowProcA_调用子程序
           |  |
           |  |---[dll]------   API_取文本指针
           |  |
           |  |---[dll]------   API_字节集指针
           |  |
           |  |---[dll]------   RtlMoveMemory_超级列表框项目
           |  |
           |  |---[dll]------   取指针_超级列表框项目
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   GlobalSize
           |  |
           |  |---[dll]------   GlobalHandle
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   ImageList_Read
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   lstrlenW
           |  |
           |  |---[dll]------   lstrlenA
           |  |
           |  |---[dll]------   ScreenToClient
           |  |
           |  |---[dll]------   GetParent

调用的DLL命令:

.DLL命令 CreateWindowEx, 整数型, , "CreateWindowExA"
    .参数 exStyle, 整数型
    .参数 name, 文本型
    .参数 title, 文本型
    .参数 style, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 w, 整数型
    .参数 h, 整数型
    .参数 parent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lParam, 整数型

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;  

.DLL命令 IsWindow, 整数型, "user32", "IsWindow", , 判断一个窗口句柄是否有效　非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 待检查窗口的句柄;  

.DLL命令 MoveWindow, 整数型, "user32", "MoveWindow", , 改变指定窗口的位置和大小。顶级窗口可能受最大或最小尺寸的限制，那些尺寸优先于这里设置的参数　非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 欲移动窗口的句柄
    .参数 x, 整数型, , 窗口新的左侧位置
    .参数 y, 整数型, , 窗口新的顶部位置
    .参数 nWidth, 整数型, , 窗口的新宽度
    .参数 nHeight, 整数型, , 窗口的高宽度
    .参数 bRepaint, 逻辑型, , 如窗口此时应重画，则设为TRUE（非零）。FALSE（零）则表明应用程序会自己决定是否重画窗口;

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

.DLL命令 SendMessage_LVITEM, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, LVITEM, , 具体取决于消息;

.DLL命令 SendMessage_LVCOLUMN, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, LVCOLUMN, , 具体取决于消息;

.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos", , 这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态　非零表示成功，零表示失败。会设置GetLastError
    .参数 CY, , , 指定新的窗口高度
    .参数 hwnd, 整数型, , 欲定位的窗口
    .参数 hWndInsertAfter, 整数型, , 窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：;HWND_BOTTOM：将窗口置于窗口列表底部;HWND_TOP：将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序;HWND_TOPMOST：将窗口置于列表顶部，并位于任何最顶部窗口的前面;HWND_NOTOPMOST：将窗口置于列表顶部，并位于任何最顶部窗口的后面
    .参数 x, 整数型, , 窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
    .参数 y, 整数型, , 窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
    .参数 cx, 整数型, , 指定新的窗口宽度
    .参数 cy, 整数型
    .参数 wFlags, 整数型, , 包含了旗标的一个整数;SWP_DRAWFRAME：围绕窗口画一个框;SWP_HIDEWINDOW：隐藏窗口;SWP_NOACTIVATE：不激活窗口;SWP_NOMOVE：保持当前位置（x和y设定将被忽略）;SWP_NOREDRAW：窗口不自动重画;SWP_NOSIZE：保持当前大小（cx和cy会被忽略）;SWP_NOZORDER：保持窗口在列表的当前位置（hWndInsertAfter将被忽略）;SWP_SHOWWINDOW：显示窗口;SWP_FRAMECHANGED：强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变;  

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

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息　由nIndex决定。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 nIndex, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 GetProp, 整数型, "user32", "GetPropA", , 从窗口属性表列中返回数据句柄　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

.DLL命令 SetProp, 整数型, "user32", "SetPropA", , 增加或修改属性列项　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 RtlMoveMemory_NMHDR, , , "RtlMoveMemory"
    .参数 lpDest, NMHDR
    .参数 lpSource, 整数型
    .参数 cBytes, 整数型

.DLL命令 RtlMoveMemory_NMLVDISPINFO, , , "RtlMoveMemory"
    .参数 lpDest, NMLVDISPINFO, 传址
    .参数 lpSource, 整数型
    .参数 cBytes, 整数型

.DLL命令 RtlMoveMemory_NMLVDISPINFO2, , , "RtlMoveMemory"
    .参数 lpDest, 整数型
    .参数 lpSource, NMLVDISPINFO, 传址
    .参数 cBytes, 整数型

.DLL命令 LocalSize, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小　
    .参数 hMem, 整数型

.DLL命令 LocalSize_NMLVDISPINFO, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小　
    .参数 hMem, NMLVDISPINFO

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 wFlags
    .参数 dwBytes

.DLL命令 GlobalFree, 整数型, , "GlobalFree"
    .参数 hMem

.DLL命令 WriteProcessMemory, 整数型, , "WriteProcessMemory"
    .参数 hProcess
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节集
    .参数 nSize
    .参数 lpNumberOfBytesWritten

.DLL命令 CallWindowProcA_调用子程序, 整数型, "user32.dll", "CallWindowProcA"
    .参数 机器码, 字节集
    .参数 程序指针, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型
    .参数 参数3, 整数型

.DLL命令 API_取文本指针, 整数型, , "lstrcpyn"
    .参数 参数1, 文本型, 传址
    .参数 参数2, 文本型, 传址
    .参数 保留, , , 0

.DLL命令 API_字节集指针, 整数型, , "lstrcpyn"
    .参数 参数1, 字节集, 传址
    .参数 参数2, 字节集, 传址
    .参数 保留, , , 0

.DLL命令 RtlMoveMemory_超级列表框项目, , "kernel32.dll", "RtlMoveMemory", , 　
    .参数 Destination, 超级列表框项目
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 取指针_超级列表框项目, 整数型, "kernel32", "lstrcpynA", , 　
    .参数 lpString1, 超级列表框项目, 传址
    .参数 lpString2, 超级列表框项目, 传址
    .参数 iMaxLength, 整数型

.DLL命令 GlobalUnlock, 整数型, "kernel32", "GlobalUnlock", , 开锁全局内存块
    .参数 hMem, 整数型

.DLL命令 GlobalSize, 整数型, "kernel32", "GlobalSize", , 返回全局内存块大小
    .参数 hMem, 整数型

.DLL命令 GlobalHandle, 整数型, "kernel32", "GlobalHandle", , 将全局指针转换为句柄
    .参数 wMem, 整数型

.DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock", , 锁定内存对象并返回一个指针
    .参数 hMem, 整数型

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

.DLL命令 ImageList_Read, 整数型, "comctl32.dll", "ImageList_Read", , 成功返回图片组句柄
    .参数 pstm, 整数型

.DLL命令 ShowWindow, 整数型, "user32", "ShowWindow", , 控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）　如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由nCmdShow指定的命令
    .参数 nCmdShow, 整数型, , 为窗口指定可视性方面的一个命令。请用下述任何一个常数;SW_HIDE：隐藏窗口，活动状态给令一个窗口;SW_MINIMIZE：最小化窗口，活动状态给令一个窗口;SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOWMAXIMIZED：最大化窗口，并将其激活;SW_SHOWMINIMIZED：最小化窗口，并将其激活;SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口;SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口;SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口;SW_SHOWNORMAL：与SW_RESTORE相同;

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte", , 返回 MultiByte字符数目,包括结尾0
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 unknow, 整数型
    .参数 unknow, 整数型

.DLL命令 lstrlenW, 整数型, "kernel32.dll", "lstrlenW"
    .参数 dqcs, 字节集

.DLL命令 lstrlenA, 整数型, "kernel32.dll", "lstrlenA"
    .参数 dqcs, 文本型

.DLL命令 ScreenToClient, 整数型, "user32", "ScreenToClient", , 判断屏幕上一个指定点的客户区坐标  非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 一个窗口的句柄，该窗口定义了要使用的客户区坐标系统
    .参数 lpPoint, POINTAPI, , POINTAPI，屏幕坐标系统中包含了屏幕点的结构。这个函数会随同相应的客户区坐标（由hwnd决定）载入结构;

.DLL命令 GetParent, 整数型, "user32", "GetParent", , 判断指定窗口的父窗口  父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 hwnd, 整数型, , 欲测试的窗口的句柄;