易语言屏幕写字源码

系统结构:屏幕写字,GetDesktopWindow,TextOutA,GetDC,ReleaseDC,GetWindowDC,SetTextCharacterExtra,SetTextColor,SetBkMode,FindWindowExA,InvalidateRect,SelectObject,CreateFontIndirectA,

======窗口程序集1
           |  |
           |  |------ 屏幕写字
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDesktopWindow
           |  |
           |  |---[dll]------   TextOutA
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   SetTextCharacterExtra
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   InvalidateRect
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   CreateFontIndirectA

调用的DLL命令:

.DLL命令 GetDesktopWindow, 整数型, "user32", "GetDesktopWindow"

.DLL命令 TextOutA, 整数型, "gdi32.dll", "TextOutA"
    .参数 设备场景, 整数型
    .参数 横, 整数型
    .参数 纵, 整数型
    .参数 内容, 文本型
    .参数 内容数量, 整数型

.DLL命令 GetDC, 整数型, "user32", "GetDC"
    .参数 窗口的句柄, 整数型

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , ReleaseDC
    .参数 窗口句柄, 整数型
    .参数 设备场景, 整数型

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

.DLL命令 SetTextCharacterExtra, 整数型, "gdi32", "SetTextCharacterExtra"
    .参数 设备场景, 整数型
    .参数 间距, 整数型

.DLL命令 SetTextColor, 整数型, "gdi32", "SetTextColor"
    .参数 设备场景, 整数型
    .参数 颜色, 整数型

.DLL命令 SetBkMode, 整数型, "gdi32", "SetBkMode"
    .参数 hdc, 整数型
    .参数 nBkMode, 整数型

.DLL命令 FindWindowExA, 整数型, "user32", "FindWindowExA"
    .参数 窗口句柄1, 整数型
    .参数 窗口句柄2, 整数型
    .参数 欲搜索的类名1, 文本型
    .参数 欲搜索的类名2, 文本型

.DLL命令 InvalidateRect, 整数型, "user32", "InvalidateRect"
    .参数 窗口句柄, 整数型
    .参数 屏蔽矩形, 整数型
    .参数 重画前删除, 整数型

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject"
    .参数 设备场景句柄, 整数型
    .参数 对象句柄, 整数型, ,  

.DLL命令 CreateFontIndirectA, 整数型, "gdi32", "CreateFontIndirectA"
    .参数 字体结构信息, LOGFONT