用 PECMD 实现截屏到桌面几个方案

静庵

ENVI path=%Desktop%
ENVI i=1
THREAD* WAIT 3900
THREAD* TEAM WAIT 3000| SEND #17_,#86_,#86^,#17^    //Ctrl-V
WAIT 200
SEND VK_SNAPSHOT    //#44
WAIT 100
SCRN -cap %path%\Snapshot_%i%.jpg, 1
上面这段代码，可以实现 pecmd 加载截屏到桌面（.ini或 .wcs文件），但只能实现截屏1个，不能连续截屏，
请高手大神修改添加代码，实现连续截屏，文件名依次加1，如截屏_1.jpg，截屏_2.jpg，截屏_3.jpg，......
坛中有代码，但只能在个别PE中可用，有些PE中不能用，比如利用 nircmd，snashop，以及Windows自带的
截图工具，有些PE中或缺少某个文件等，就不能运行。利用纯 pecmd 代码，应该可以避免文件缺失的问题，
PECMD.EXE，每个PE都有。
==================================================================
PE下实现截屏到桌面方案总结
------------------------------------
方案1：527104427 方案（ppll2030 也予提供），pecmd 代码，保存为 .ini 或 .wcs 格式，本人
    测试几个不同版本的10PE、11PE均可使用。
    命令结果：截取全屏 jpg 文件。每运行一次，都会保存在桌面，文件名顺次1，2，3 ....。

set dir=%desktop%
team~ set count=1~ loop #1=1, ifex %dir%\%count%.jpg, calc count=%count% + 1! exit
scrn -cap %dir%\%count%.jpg,1

http://bbs.c3.wuyou.net/forum.php?mod=viewthread&tid=446608
----------------------------------
方案2：本人在 pecmd 社区找到的原始 pecmd 代码，保存为 .ini 或 .wcs 格式，本人测试几个
    不同版本的10PE、11PE均可使用。本人做了简单修改。
    命令结果：截取全屏 jpg 文件，就一个文件保存在桌面，再次运行会覆盖前一次文件。

ENVI path=%Desktop%
ENVI i=1
THREAD* WAIT 3900
THREAD* TEAM WAIT 3000| SEND #17_,#86_,#86^,#17^    //Ctrl-V
WAIT 200
SEND VK_SNAPSHOT    //#44
WAIT 100
SCRN -cap %path%\截屏_%i%.jpg, 1
----------------------------------------------
方案3：苹果有毒提供的代码，批处理格式，本人测试几个不同版本的10PE、11PE均可使用。
    命令结果：截取全屏 jpg 文件，就一个文件保存在桌面，再次运行会覆盖前一次文件。
    也许是本人无知，该代码输出文件是一个黑框截图，不会用。

@echo off
setlocal enabledelayedexpansion
set "basePath=%Desktop%"
set "counter=1"
:checkFile
if exist "%basePath%\!counter!.jpg" (
    set /a counter+=1
    goto checkFile
)
set "finalPath=%basePath%\!counter!.jpg"
PECMD TEAM DATE *space %date%^|SCRN -cap "!finalPath!",0

输出结果：

-----------------------------------------------------------------------
方案4：baby1277提供的代码，pecmd 格式，本人测试只有 yigeren 11PE可使用。本人
    在论坛下载的其它几个PE未能通过。需要文件 nircmd.exe
    截取全屏 jpg 文件。每运行一次，都会保存在桌面，文件名顺次1，2，3 ....。

也分享下我的收藏，可以添加右键菜单。
---------------------------------------截图到桌面------------------------------------------------
for /f "eol=H tokens=2 delims=SZ" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Desktop') do cd /d %%i
for /l %%i in (1 1 9) do if not exist 截屏_%%i.bmp set tu=截屏_%%i.bmp&goto tu
:tu
nircmd cmdwait 500 savescreenshot  "~$folder.desktop$\%tu%"

该代码 jiavip 修改为：
-------------------------------------截图到桌面------------------------------------------------
for /f "eol=H tokens=2 delims=SZ" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Desktop') do cd /d %%i
set i=1
:tu
if exist 截屏_%i%.bmp set/a i+=1&goto tu
set tu=截屏_%i%.bmp
nircmd cmdwait 500 savescreenshot  "~$folder.desktop$\%tu%"

