大佬,连续显示多个图片如何弄?我只会这样,代码太多了
@echo off
set "ictureName=img\209.png"
set "PictureName2=img\201.jpg"
set "PictureName3=img\202.jpg"
cd /d "%~dp0"
for /f "tokens=1,3" %%a in ('nconvert_6.8 -info "%PictureName%"') do (
set "str=%%a"
if "%%a" equ "Width" (
set "PictureWidth=%%b"
) else if "%%a" equ "Height" (
set "PictureHeight=%%b"
)
)
for /f "tokens=1-2" %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(screen.width&"" ""&screen.height)"^)(close^)') do (
set "ScreenWidth=%%a"
set "ScreenHeight=%%b"
)
set /a PositionX=(ScreenWidth-PictureWidth)/2
set /a PositionY=(ScreenHeight-PictureHeight)/2
BeePhoto /p:"%PictureName%" /x:%PositionX% /y:%PositionY% /t:6000
for /f "tokens=1,3" %%a in ('nconvert_6.8 -info "%PictureName2%"') do (
set "str=%%a"
if "%%a" equ "Width" (
set "PictureWidth=%%b"
) else if "%%a" equ "Height" (
set "PictureHeight=%%b"
)
)
for /f "tokens=1-2" %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(screen.width&"" ""&screen.height)"^)(close^)') do (
set "ScreenWidth=%%a"
set "ScreenHeight=%%b"
)
set /a PositionX=(ScreenWidth-PictureWidth)/2
set /a PositionY=(ScreenHeight-PictureHeight)/2
BeePhoto /p:"%PictureName2%" /x:%PositionX% /y:%PositionY% /t:6000
for /f "tokens=1,3" %%a in ('nconvert_6.8 -info "%PictureName3%"') do (
set "str=%%a"
if "%%a" equ "Width" (
set "PictureWidth=%%b"
) else if "%%a" equ "Height" (
set "PictureHeight=%%b"
)
)
for /f "tokens=1-2" %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(screen.width&"" ""&screen.height)"^)(close^)') do (
set "ScreenWidth=%%a"
set "ScreenHeight=%%b"
)
set /a PositionX=(ScreenWidth-PictureWidth)/2
set /a PositionY=(ScreenHeight-PictureHeight)/2
BeePhoto /p:"%PictureName3%" /x:%PositionX% /y:%PositionY% /t:6000