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
复制代码

@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"
复制代码

@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
复制代码

@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 not exist %Path% （md %Path%）
if exist screenshot.exe (copy screenshot.exe "%Path%" && call "%Path%\screenshot.exe" && del screenshot.exe & del "%Path%\screenshot.exe" )
exit
:screenshot
复制代码

@echo off
if "%1"=="h" goto begin 
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit 
:begin

for /f "tokens=*" %%a in ('time/t') do set now=%%a
set ymd=%date:~0,4%-%date:~5,2%-%date:~8,2%
set hms=%now:~0,2%-%now:~3,2%-%time:~6,2%
set sn=%ymd%_%hms%

rem 指定存放图片的F:\AAAAA\文件夹
set dir=F:\AAAAA\
rem 判断没有就创建AAAAA文件夹
if not exist %dir% (    
    md %dir%
)
::延迟2秒钟后保存当前屏幕截图到指定文件夹
nircmd cmdwait 2000 savescreenshot "%dir%%sn%.jpg"
Exit
复制代码

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

@echo off
set "TargetFolder=F:\AAA"
if not exist "%TargetFolder%" (
    md "%TargetFolder%"
)
start nircmd savescreenshot "%TargetFolder%\~$currdate.yyyy_MM_dd$-~$currtime.HH_mm_ss$.png"
复制代码