http://bbs.c3.wuyou.net/forum.php?mod=viewthread&tid=446608
---------------------------------------------------------------------
还有 martin313 老师提供的几个方案，本人小白不会用。
有兴趣的可以看看：http://bbs.c3.wuyou.net/forum.ph ... d&tid=449921&extra=--------------------------------------------------------------------------------------------------

2012qnmd 老师的界面版：原版代码


ENVI^  ForceLocal=1
LOGS * X.LOG
SET &fn=screen.png
SET &wid=0
CALL @WIN1
_SUB WIN1,W449H220,截图,
    LABE -VCENTER LABE1,L12T42W68H30,延时(秒):,,
    EDIT -VCENTER -3D Delay,L84T43W63H30,0,,
    SPIN SPIN1,L156T41W18H34,:0:100,,0x80,0x80
    ITEM ITEM1,L191T141W60H30,抓图, OnDo,
    LABE -VCENTER LABE2,L12T90W48H30,文件名,,
    EDIT -VCENTER -3D wFN,L70T90W335H30,%fn%,,
    ITEM ITEM2,L410T89W21H30,>>,OnBrow,
    LABE -VCENTER -RIGHT LABE3,L229T41W55H30,对象:,,
    EDIT -VCENTER -3D wWid,L291T41W90H30,%wid%,,
_END
_SUB OnBrow
    BROW &&fn,%wFN%,选择一个文件,PNG|*.PNG|BMP|*.BMP|JPG|*.JPG|GIF|*.GIF|TIFF|*.TIFF|所有|*.*
    FIND $%fn%=, EXIT
    ENVI @wFN=%fn%   
_END
_SUB OnDo
    SET &wid=%wWid%
    SET &fn=%wFN%
    FIND $%fn%=, EXIT
    ENVI @this.visable=0
    CALC &&ms=%Delay%
    CALC &ms=%&ms% * 1000#0
    IFEX $%ms%<0, SET ms=0
    CALC #&ms=%&ms% + 10
    WAIT %&ms%
    SCRN -cap %fn%,%wid%
    WAIT 10
    ENVI @this.visable=1
_END


运行后弹出界面：



修改了一下：

fnvi^  ForceLocal=1
set &capd=%DeskTop%
set &fn=截屏
set &wid=0
set &ext=jpg
call @win1
_sub win1,w315h166,截图工具,
    labe labe3,L20T26W60H20,保存类型:,,
    list lext,L80T21W100H20,png|bmp|jpg|gif|tiff,fnvi @wFN=%&capd%\%fn%.%lext%,%ext%
    labe -vcenter labe4,L20T50W90H30,保存位置及文件:,,
    edit -vcenter -3d wFN,L20T80W230H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    item Item2,L260T83W30H26,>>>,OnBrow,
    item Item1,L223T17W60H30,截图, OnDo,
_end
_sub OnBrow
    brow &&capdir,*%capd%,选择一个文件夹
    find $%capdir%=, exit
    team fnvi &capd=%capdir%|fnvi @wFN=%&capd%\%fn%.%ext%
_end
_sub OnDo
    set &afn=%wFN%
    find $%afn%=, exit
    fnvi @this.visable=0
    calc &&ms=1
    ifex $%ms%<0, set ms=0
    calc #&ms=%&ms% + 10
    wait %&ms%
    scrn -cap %afn%,%wid%
    wait 10
    fnvi @this.visable=1
_end


-----------------------------------------------------------

5大的方案非常完美：

//hotk F11, exec -incmd pecmd load "%CurFile%"*截屏
hotk F11, load "%CurFile%"*截屏
_sub 截屏
        set dir=%desktop%
        team~ set count=1~ loop #1=1, ifex %dir%\截屏_%count%.jpg, calc count=%count% + 1! exit
        scrn -cap %dir%\截屏_%count%.jpg
        mess 已截屏保存为：截屏_%count%.jpg @完成 #OK *2000
_end

lzsz03

还能这么用啊，为什么不直接用截图软件呢？可以找小一点的

静庵

527104427 发表于 2026-2-28 05:54
WAIT - -1   ?
这种奇怪的用法，肯定是不存在的。一看就知道是出自AI的手笔。

