易语言3D黑客帝国屏保源码

系统结构:NewWindowProc,建立OPenGL组件,撤消OPenGL组件,InitGL,InitMap,InitPoint,InitFont,DrawGLScene,ShowTip,ShowTime,尺寸被改变,DrawMap,DrawFps,创建混合字体列表,TextOut,TextOutEx,画线段子程序,CreateFontTexture,画三角形子程序,画矩形子程序,画立体文本子程序,画出位图子程序,画复制位图子程序,载入图片纹理图案子程序,绑定纹理图片,GetTimeText,零位补全,生成纹理,绑定压缩纹理,提示错误,图片格式转换,A2W,GetEncoderClsid,W2A,glColor4ub,选择目标,创建字体,删除目标,Sleep,CallWindowProc,SetWindowLongA,SetWindowLong,glBlendColor,glColor4bv,GdiplusStartup,MultiByteToWideChar,GdipLoadImageFromFile,GdiplusShutdown,GdipSaveImageToFile,GdipDisposeImage,GdipGetImageEncodersSize,GdipGetImageEncoders,WideCharToMultiByte,GetWindowLong,SetWindowPos,

======窗口程序集1
           |  |
           |  |------ _主窗口_创建完毕
           |  |
           |  |------ _主窗口_尺寸被改变
           |  |
           |  |------ _主窗口_将被销毁
           |  |
           |  |------ NewWindowProc
           |  |
           |  |------ _主窗口_首次激活
           |  |
           |  |------ _主窗口_鼠标左键被放开
           |  |
           |  |------ _主窗口_鼠标右键被放开
           |  |
           |  |------ _主窗口_放开某键
           |  |
           |  |
======框架程序集
           |  |
           |  |------ 建立OPenGL组件
           |  |
           |  |------ 撤消OPenGL组件
           |  |
           |  |------ InitGL
           |  |
           |  |------ InitMap
           |  |
           |  |------ InitPoint
           |  |
           |  |------ InitFont
           |  |
           |  |------ DrawGLScene
           |  |
           |  |------ ShowTip
           |  |
           |  |------ ShowTime
           |  |
           |  |------ 尺寸被改变
           |  |
           |  |------ DrawMap
           |  |
           |  |------ DrawFps
           |  |
           |  |------ 创建混合字体列表
           |  |
           |  |
======程序集1
           |  |
           |  |------ TextOut
           |  |
           |  |------ TextOutEx
           |  |
           |  |------ 画线段子程序
           |  |
           |  |------ CreateFontTexture
           |  |
           |  |------ 画三角形子程序
           |  |
           |  |------ 画矩形子程序
           |  |
           |  |------ 画立体文本子程序
           |  |
           |  |------ 画出位图子程序
           |  |
           |  |------ 画复制位图子程序
           |  |
           |  |------ 载入图片纹理图案子程序
           |  |
           |  |------ 绑定纹理图片
           |  |
           |  |------ GetTimeText
           |  |
           |  |------ 零位补全
           |  |
           |  |------ 生成纹理
           |  |
           |  |------ 绑定压缩纹理
           |  |
           |  |------ 提示错误
           |  |
           |  |------ 图片格式转换
           |  |
           |  |------ A2W
           |  |
           |  |------ GetEncoderClsid
           |  |
           |  |------ W2A
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |
======_启动程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _窗口2_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   glColor4ub
           |  |
           |  |---[dll]------   选择目标
           |  |
           |  |---[dll]------   创建字体
           |  |
           |  |---[dll]------   删除目标
           |  |
           |  |---[dll]------   Sleep
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   glBlendColor
           |  |
           |  |---[dll]------   glColor4bv
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   GdipLoadImageFromFile
           |  |
           |  |---[dll]------   GdiplusShutdown
           |  |
           |  |---[dll]------   GdipSaveImageToFile
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   GdipGetImageEncodersSize
           |  |
           |  |---[dll]------   GdipGetImageEncoders
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetWindowPos

调用的DLL命令:

.DLL命令 glColor4ub, , "opengl32.dll", "glColor4ub", 公开, void APIENTRY glColor4ub( GLubyte red, GLubyte green, GLubyte blue, GLubyte alpha )
    .参数 red, 字节型
    .参数 green, 字节型
    .参数 blue, 字节型
    .参数 alpha, 字节型

.DLL命令 选择目标, 整数型, , "SelectObject"
    .参数 设备句柄
    .参数 目标号

.DLL命令 创建字体, 整数型, , "CreateFontA"
    .参数 高度
    .参数 宽度
    .参数 倾斜角度
    .参数 后仰角度
    .参数 重量
    .参数 斜体
    .参数 下划线
    .参数 StrikeOut字体
    .参数 字符集
    .参数 输出精度
    .参数 裁剪精度
    .参数 输出质量
    .参数 定位
    .参数 字体名称, 文本型, , 可以为空文本

.DLL命令 删除目标, 逻辑型, , "DeleteObject"
    .参数 目标号

.DLL命令 Sleep, , "kernel32"
    .参数 t

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

