易语言仿VISTA截图源码

系统结构:MakeARGB,SplitARGB,仿vista截图,初始化,NewProc,创建画点,置画点颜色,LineDDAProc,Finish,GdiplusStartup,GetDC,ReleaseDC,GdipLoadImageFromStream,GdiplusShutdown,GlobalAlloc,GetObjectPtr,CreateStreamOnHGlobal,GlobalLock,GlobalUnlock,GlobalFree,GdipDisposeImage,GdipCreateFromHDC,GdipDeleteGraphics,GdipDrawImageI,SetCapture,ReleaseCapture,GetCapture,LineDDA,CreateCompatibleDC,CreateDIBSection,SelectObject,BitBlt,DeleteDC,SetWindowLongA,BeginPaint,EndPaint,CallWindowProcA,DeleteObject,GdipBitmapGetPixel,GdipBitmapSetPixel,GdipGetImageWidth,GdipGetImageHeight,CreatePolygonRgn,GdipDeleteBrush,GetRgnBox,CreatePatternBrush,CreateCompatibleBitmap,FillRect,GetStockObject,FillRgn,CopyImage,OpenClipboard,EmptyClipboard,GetClipboardData,CloseClipboard,SetClipboardData,DrawIcon,GetCursorInfo,GetIconInfo,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ MakeARGB
           |  |
           |  |------ SplitARGB
           |  |
           |  |------ 仿vista截图
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 初始化
           |  |
           |  |------ NewProc
           |  |
           |  |------ 创建画点
           |  |
           |  |------ 置画点颜色
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _窗口1_鼠标左键被按下
           |  |
           |  |------ _窗口1_鼠标左键被放开
           |  |
           |  |------ _窗口1_鼠标位置被移动
           |  |
           |  |------ LineDDAProc
           |  |
           |  |------ Finish
           |  |
           |  |------ _窗口1_鼠标右键被放开
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   GdipLoadImageFromStream
           |  |
           |  |---[dll]------   GdiplusShutdown
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GetObjectPtr
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   GdipCreateFromHDC
           |  |
           |  |---[dll]------   GdipDeleteGraphics
           |  |
           |  |---[dll]------   GdipDrawImageI
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   GetCapture
           |  |
           |  |---[dll]------   LineDDA
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateDIBSection
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GdipBitmapGetPixel
           |  |
           |  |---[dll]------   GdipBitmapSetPixel
           |  |
           |  |---[dll]------   GdipGetImageWidth
           |  |
           |  |---[dll]------   GdipGetImageHeight
           |  |
           |  |---[dll]------   CreatePolygonRgn
           |  |
           |  |---[dll]------   GdipDeleteBrush
           |  |
           |  |---[dll]------   GetRgnBox
           |  |
           |  |---[dll]------   CreatePatternBrush
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   GetStockObject
           |  |
           |  |---[dll]------   FillRgn
           |  |
           |  |---[dll]------   CopyImage
           |  |
           |  |---[dll]------   OpenClipboard
           |  |
           |  |---[dll]------   EmptyClipboard
           |  |
           |  |---[dll]------   GetClipboardData
           |  |
           |  |---[dll]------   CloseClipboard
           |  |
           |  |---[dll]------   SetClipboardData
           |  |
           |  |---[dll]------   DrawIcon
           |  |
           |  |---[dll]------   GetCursorInfo
           |  |
           |  |---[dll]------   GetIconInfo

  

调用的DLL命令:

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

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

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

.DLL命令 GdipLoadImageFromStream, 整数型, "gdiplus.dll", "GdipLoadImageFromStream"
    .参数 stream, 整数型
    .参数 image, 整数型, 传址

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

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

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

.DLL命令 CreateStreamOnHGlobal, 整数型, "ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal
    .参数 fDeleteOnRelease, 逻辑型
    .参数 ppstm, 对象, 传址

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

.DLL命令 GlobalUnlock, 逻辑型
    .参数 hMem, 整数型

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

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