多谢5大

527104427

静庵 发表于 2026-2-27 21:11
深奥了。
   ENVI path=%Desktop%
   SCRN -cap %path%\截屏_%i%.jpg, 1

WAIT - -1   ?
这种奇怪的用法，肯定是不存在的。一看就知道是出自AI的手笔。

以下代码保存为wcs，运行一次，之后就能F11截屏了。
如果不行，只能说你的PECMD版本不行，换一个：https://wwi.lanzoui.com/b0wh8vjc
别说不行，我在正常的win10系统下都可以的。

//hotk F11, exec -incmd pecmd load "%CurFile%"*截屏
hotk F11, load "%CurFile%"*截屏
_sub 截屏
        set dir=%desktop%
        team~ set count=1~ loop #1=1, ifex %dir%\截屏_%count%.jpg, calc count=%count% + 1! exit
        scrn -cap %dir%\截屏_%count%.jpg
        mess 已截屏保存为：截屏_%count%.jpg @完成 #OK *2000
_end

静庵

2012qnmd 老师提供的几个方案都实用，创建一个界面。
而 截图键+mspaint.wcs
    WAIT 100
    SEND VK_SNAPSHOT  //#44
    WAIT 100
    EXEC --max mspaint.exe
    TEAM WAIT 3000 | SEND #17_,#86_,#86^,#17^  //Ctrl-V
这一段代码更实用，直接截屏到画图，编辑保存，只是全屏显示吓人了，去掉 --max，画图窗口
可以了，而打开的图像太大了，需要给它缩小再编辑。可不可以改一下？

5大老师的方案简洁明了，直接截屏保持在桌面，适合快速截屏。

多谢各位老师、大神

ppll2030

静庵 发表于 2026-2-27 21:11
深奥了。
   ENVI path=%Desktop%
   SCRN -cap %path%\截屏_%i%.jpg, 1

看一下帮助文件，HOTK 只能在配置文件里才有效。

静庵

2012qnmd 发表于 2026-2-27 21:25
截图键+mspaint.wcs
WAIT 100
SEND VK_SNAPSHOT  //#44

请教：这段代码可不可以改为打开画图的窗口不全屏，在画图中打开适应画图的窗口

静庵

2012qnmd 发表于 2026-2-27 21:27
截图-全屏.wcs
SCRN  -cap  fulllscreen.BMP,0

受教了，高手在潜水。

截图键+mspaint.wcs
WAIT 100
SEND VK_SNAPSHOT  //#44
WAIT 100
EXEC --max mspaint.exe
TEAM WAIT 3000 | SEND #17_,#86_,#86^,#17^  //Ctrl-V

  截全屏，复制到画图编辑，而后保存。

2012qnmd

截图抓图界面1.wcs

ENVI^  ForceLocal=1
LOGS * X.LOG
SET &capd=%DeskTop%
SET &fn=屏幕捕获
SET &wid=0
set &ext=PNG
CALL @WIN1

_SUB WIN1,W449H220,截图,
    LABE LABE1,L10T42W60H20,延时(秒):,,
    EDIT Delay,L72T40W40H20,0,,
    SPIN SPIN1,L114T39W18H22,:1:99,,0x80,0x80
    LABE LABE2,L170T42W40H20,对象:,,
    EDIT wWid,L212T40W30H20,%wid%,,
    LABE LABE3,L280T42W60H20,保存类型:,,
    LIST lEXT,L342T40W60H20,PNG|BMP|JPG|GIF|TIFF,ENVI @wFN=%&capd%\%fn%.%lEXT%,%ext%
    LABE -VCENTER LABE4,L10T90W90H30,保存位置及文件,,
    EDIT -VCENTER -3D wFN,L105T90W300H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    ITEM ITEM2,L410T89W21H30,>>,OnBrow,
    ITEM ITEM1,L191T141W60H30,抓图, OnDo,
_END

_SUB OnBrow
    BROW &&capdir,*%capd%,选择一个文件夹
    FIND $%capdir%=, EXIT
    TEAM ENVI &capd=%capdir%|ENVI @wFN=%&capd%\%fn%.%ext%
_END

