批处理如何调用capi绘图？

无名小卒 · 发表于 2015-6-4 13:59:35

希望可以清楚上一次绘图的图片，

@echo off
CAPI
mode con: cols=40 lines=20
set CAPI=API Call user32 LoadImageW ;0 $6.ico ;1 ;0 ;0 ;16
set hIcont=%CAPI_Ret%
set CAPI=API Call kernel32 GetConsoleWindow
set hCMD=%CAPI_Ret%
set CAPI=API Call user32 GetDC ;%hCMD%
set hDC=%CAPI_Ret%
set CAPI=API Call gdi32 CreateCompatibleDC ;%hDC%
set hDCMem=%CAPI_Ret%
set CAPI=API Call gdi32 CreateCompatibleBitmap ;%hDC% ;500 ;352
set hBMPMem=%CAPI_Ret%
set CAPI=API Call gdi32 SelectObject ;%hDCMem% ;%hBMPMem%
set x=0
set y=0
set m=320
set CAPI=API Call gdi32 Rectangle ;%hDCMem% ;0 ;0 ;320 ;342
:loop
set CAPI=API Call gdi32 Rectangle ;%hDCMem% ;0 ;0 ;64 ;%y%
set CAPI=API Call user32 DrawIconEx ;%hDCMem% ;%x% ;%y% ;%hIcont% ;64 ;32 ;0 ;0 ;3
set CAPI=API Call gdi32 BitBlt ;%hDC% ;0 ;0 ;320 ;342 ;%hDCMem% ;0 ;0 ;13369376
CAPI Call kernel32 Sleep #3
set /a y+=4
if "%y%" == "%m%" (
set /a m=%m%-32
set x=0
set y=0
)
goto loop

复制代码

可是但我改变 Rectangle 想清除上一个方块时修改成

set CAPI=API Call gdi32 Rectangle ;%hDCMem% ;%x% ;%y% ;64 ;32
却不是我我要的结果，我希望可以清除像开始那样，清除上一次的图片，表达不好，见谅，有大神有办法吗？

a20150604 · 发表于 2015-6-4 16:20:44

CAPI 是什么, 楼主怎么不给别人一个下载地址

无名小卒 · 发表于 2015-6-4 17:34:30

回复 2# a20150604

一个第三方，论坛搜索就可以找到了，我就不找下载地址了😝

bailong360 · 发表于 2015-6-4 18:43:56

清除上一次绘制的图片?
再创建一个画布用于备份吧

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[特效代码] 批处理如何调用capi绘图？