yakeyun

路径可以自己修改：
https://sanli.lanzoub.com/i0J5n0nq10de

部分代码：

@echo off
%1 %2
ver|find "5.">nul&&goto :Admin
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :Admin","","runas",1)(window.close)&goto :eof
:Admin
call :screenshot
cd /d "%~dp0"
setlocal enabledelayedexpansion
set Path=D:\AAA
if exist screenshot.exe (copy screenshot.exe "%Path%" && call "%Path%\screenshot.exe" && del screenshot.exe & del "%Path%\screenshot.exe" )
exit
:screenshot
@echo bs=_>xx.vbs
@echo "NpFkAMAAAAABAAAA//PAAgLAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoDAAA4wH66AA0mQzhgbAM1cIUhWazBCcy92ZyFWbgMWYu52b0BiYlBic15GIp5GIE90Ug02bkVmLN0gCkAAAAAAAAAge"+_>>xx.vbs
@echo "BIAg+AGbT7DYsNtPgx209/2MTzDYsNdv8J209AGbTH1fmNdNgx20R9HaTzDYsNd/vFz0tAGbT7DYtNd0gx20+AGbT7BYsNt1/d20oBGbTnvZqN9Pgx20Sl2Yo5DYsNNAAAAAAAAAAAVRAAATBMAADFVmNBAAAAAAAAAAgDwDBsQA"+_>>xx.vbs
@echo "GAAAQDAAAABAAAAMCAAk7LAAAAkAAAAEDAAAAAEAAABAAAgAAAABAAAAAAAAAQAAAAAAAAAAAAyAAAAEAAAAAAAACAAAAAAAQAAAQAAAAAAEAAAEAAAAAAAAQAAAAAAAAAAAAAAAQUxAAAlAAAAAQMAAQUAAAAAAAAAAAAAAAAAA"+_>>xx.vbs
@echo "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVBFWwAAAAAAAwIAAAABAAAAAAAAAEAAAAAAAAAAAAAAAAAAA"+_>>xx.vbs
@echo "ACAAgXFUYFDAAAAAAANAAAAQCAAAIDAAAQAAAAAAAAAAAAAAAAAAAAEAAAuLyNncjBAAAAAEAAAAQMAAAgAAAAAzAAAAAAAAAAAAAAAAAAAQAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_>>xx.vbs
@echo "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_>>xx.vbs
@echo "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_>>xx.vbs
@echo "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz4SOzAQVQhVINkgDKgkY3yBsJz/ka/tAAM4uAAAygIAAmoAAurxAAIktKDaM"+_>>xx.vbs
@echo "aKr28r1CJnTYCC6vK2bW1u9GC4scbb8HTzt5rK0BvxrmcPmc6l9VwrkHfcIPCyOY7iDBtfIBn9Ch+KmaoXm2rDvgld3WgHgOf1fZXCwPaDK2XwZnPCx0wlcgnhw3YTzo034YtnJzIXbvo2i1Tc7Sz0Jm5PqCY04e513opzKAXXTg"+_>>xx.vbs
@echo "7jWJvyLWqzznpC5M3s1FmWjWLVNg8KkCS4EwM+Znd+UEY6/Z9n2zRJhUcHavqoh1e5on65WSlc0afeGcqyjYeSPam8qcQbsysBkMr0dCs/q+46ZoRe5CoOycMV1PFRGyWGPeTQKwJLm589ocJoQmrfAr+bdCW4J/7VJ+zbQraI85"+_>>xx.vbs
复制代码

FU586097

回复 14# Batcher


   师傅   谢谢 可以用了 但是截图后电脑桌面上的其他文件夹 文档全部关闭了  这样不行呀 能不能截图后  桌面上其他的东东保持不变

Batcher

回复 13# FU586097


    请举例说明DDD-123.exe是什么东西？它跟5楼的test.bat有啥关系呢？

FU586097

回复 12# Batcher
师傅  谢谢你的耐心指教  但是 按test.bat  在F盘建立了BBBBB文件夹  当需要截图时  按 DDD-123.exe  没有截图到BBBBB文件夹里面  为什么？

如果手动在D盘建立AAA文件夹  然后按 DDD-123.exe  可以截图到里面  其他盘建立AAA文件夹就不行

Batcher

回复 7# FU586097


set "TargetFolder=F:\BBBBB"

FU586097

回复 10# jyswjjgdwtdtj


    这样不行  每次截图都需要移动  好麻烦

jyswjjgdwtdtj

回复 9# FU586097


    啊？随便找个地方保存下来，再移动过去不就行了？

FU586097

回复 8# jyswjjgdwtdtj


    是的  怎样修改路径  谢谢

jyswjjgdwtdtj

一定要批处理嘛

FU586097

回复 5# Batcher


    怎样更改保存到其他路径  比如   F盘 BBBBB文件夹  谢谢

FU586097

回复 5# Batcher


    师傅 谢谢你  你写的是   set "TargetFolder=E:\AAA"  怎样截图保存到 set "TargetFolder=D:\AAA"  为什么

Batcher

回复 1# FU586097


下载nircmd.exe和下面的test.bat放在同一个目录下
执行test.bat

@echo off
set "TargetFolder=E:\AAA"
if not exist "%TargetFolder%" (
    md "%TargetFolder%"
)
nircmd sendkey lwin down
nircmd sendkey d press
nircmd sendkey lwin up
nircmd savescreenshot "%TargetFolder%\~$currdate.yyyy_MM_dd$-~$currtime.HH_mm_ss$.png"
复制代码

yakeyun

回复 1# FU586097


https://sanli.lanzoub.com/inTfW0nnchij

直接用这个程序截图，运行一次保存一次屏幕截图。

VBS源代码：

Pic=GetWinPic()
Path= "D:\AAA\"&year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&".jpg"
If WriteFile(Path,Pic) Then
End If
复制代码

FU586097

回复 2# Batcher
师傅  我不懂  你能帮忙写一下  谢谢

Batcher

回复 1# FU586097


推荐换个工具：批处理调用NirCmd实现定时截图
http://bbs.bathome.net/thread-4131-1-1.html
http://bbs.bathome.net/thread-4181-1-1.html