_SUB OnDo
    SET &wid=%wWid%
    SET &afn=%wFN%
    FIND $%afn%=, EXIT
    ENVI @this.visable=0
    CALC &&ms=%Delay%
    CALC &ms=%&ms% * 1000#0
    IFEX $%ms%<0, SET ms=0
    CALC #&ms=%&ms% + 10
    WAIT %&ms%
    SCRN -cap %afn%,%wid%
    WAIT 10
    ENVI @this.visable=1
_END

2012qnmd

截图抓图界面.wcs

ENVI^  ForceLocal=1
LOGS * X.LOG
SET &fn=screen.png
SET &wid=0
CALL @WIN1

_SUB WIN1,W449H220,截图,
    LABE -VCENTER LABE1,L12T42W68H30,延时(秒):,,
    EDIT -VCENTER -3D Delay,L84T43W63H30,0,,
    SPIN SPIN1,L156T41W18H34,:0:100,,0x80,0x80
    ITEM ITEM1,L191T141W60H30,抓图, OnDo,
    LABE -VCENTER LABE2,L12T90W48H30,文件名,,
    EDIT -VCENTER -3D wFN,L70T90W335H30,%fn%,,
    ITEM ITEM2,L410T89W21H30,>>,OnBrow,
    LABE -VCENTER -RIGHT LABE3,L229T41W55H30,对象:,,
    EDIT -VCENTER -3D wWid,L291T41W90H30,%wid%,,
_END

_SUB OnBrow
    BROW &&fn,%wFN%,选择一个文件,PNG|*.PNG|BMP|*.BMP|JPG|*.JPG|GIF|*.GIF|TIFF|*.TIFF|所有|*.*
    FIND $%fn%=, EXIT
    ENVI @wFN=%fn%   
_END


_SUB OnDo
    SET &wid=%wWid%
    SET &fn=%wFN%
    FIND $%fn%=, EXIT
    ENVI @this.visable=0
    CALC &&ms=%Delay%
    CALC &ms=%&ms% * 1000#0
    IFEX $%ms%<0, SET ms=0
    CALC #&ms=%&ms% + 10
    WAIT %&ms%
    SCRN -cap %fn%,%wid%
    WAIT 10
    ENVI @this.visable=1
_END

2012qnmd

截图-全屏.wcs
SCRN  -cap  fulllscreen.BMP,0

SCRN  -cap  fulllscreen.png,0

截图-全屏-延时.wcs
TEAM WAIT 100| SCRN  -cap  fulllscreen.BMP,0

2012qnmd

截图键+mspaint.wcs
WAIT 100
SEND VK_SNAPSHOT  //#44
WAIT 100
EXEC --max mspaint.exe
TEAM WAIT 3000 | SEND #17_,#86_,#86^,#17^  //Ctrl-V

2012qnmd

截图gui.wcs
SCRN  -gui

截图snapsot.wcs
ENVI^  ForceLocal=1
//IFEX X.LOG, LOGS * X.LOG
SET &capd=%DeskTop%
FIND $%capd%=, SET capd=%CurDir%
SET &fn=屏幕截图####
SET &wid=0:0
set &ext=PNG
SET &fid=1
//系统设置大字体时缩小界面字体
TEAM ENVI &Font_Size=| REGI #HKCU\Control Panel\Desktop\WindowMetrics\AppliedDPI,&&Font_Size
IFEX $%&Font_Size%=0x78, ENVI &&Font_Size=7! ENVI &&Font_Size=9  // 0x60为100%，0x78为125%，0x90为150%
ENVI &&Font_Cmd=IFEX %windir%\fonts\simsun*, ENVI @this.Font=%&Font_Size%:simsun! ENVI @this.Font=%&Font_Size%
CALL @WIN1

