易语言黑月创建程序源码

系统结构:DlgProc,取低十六位,ButtWindProc,GenererSerial,DialogBoxParam,EndDialog,GetModuleHandle,SendMessage,LoadIcon,InitCommonControls,AnimateWindow,GetDlgItem,取指针_字节型,RtlMoveMemory_文本,BitBlt,CallWindowProc,CreateCompatibleDC,CreateFontIndirectA,DeleteObject,GetDC,GetStockObject,InvalidateRect,PostMessage,ReleaseDC,SetBkColor,playxm,RtlZeroMemory_LOGFONT,SelectObject,SetBkMode,SetDlgItemText,SetFocus,SetTextColor,SetWindowLong,SetWindowText,TextOut,UpdateWindow,GetWindowRect,GetCursorPos,InvalidateRect_null,RtlMoveMemory_DRAWITEMSTRUCT,DeleteDC,LoadBitmap,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ DlgProc
           |  |
           |  |------ 取低十六位
           |  |
           |  |------ ButtWindProc
           |  |
           |  |------ GenererSerial
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DialogBoxParam
           |  |
           |  |---[dll]------   EndDialog
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   InitCommonControls
           |  |
           |  |---[dll]------   AnimateWindow
           |  |
           |  |---[dll]------   GetDlgItem
           |  |
           |  |---[dll]------   取指针_字节型
           |  |
           |  |---[dll]------   RtlMoveMemory_文本
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateFontIndirectA
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   GetStockObject
           |  |
           |  |---[dll]------   InvalidateRect
           |  |
           |  |---[dll]------   PostMessage
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   SetBkColor
           |  |
           |  |---[dll]------   playxm
           |  |
           |  |---[dll]------   RtlZeroMemory_LOGFONT
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   SetDlgItemText
           |  |
           |  |---[dll]------   SetFocus
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SetWindowText
           |  |
           |  |---[dll]------   TextOut
           |  |
           |  |---[dll]------   UpdateWindow
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   InvalidateRect_null
           |  |
           |  |---[dll]------   RtlMoveMemory_DRAWITEMSTRUCT
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   LoadBitmap

调用的DLL命令:

.DLL命令 DialogBoxParam, 整数型, , "DialogBoxParamA"
    .参数 hInstance, 整数型
    .参数 lpName, 整数型
    .参数 hWndParent, 整数型
    .参数 lpDialogFunc, 子程序指针
    .参数 dwInitParam, 整数型

.DLL命令 EndDialog, 整数型, , "EndDialog"
    .参数 hwnd, 整数型
    .参数 nResult, 整数型

.DLL命令 GetModuleHandle, 整数型, "kernel32.dll", "GetModuleHandleA", 公开, 获取一个应用程序或动态链接库的模块句柄　如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 整数型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;  

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

.DLL命令 LoadIcon, 整数型, "user32.dll", "LoadIconA", 公开, 从指定的模块或应用程序实例中载入一个图标。其中，LoadIconBynum是LoadIcon函数的类型security声明　执行成功则返回已载入的图标的句柄；零表示失败。会设置GetLastError
    .参数 实例句柄, 整数型
    .参数 图标标识, 整数型

.DLL命令 InitCommonControls, , "comctl32.dll", "InitCommonControls"

.DLL命令 AnimateWindow, 逻辑型, "user32.dll", "AnimateWindow"
    .参数 hWnd, 整数型
    .参数 dwTime, 整数型
    .参数 dwFlags, 整数型

.DLL命令 GetDlgItem, 整数型, "user32.dll", "GetDlgItem"
    .参数 hDlg, 整数型
    .参数 nIDDlgItem, 整数型

.DLL命令 取指针_字节型, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 字节型, 传址
    .参数 欲取其指针, 字节型, 传址
    .参数 保留, 整数型

.DLL命令 RtlMoveMemory_文本, 整数型, "kernel32", "RtlMoveMemory", , 　
    .参数 pDest, 整数型
    .参数 pSrc, 文本型
    .参数 ByteLen, 整数型

.DLL命令 BitBlt, 整数型, "gdi32.dll", "BitBlt", , 将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容  非零表示成功，零表示失败。会设置GetLastError
    .参数 目标设备场景, 整数型, , 目标设备场景
    .参数 目标横坐标, 整数型, , 对目标DC中目标矩形左上角位置进行描述的那个点。用目标DC的逻辑坐标表示
    .参数 目标纵坐标, 整数型, , 同上
    .参数 传输图像宽度, 整数型, , 欲传输图象的宽度和高度
    .参数 传输图像高度, 整数型, , 同上
    .参数 源设备场景, 整数型, , 源设备场景。如光栅运算未指定源，则应设为0
    .参数 源横坐标, 整数型, , 对源DC中源矩形左上角位置进行描述的那个点。用源DC的逻辑坐标表示
    .参数 源纵坐标, 整数型, , 同上
    .参数 光栅运算方式, 整数型, , 传输过程要执行的光栅运算;

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