.DLL命令 GdipCreateFromHDC, 整数型, "gdiplus.dll", "GdipCreateFromHDC"
    .参数 hdc, 整数型
    .参数 graphics, 整数型, 传址

.DLL命令 GdipDeleteGraphics, 整数型, "gdiplus.dll", "GdipDeleteGraphics"
    .参数 graphics, 整数型

.DLL命令 GdipDrawImageI, 整数型, "gdiplus.dll", "GdipDrawImageI"
    .参数 graphics, 整数型
    .参数 image, 整数型
    .参数 x, 整数型
    .参数 y, 整数型

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

.DLL命令 ReleaseCapture, 逻辑型

.DLL命令 GetCapture, 整数型

.DLL命令 LineDDA, 逻辑型
    .参数 nXStart, 整数型
    .参数 nYStart, 整数型
    .参数 nXEnd, 整数型
    .参数 nYEnd, 整数型
    .参数 lpLineFunc, 整数型
    .参数 lpData, 整数型

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

.DLL命令 CreateDIBSection, 整数型, , "CreateDIBSection"
    .参数 hdc, 整数型
    .参数 pbmi, BITMAPINFO
    .参数 iUsage, 整数型
    .参数 ppvBits, 整数型
    .参数 hSection, 整数型
    .参数 dwOffset, 整数型

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

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

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

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA"
    .参数 hWnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 BeginPaint, 整数型
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 EndPaint, 逻辑型
    .参数 hWnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc
    .参数 hWnd
    .参数 Msg
    .参数 wParam
    .参数 lParam

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

.DLL命令 GdipBitmapGetPixel, , "gdiplus.dll", "GdipBitmapGetPixel"
    .参数 bitmap, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 color, 整数型, 传址

.DLL命令 GdipBitmapSetPixel, , "gdiplus.dll", "GdipBitmapSetPixel"
    .参数 bitmap, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 color, 整数型

.DLL命令 GdipGetImageWidth, 整数型, "gdiplus.dll", "GdipGetImageWidth"
    .参数 image, 整数型
    .参数 width, 整数型, 传址

.DLL命令 GdipGetImageHeight, 整数型, "gdiplus.dll", "GdipGetImageHeight"
    .参数 image, 整数型
    .参数 height, 整数型, 传址

.DLL命令 CreatePolygonRgn, 整数型, , "CreatePolygonRgn"
    .参数 lppt, POINT, 数组
    .参数 cPoints, 整数型
    .参数 fnPolyFillMode, 整数型

.DLL命令 GdipDeleteBrush, 整数型, "gdiplus.dll", "GdipDeleteBrush"
    .参数 brush, 整数型

.DLL命令 GetRgnBox, 整数型
    .参数 hrgn, 整数型
    .参数 lprc, RECT

.DLL命令 CreatePatternBrush, 整数型
    .参数 hbmp, 整数型

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

.DLL命令 FillRect, 整数型
    .参数 hDC, 整数型
    .参数 lprc, RECT
    .参数 hbr, 整数型

.DLL命令 GetStockObject, 整数型, , "GetStockObject"
    .参数 fnObject, 整数型

.DLL命令 FillRgn, 逻辑型
    .参数 hdc, 整数型
    .参数 hrgn, 整数型
    .参数 hbr, 整数型

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

.DLL命令 OpenClipboard, 逻辑型, , "OpenClipboard"
    .参数 hWndNewOwner

.DLL命令 EmptyClipboard, 逻辑型, , "EmptyClipboard"

.DLL命令 GetClipboardData, 整数型, , "GetClipboardData"
    .参数 uFormat

.DLL命令 CloseClipboard, 逻辑型, , "CloseClipboard"

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

.DLL命令 DrawIcon, 整数型, , "DrawIcon"
    .参数 hDC
    .参数 x
    .参数 y
    .参数 hIcon

.DLL命令 GetCursorInfo, 整数型, , "GetCursorInfo"
    .参数 pci, CURSORINFO

.DLL命令 GetIconInfo, 整数型, , "GetIconInfo"
    .参数 hIcon
    .参数 piconinfo, ICONINFO