_SUB WIN1,W535H225,截图,
    %&Font_Cmd%
    LABE -VCENTER -RIGHT LABE1,L12T38W60H24,延时(秒):,,
    EDIT -VCENTER -3D -RIGHT Delay,L74T38W40H24,0,,
    SPIN SPIN1,L116T39W18H22,:0:100,,0x80,0x80
    LABE -VCENTER -RIGHT LABE2,L150T38W40H24,对象:,,
    EDIT -VCENTER -3D wWid,L192T38W50H24,%wid%,,
    LABE -VCENTER -RIGHT LABE3,L267T38W58H24,保存类型:,,
    LIST lEXT,L326T40W55H20,PNG|BMP|JPG|GIF|TIFF,OnEXT,%ext%,
    LABE -VCENTER LABE4,L12T90W90H30,保存位置及文件,,
    EDIT -VCENTER -3D wFN,L107T90W380H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    ITEM ITEM2,L492T89W25H30,>>,OnBrow,
//    ITEM ITEM1,L224T131W80H50,截图, OnCap,
    ITEM ITEM1,L160T130W80H50,截图, OnCap,
    ENVI @wFN.MSG=0x02A1: Mouse_In 文件名模板,####为自动编号\n$H $M $D $H $N $S 依次为年月日时分秒
    ENVI @wFN.MSG=0x02A3: TIPS *
    LABE -VCENTER -RIGHT LABE5,L386T38W50H24,编号:,,
    EDIT -VCENTER -3D -RIGHT wFID,L457T38W40H24,,%fid%,
    SPIN SPINFID,L499T39W18H22,:0:100:%fid%,,0x80,0x80
    ITEM ITEM3,L300T130W80H50,退出, kill @WIN1
_END
_SUB Mouse_In
    TEAM ENVI @@Cur=?&&x;&&y| TIPS* %*,5000,1,@AL%&x%T%&y%
_END

_SUB OnBrow
    BROW &&capdir,*%capd%,选择一个文件夹
    FIND $%capdir%=, EXIT
    ENVI &capd=%capdir%
    NAME fn=%wFN%
    FEXT ext=%wFN%
    ENVI @wFN=%&capd%\%fn%.%ext%
_END

_SUB OnEXT
    FDIR capd=%wFN%
    NAME fn=%wFN%
    ENVI @wFN=%&capd%\%fn%.%lEXT%
_END

_SUB OnCap
    SET &wid=%wWid%
    SET &afn=%wFN%
    ENVI @this.visable=0
    CALC &&ms=%Delay%
    CALC &ms=%&ms% * 1000#0
    IFEX $%ms%<0, SET ms=0
    CALC #&ms=%&ms% + 2
    WAIT 300  //最少200毫秒
    FIND $%wFN%<>,
    {*  WAIT %&ms%
        NAME &&nm=%afn%
        FEXT &&ext=%afn%
        FIND $%ext%<>, SET ext=.%ext%
        FDIR &&dir1=%afn%
        SET fid=%wFID%
        CALC #fid=%fid%
        RSTR &&fid5=5,0000%fid%
        RSTR &&fid4=4,0000%fid%
        RSTR &&fid3=3,0000%fid%
        RSTR &&fid2=2,0000%fid%
        RSTR &&fid1=1,0000%fid%
        DATE *space &&dat  //2015 9 25 5 10 57 22 46
        MSTR &&Y,&&M,&&D,&&H,&&N,&&S=<1><2><3><5><6><7>%&dat%
        SED &nm=1,#######*,%fid%,%nm%  //6个以上
        SED &nm=1,#####,%fid5%,%nm%
        SED &nm=1,####,%fid4%,%nm%
        SED &nm=1,###,%fid3%,%nm%
        SED &nm=1,##,%fid2%,%nm%
        SED &nm=1,#,%fid1%,%nm%
        SED &nm=0,$Y,%Y%,%nm%
        SED &nm=0,$M,%M%,%nm%
        SED &nm=0,$D,%D%,%nm%
        SED &nm=0,$H,%H%,%nm%
        SED &nm=0,$N,%N%,%nm%
        SED &nm=0,$S,%S%,%nm%
        SET afn=%dir1%\%nm%%ext%
        SCRN -cap %afn%,%wid%
        CALC #fid=%fid%+1
        ENVI @SPINFID.VAL=%fid%
        ENVI @wFID=%fid%
    }
    WAIT 10
    ENVI @this.visable=1
_END

2012qnmd

这个很多年前，我和作者提过这个需求，作者加了截图参数，也给力几个现成的wcs

静庵

