易语言后台截图源码

系统结构:EnumWindowsProc,截取窗口位图,GetObjectA,CreateCompatibleDC,GetDIBits_BimapInfo,GetDIBits,CopyMemory_BITMAPINFO,CopyMemory_BITMAPFILEHEADER,DeleteDC,GetWindowRect,IsWindow,SelectObject,PrintWindow,CreateCompatibleBitmap,DeleteObject,GetDC,ReleaseDC,EnumWindows,IsWindowVisible,GetWindowTextLengthA,GetWindowTextA,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ EnumWindowsProc
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |
======程序集1
           |  |
           |  |------ 截取窗口位图
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetObjectA
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   GetDIBits_BimapInfo
           |  |
           |  |---[dll]------   GetDIBits
           |  |
           |  |---[dll]------   CopyMemory_BITMAPINFO
           |  |
           |  |---[dll]------   CopyMemory_BITMAPFILEHEADER
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   PrintWindow
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   EnumWindows
           |  |
           |  |---[dll]------   IsWindowVisible
           |  |
           |  |---[dll]------   GetWindowTextLengthA
           |  |
           |  |---[dll]------   GetWindowTextA

调用的DLL命令:

.DLL命令 GetObjectA, 整数型, , "GetObjectA"
    .参数 hgdiobj
    .参数 cbBuffer
    .参数 lpvObject, BITMAP

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 GetDIBits_BimapInfo, 整数型, , "GetDIBits"
    .参数 HDC
    .参数 hBitmap
    .参数 nStartScan
    .参数 nNumScans
    .参数 lpBits
    .参数 lpBI, BITMAPINFO
    .参数 wUsage

.DLL命令 GetDIBits, 整数型, , "GetDIBits"
    .参数 HDC
    .参数 hBitmap
    .参数 nStartScan
    .参数 nNumScans
    .参数 lpBits, 字节集
    .参数 lpBI, BITMAPINFO
    .参数 wUsage

.DLL命令 CopyMemory_BITMAPINFO, 整数型, , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, BITMAPINFO
    .参数 Length

.DLL命令 CopyMemory_BITMAPFILEHEADER, 整数型, , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, BITMAPFILEHEADER
    .参数 Length

.DLL命令 DeleteDC, 整数型, , "DeleteDC"
    .参数 hdc

.DLL命令 GetWindowRect, 逻辑型
    .参数 hWnd, 整数型
    .参数 lpRect, RECT

.DLL命令 IsWindow, 逻辑型
    .参数 hWnd, 整数型

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc
    .参数 hgdiobj

.DLL命令 PrintWindow, 逻辑型
    .参数 hwnd, 整数型
    .参数 hdcBlt, 整数型
    .参数 nFlags, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap"
    .参数 hdc
    .参数 nWidth
    .参数 nHeight

.DLL命令 DeleteObject, 逻辑型, , "DeleteObject"
    .参数 hObject, 整数型

.DLL命令 GetDC, 整数型
    .参数 hWnd, 整数型

.DLL命令 ReleaseDC, 整数型
    .参数 hWnd, 整数型
    .参数 hDC, 整数型

.DLL命令 EnumWindows, 逻辑型
    .参数 lpEnumFunc, 整数型
    .参数 lParam, 整数型

.DLL命令 IsWindowVisible, 逻辑型
    .参数 hWnd, 整数型

.DLL命令 GetWindowTextLengthA, 整数型
    .参数 hWnd, 整数型

.DLL命令 GetWindowTextA, 整数型
    .参数 hWnd, 整数型
    .参数 lpString, 文本型
    .参数 nMaxCount, 整数型