.DLL命令 CreateCompatibleDC, 整数型, "gdi32.dll", "CreateCompatibleDC", , 创建一个与特定设备场景一致的内存设备场景  新设备场景句柄，若出错则为零
    .参数 设备场景句柄, 整数型, , 设备场景句柄。新的设备场景将与它一致。也可能为0以创建一个与屏幕一致的设备场景;

.DLL命令 CreateFontIndirectA, 整数型, "gdi32.dll", "CreateFontIndirectA", , 用指定的属性创建一种逻辑字体  执行成功则返回逻辑字体句柄，零表示失败
    .参数 字体结构信息, LOGFONT, , LOGFONT，这个结构定义了逻辑字体请求的属性;

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放  非零表示成功，零表示失败
    .参数 对象句柄, 整数型, , 一个GDI对象的句柄;

.DLL命令 GetDC, 整数型, "user32.dll", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 GetStockObject, 整数型, "gdi32.dll", "GetStockObject", , 取得一个固有对象（Stock）。这是可由任何应用程序使用的windows标准对象之一  指向指定对象的一个句柄。零表示出错
    .参数 类型, 整数型, , 下述表格中定义的任何常数之一BLACK_BRUSH黑色刷子DKGRAY_BRUSH黑灰色刷子GRAY_BRUSH灰色刷子HOLLOW_BRUSH凹刷子LTGRAY_BRUSH浅灰色刷子NULL_BRUSH空刷子WHITE_BRUSH白色刷子BLACK_PEN黑色画笔NULL_PEN空画笔WHITE_PEN白色画笔ANSI_FIXED_FONT采用windows（ANSI）字符集的等宽字体ANSI_VAR_FONT采用windows（ANSI）字符集的不等宽字体DEVICE_DEFAULT_FONT设备使用的默认字体（NT）DEFAULT_GUI_FONT用户界面的默认字体，包括菜单和对话框字体（Windows 95）OEM_FIXED_FONTOEM字符集的固有字体SYSTEM_FONT屏幕系统字体。这是用于菜单、对话框等等的默认不等宽字体SYSTEM_FIXED_FONT屏幕系统字体。这是用于菜单、对话框等等的默认等宽字体（在windows 3.0之前使用）DEFAULT_PALETTE默认调色板;

.DLL命令 InvalidateRect, 整数型, "user32.dll", "InvalidateRect", , 这个函数屏蔽一个窗口客户区的全部或部分区域。这会导致窗口在事件期间部分重画  非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , 待屏蔽窗口的句柄
    .参数 屏蔽矩形, RECT, , RECT，用于描述待屏蔽矩形部分的一个矩形结构。可用InvalidateRectBynum函数，同时将lpRect设为零（Long数据类型），从而屏蔽（或禁用）整个窗口
    .参数 重画前删除, 整数型, , TRUE（非零）导致指定的区域在重画前先删除;

.DLL命令 PostMessage, 整数型, "user32.dll", "PostMessageA", , 将一条消息投递到指定窗口的消息队列。投递的消息会在Windows事件处理过程中得到处理。在那个时候，会随同投递的消息调用指定窗口的窗口函数。特别适合那些不需要立即处理的窗口消息的发送  如消息投递成功，则返回TRUE（非零）。会设置GetLastError
    .参数 hwnd, 整数型, , 接收消息的那个窗口的句柄。如设为HWND_BROADCAST，表示投递给系统中的所有顶级窗口。如设为零，表示投递一条线程消息（参考PostThreadMessage）
    .参数 wMsg, 整数型, , 消息标识符
    .参数 wParam, 整数型, , 具体由消息决定
    .参数 lParam, 整数型, , 具体由消息决定;

.DLL命令 ReleaseDC, 整数型, "user32.dll", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）  执行成功为1，否则为0
    .参数 窗口句柄, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , 要释放的设备场景句柄;

.DLL命令 SetBkColor, 整数型, "gdi32", "SetBkColor", , 为指定的设备场景设置背景颜色。背景颜色用于填充阴影刷子、虚线画笔以及字符（如背景模式为OPAQUE）中的空隙。也在位图颜色转换期间使用。参考SetBkMode  前一个背景色，CLR_INVALID表示出错
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 crColor, 整数型, , 新背景颜色的RGB颜色值;

.DLL命令 playxm, 逻辑型, "play-xm.dll", "playxm", , 播放（字节集）
    .参数 a, 字节集
    .参数 len, 整数型

.DLL命令 RtlZeroMemory_LOGFONT, 整数型, "kernel32.dll", "RtlZeroMemory"
    .参数 Destination, LOGFONT
    .参数 Length, 整数型

.DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject", , 每个设备场景都可能有选入其中的图形对象。其中包括位图、刷子、字体、画笔以及区域等等。一次选入设备场景的只能有一个对象。选定的对象会在设备场景的绘图操作中使用。例如，当前选定的画笔决定了在设备场景中描绘的线段颜色及样式  与以前选入设备场景的相同hObject类型的一个对象的句柄，零表示出错。如选定的对象是一个区域（Region），结果就是下列常数之一：SIMPLEREGION， ;    COMPLEXREGION 或 NULLREGION 对区域进行描述， GDI_ERROR 表示出错
    .参数 设备场景句柄, 整数型, , 一个设备场景的句柄
    .参数 对象句柄, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄;

.DLL命令 SetBkMode, 整数型, "gdi32.dll", "SetBkMode", , 指定阴影刷子、虚线画笔以及字符中的空隙的填充方式  前一个背景模式的值
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 nBkMode, 整数型, , 下述常数之一：;OPAQUE：用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙;TRANSPARENT：透明处理，即不作上述填充;

.DLL命令 SetDlgItemText, 整数型, "user32.dll", "SetDlgItemTextA", , 设置对话框标题或项目
    .参数 hDlg, 整数型
    .参数 nIDDlgItem, 整数型
    .参数 lpString, 文本型

.DLL命令 SetFocus, 整数型, "user32.dll", "SetFocus", , 设置键盘焦点  前一个拥有焦点的窗口的句柄
    .参数 hwnd, 整数型, , 准备接收焦点的窗口的句柄

.DLL命令 SetTextColor, 整数型, "gdi32.dll", "SetTextColor", , 设置当前文本颜色。这种颜色也称为“前景色”  文本色的前一个RGB颜色设定。CLR_INVALID表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , 设备场景的句柄
    .参数 颜色, 整数型, , 新的文本色在VB里使用如改变了这个设置，注意恢复VB窗体或控件原始的文本颜色;

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

.DLL命令 SetWindowText, 整数型, "user32.dll", "SetWindowTextA", , 设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）  非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 要设置文字的窗口的句柄
    .参数 窗口标题, 文本型, , 要设到hwnd窗口中的文字;

.DLL命令 TextOut, 整数型, "gdi32.dll", "TextOutA", , 文本绘图函数。也请参考SetTextAlign  非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 x, 整数型, , 绘图的起点，采用逻辑坐标
    .参数 y, 整数型, , 同上
    .参数 lpString, 文本型, , 欲描绘的字串
    .参数 nCount, 整数型, , 字串中要描绘的字符数量;

.DLL命令 UpdateWindow, 整数型, "user32.dll", "UpdateWindow", , 强制立即更新窗口，窗口中以前屏蔽的所有区域都会重画（在vb里使用：如vb窗体或控件的任何部分需要更新，可考虑直接使用refresh方法  非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 欲更新窗口的句柄;

.DLL命令 GetWindowRect, 逻辑型, "user32.dll", "GetWindowRect"
    .参数 hWnd, 整数型
    .参数 Rect, RECT

.DLL命令 GetCursorPos, 整数型, "user32.dll", "GetCursorPos", , 获取鼠标指针的当前位置  非零表示成功，零表示失败。会设置GetLastError
    .参数 位置, POINTAPI, , POINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构;

.DLL命令 InvalidateRect_null, 整数型, "user32.dll", "InvalidateRect", , 这个函数屏蔽一个窗口客户区的全部或部分区域。这会导致窗口在事件期间部分重画  非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , 待屏蔽窗口的句柄
    .参数 屏蔽矩形, 整数型, , RECT，用于描述待屏蔽矩形部分的一个矩形结构。可用InvalidateRectBynum函数，同时将lpRect设为零（Long数据类型），从而屏蔽（或禁用）整个窗口
    .参数 重画前删除, 整数型, , TRUE（非零）导致指定的区域在重画前先删除;

.DLL命令 RtlMoveMemory_DRAWITEMSTRUCT, 整数型, "kernel32", "RtlMoveMemory", , 　
    .参数 pDest, DRAWITEMSTRUCT
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 DeleteDC, 整数型, "gdi32.dll", "DeleteDC", , 删除专用设备场景或信息场景，释放所有相关窗口资源。不要将它用于GetDC函数取回的设备场景  执行成功则为非零，失败则为零
    .参数 设备场景句柄, 整数型, , 将要删除的设备场景  在vb里使用不要将它用于由vb hdc属性获取的设备场景句柄;

.DLL命令 LoadBitmap, 整数型, "user32.dll", "LoadBitmapA"
    .参数 hInstance, 整数型
    .参数 pBitmapName, 整数型