.DLL命令 SetWindowLongA, 子程序指针, "user32", "SetWindowLongA", 公开, 该函数改变指定窗口的属性．函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置
    .参数 hWnd, 整数型, , 窗口句柄及间接给出的窗口所属的类
    .参数 nIndex, 整数型, , 定将设定的大于等于0的偏移值。有效值的范围从0到额外类的存储空间的字节数-4：例如若指定了12位或多于12位的额外类存储空间，则应设为第三个32位整数的索引位8。要设置其他任何值，可以指定下面值之一，GWL_EXSTYLE：设定一个新的扩展风格，GWL_STYLE：设定一个新的窗口风格，GWL_WNDPROC：为窗口过程设定一个新的地址，GWL_ID：设置一个新的窗口标识符，GWL_HINSTANCE：设置一个新的应用程序实例句柄，GWL_USERDATA：设置与窗口有关的32位值。每个窗口均有一个由创建该窗口的应用程序使用的32位值，当hWnd参数标识了一个对话框时，也可使用下列值，DWL_DLGPROC：设置对话框过程的新地址，DWL_MSGRESULT：设置在对话框过程中处理的消息的返回值，DWL_USER：设置的应用程序私有的新的额外信息，例如一个句柄或指针
    .参数 dwNewLong, 子程序指针, , 指定的替换值

.DLL命令 SetWindowLong, 子程序指针, "user32", "SetWindowLongA", 公开, 该函数改变指定窗口的属性．函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置
    .参数 hWnd, 整数型, , 窗口句柄及间接给出的窗口所属的类
    .参数 nIndex, 整数型, , 定将设定的大于等于0的偏移值。有效值的范围从0到额外类的存储空间的字节数-4：例如若指定了12位或多于12位的额外类存储空间，则应设为第三个32位整数的索引位8。要设置其他任何值，可以指定下面值之一，GWL_EXSTYLE：设定一个新的扩展风格，GWL_STYLE：设定一个新的窗口风格，GWL_WNDPROC：为窗口过程设定一个新的地址，GWL_ID：设置一个新的窗口标识符，GWL_HINSTANCE：设置一个新的应用程序实例句柄，GWL_USERDATA：设置与窗口有关的32位值。每个窗口均有一个由创建该窗口的应用程序使用的32位值，当hWnd参数标识了一个对话框时，也可使用下列值，DWL_DLGPROC：设置对话框过程的新地址，DWL_MSGRESULT：设置在对话框过程中处理的消息的返回值，DWL_USER：设置的应用程序私有的新的额外信息，例如一个句柄或指针
    .参数 dwNewLong, 长整数型, , 指定的替换值

.DLL命令 glBlendColor, , "opengl32.dll", "glBlendColor", 公开, void APIENTRY glBlendColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha )
    .参数 red, 小数型
    .参数 green, 小数型
    .参数 blue, 小数型
    .参数 alpha, 小数型

.DLL命令 glColor4bv, , "opengl32.dll", "glColor4bv", 公开, void APIENTRY glColor4bv( const GLbyte *v )
    .参数 GLbyte, 字节型, 数组

.DLL命令 GdiplusStartup, 整数型, "gdiplus.dll", "GdiplusStartup"
    .参数 token, 整数型, 传址
    .参数 inputbuf, GdiplusStartupInput
    .参数 outputbuf, 整数型

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

.DLL命令 GdipLoadImageFromFile, 整数型, "GdiPlus.dll", "GdipLoadImageFromFile"
    .参数 filename, 字节集
    .参数 image, 整数型, 传址

.DLL命令 GdiplusShutdown, , "gdiplus.dll", "GdiplusShutdown"
    .参数 token, 整数型

.DLL命令 GdipSaveImageToFile, 整数型, "GdiPlus.dll", "GdipSaveImageToFile"
    .参数 image, 整数型
    .参数 filename, 字节集
    .参数 clsidEncoder, 字节集
    .参数 encoderParams, 整数型

.DLL命令 GdipDisposeImage, 整数型, "gdiplus.dll", "GdipDisposeImage"
    .参数 image, 整数型

.DLL命令 GdipGetImageEncodersSize, 整数型, "GdiPlus.dll", "GdipGetImageEncodersSize"
    .参数 numEncoders, 整数型, 传址
    .参数 size, 整数型, 传址

.DLL命令 GdipGetImageEncoders, 整数型, "GdiPlus.dll", "GdipGetImageEncoders"
    .参数 numEncoders, 整数型
    .参数 size, 整数型
    .参数 encoders, 字节集

.DLL命令 WideCharToMultiByte, 整数型, "kernel32", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 整数型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

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

.DLL命令 SetWindowPos, 整数型, "user32.dll", "SetWindowPos", , Long，非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , Long，欲定位的窗口
    .参数 定位类型, 整数型, , Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。HWND_BOTTOM将窗口置于窗口列表底部HWND_TOP将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序HWND_TOPMOST将窗口置于列表顶部，并位于任何最顶部窗口的前面HWND_NOTOPMOST将窗口置于列表顶部，并位于任何最顶部窗口的后面
    .参数 窗口新横坐标, 整数型, , Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
    .参数 窗口新纵坐标, 整数型, , Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
    .参数 窗口新宽度, 整数型, , Long，指定新的窗口宽度
    .参数 窗口新高度, 整数型, , Long，指定新的窗口高度
    .参数 显示方式, 整数型, , Long，包含了旗标的一个整数SWP_DRAWFRAME围绕窗口画一个框SWP_HIDEWINDOW隐藏窗口等等