易语言截取窗口位图模块源码

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

======程序集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, 整数型