527104427 发表于 2026-2-27 19:16
这段代码的逻辑就有问题：
1.截屏的逻辑是，先发送VK_SNAPSHOT进行截屏，再打开画图软件，再Ctrl+V，才会 ...

深奥了。
   ENVI path=%Desktop%
   SCRN -cap %path%\截屏_%i%.jpg, 1
5大的意思是仅上面两行代码就可以实现截屏，并保存桌面？但不会依次保存
而： SEND VK_SNAPSHOT
        EXEC mspaint.exe
        WAIT 1000
        SEND #17_,#86_,#86^,#17^
则截屏到画图，用画图编辑保存？
若此，m大的代码:
   set dir=%desktop%

   // 注册热键 F11 执行截屏
   HOTK F11, CALL 截屏
_SUB 截屏
    team~ set count=1~ loop #1=1, ifex %dir%\截屏_%count%.jpg, calc count=%count% + 1! exit
    scrn -cap %dir%\截屏_%count%.jpg, 1
    WAIT 100
    MESS 已截屏保存为：截屏_%count%.jpg @完成 #OK *2000
_END

// 保持脚本运行
WAIT - -1
应该是可行的，但为何我在 PE 中加载没有反应呢

527104427

ENVI path=%Desktop%
ENVI i=1
THREAD* WAIT 3900
THREAD* TEAM WAIT 3000| SEND #17_,#86_,#86^,#17^    //Ctrl-V
WAIT 200
SEND VK_SNAPSHOT    //#44
WAIT 100
SCRN -cap %path%\截屏_%i%.jpg, 1

这段代码的逻辑就有问题：
1.截屏的逻辑是，先发送VK_SNAPSHOT进行截屏，再打开画图软件，再Ctrl+V，才会把截屏复制到画图软件，但不会自动保存。如下：
     SEND VK_SNAPSHOT
     EXEC mspaint.exe
     WAIT 1000
     SEND #17_,#86_,#86^,#17^
2.SCRN -cap %path%\截屏_%i%.jpg, 1  就是截屏，且有保存动作，跟上面的功能重复。
3.THREAD* WAIT 3900 是什么鬼，多线程WAIT？等于没有WAIT，没有任何意义。

fegr

感谢分享

guong

来学习下

wn168cn@163.com

支持分享

忧心的启

martin313 发表于 2026-2-27 09:05
set dir=%desktop%
team~ set count=1~ loop #1=1, ifex %dir%\%count%.jpg, calc count=%count% + 1! exi ...

已经搞清楚了，是pecmd版本问题，之前用的是V201201.88.05.86 x64不行，换了V201201.88.05.94 X64就行了

view520

感谢分享！

忧心的启

martin313 发表于 2026-2-27 09:05
set dir=%desktop%
team~ set count=1~ loop #1=1, ifex %dir%\%count%.jpg, calc count=%count% + 1! exi ...

我这也没反应，不懂是不是pecmd的问题。真奇怪啊。

martin313

set dir=%desktop%
team~ set count=1~ loop #1=1, ifex %dir%\%count%.jpg, calc count=%count% + 1! exit
scrn -cap %dir%\%count%.jpg


这个方案，在我发布的PE中，好像不行。pecmd.exe版本不支持scrn命令，要换成最新版的pecmd.exe也许可以

smile_z

学习一下

ztc999

感谢分享

静庵

martin313 发表于 2026-2-27 06:54
判断版本，存在问题。建议用注册表法来判断，或者直接用一条命令，不要判断：

HOTK #122,PECMD EXEC " ...

感谢老师辛劳，我就是小白一个，什么都不懂的

martin313

静庵 发表于 2026-2-27 06:42
不知何故，我的PE中，注册热键也没有反应，与PE有关？

判断版本，存在问题。建议用注册表法来判断，或者直接用一条命令，不要判断：

HOTK #122,PECMD EXEC "%ProgramFiles%\Imagine\Imagine64.exe" /capture  `F11 ScreenShot

静庵

martin313 发表于 2026-2-26 23:58
我的PE中，64位的，输入命令："%ProgramFiles%\Imagine\Imagine64.exe" /capture

就可以调出截屏窗口

不知何故，我的PE中，注册热键也没有反应，与PE有关？

2314840143

围观

ebaqiang

我也在等楼下回帖