易语言GDI窗口特效源码

系统结构:图像_窗口快照,图像_快照,图像_图片句柄取图片,图像_取屏幕宽度,图像_取屏幕高度,字节集_取空白,GetDeviceCaps,DeleteDC,GetDC,CreateCompatibleBitmap,SelectObject,BitBlt,CreateCompatibleDC,DeleteObject,CopyImage,ReleaseDC,GetWindowRect,IsWindow,CopyMemory_BITMAPFILEHEADER,CopyMemory_BITMAPINFO,GetDIBits,GetObject,GetDIBits_BimapInfo,PrintWindow,CreateDC,RtlMoveMemory,lstrcpyn,GlobalAlloc,GlobalLock,CopyMemory,GlobalUnlock,CreateStreamOnHGlobal,CLSIDFromString,OleLoadPicture,GlobalFree,CallWindowProc,OpenClipboard,GetClipboardData,CloseClipboard,EmptyClipboard,SetClipboardData,RtlMoveMemory_整数,文本_取长度,MultiByteToWideChar,GetObjectPtr,GdipCreateBitmapFromStream,GdipSaveImageToStream_int,GetHGlobalFromStream_int,GlobalSize,CopyMemory2,GdipDisposeImage,GdiplusStartup,GdiplusShutdown,

======窗口程序集1
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 图像_窗口快照
           |  |
           |  |------ 图像_快照
           |  |
           |  |------ 图像_图片句柄取图片
           |  |
           |  |------ 图像_取屏幕宽度
           |  |
           |  |------ 图像_取屏幕高度
           |  |
           |  |------ 字节集_取空白
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDeviceCaps
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   CopyImage
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   CopyMemory_BITMAPFILEHEADER
           |  |
           |  |---[dll]------   CopyMemory_BITMAPINFO
           |  |
           |  |---[dll]------   GetDIBits
           |  |
           |  |---[dll]------   GetObject
           |  |
           |  |---[dll]------   GetDIBits_BimapInfo
           |  |
           |  |---[dll]------   PrintWindow
           |  |
           |  |---[dll]------   CreateDC
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   OleLoadPicture
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   _P_INT32
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   OpenClipboard
           |  |
           |  |---[dll]------   GetClipboardData
           |  |
           |  |---[dll]------   CloseClipboard
           |  |
           |  |---[dll]------   EmptyClipboard
           |  |
           |  |---[dll]------   SetClipboardData
           |  |
           |  |---[dll]------   RtlMoveMemory_整数
           |  |
           |  |---[dll]------   文本_取长度
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   GetObjectPtr
           |  |
           |  |---[dll]------   GdipCreateBitmapFromStream
           |  |
           |  |---[dll]------   GdipSaveImageToStream_int
           |  |
           |  |---[dll]------   GetHGlobalFromStream_int
           |  |
           |  |---[dll]------   GlobalSize
           |  |
           |  |---[dll]------   CopyMemory2
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   GdiplusShutdown

  

调用的DLL命令:

.DLL命令 GetDeviceCaps, 整数型, "gdi32", "GetDeviceCaps"
    .参数 设备描述句柄, 整数型
    .参数 nIndex, 整数型

.DLL命令 DeleteDC, 整数型, "gdi32", "DeleteDC"
    .参数 设备描述句柄, 整数型

.DLL命令 GetDC, 整数型, , "GetDC"
    .参数 hwnd, 整数型

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

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

.DLL命令 BitBlt, 整数型, , "BitBlt"
    .参数 hdcDest, 整数型
    .参数 nXDest, 整数型
    .参数 nYDest, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hdcSrc, 整数型
    .参数 nXSrc, 整数型
    .参数 nYSrc, 整数型
    .参数 dwRop, 整数型

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

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

.DLL命令 CopyImage, 整数型
    .参数 hImage, 整数型
    .参数 uType, 整数型
    .参数 cxDesired, 整数型
    .参数 cyDesired, 整数型
    .参数 fuFlags, 整数型

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

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect"
    .参数 句柄, 整数型
    .参数 lpRect, 矩形区域, 传址

.DLL命令 IsWindow, 逻辑型, "user32", "IsWindow"
    .参数 句柄, 整数型

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

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

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

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

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

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

.DLL命令 CreateDC, 整数型, "gdi32", "CreateDCA"
    .参数 lpDriverName, 文本型
    .参数 lpDeviceName, 整数型
    .参数 lpOutput, 整数型
    .参数 lpInitData, 整数型

.DLL命令 RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

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

.DLL命令 GlobalAlloc, 整数型, "kernel32"
    .参数 uFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalLock, 整数型, "kernel32"
    .参数 hMem, 整数型

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

.DLL命令 GlobalUnlock, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "ole32"
    .参数 hGlobal, 整数型
    .参数 fDeleteOnRelease, 整数型
    .参数 ppstm, 整数型, 传址

.DLL命令 CLSIDFromString, 整数型, "ole32"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

.DLL命令 OleLoadPicture, 整数型, "olepro32"
    .参数 pStream, 整数型
    .参数 lSize, 整数型
    .参数 fRunmode, 整数型
    .参数 riid, 字节集, 传址
    .参数 ppvObj, 整数型, 传址

.DLL命令 GlobalFree, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 _P_INT32, 整数型, , "lstrcatA"
    .参数 lpString1, 整数型, 传址
    .参数 lpString2, 整数型, 传址

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 动态调用代码, 字节集
    .参数 子程序, 整数型
    .参数 参数, 整数型, 数组
    .参数 参数数目, 整数型
    .参数 是否C调用, 逻辑型

.DLL命令 OpenClipboard, 整数型, "user32", "OpenClipboard"
    .参数 句柄, 整数型

.DLL命令 GetClipboardData, 整数型, "user32", "GetClipboardData"
    .参数 wFormat, 整数型

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

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

.DLL命令 SetClipboardData, 整数型, , "SetClipboardData"
    .参数 uFormat, 整数型
    .参数 hMem, 整数型

.DLL命令 RtlMoveMemory_整数, 整数型, , "RtlMoveMemory"
    .参数 lpvDest, 整数型, 传址
    .参数 lpvSource, 整数型
    .参数 cbCopy, 整数型

.DLL命令 文本_取长度, 整数型, "kernel32", "lstrlenA"
    .参数 lpString, 文本型

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

.DLL命令 GetObjectPtr, 整数型, , "lstrcpyn"
    .参数 lpString1, 整数型, 传址
    .参数 lpString2, 整数型, 传址
    .参数 iMaxLength, 整数型

.DLL命令 GdipCreateBitmapFromStream, 整数型, "gdiplus.dll", "GdipCreateBitmapFromStream"
    .参数 stream, 整数型
    .参数 bitmap, 整数型, 传址

.DLL命令 GdipSaveImageToStream_int, 整数型, "gdiplus.dll", "GdipSaveImageToStream"
    .参数 image, 整数型
    .参数 stream, 整数型
    .参数 clsidEncoder, 字节集
    .参数 encoderParams, 整数型

.DLL命令 GetHGlobalFromStream_int, , "ole32.dll", "GetHGlobalFromStream"
    .参数 pstm, 整数型
    .参数 phglobal, 整数型, 传址

.DLL命令 GlobalSize, 整数型
    .参数 hMem, 整数型

.DLL命令 CopyMemory2, , , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, 整数型
    .参数 cbCopy, 整数型

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

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

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