CMD批处理脚本+VBScript脚本+Potplayer 实现文件夹内所有视频的截图任务（指定时间点）

实现自动化视频截图，一般会直接借视频编解码如FFmpeg，动用相关函数来实现，直接从解码源头设计程序。然而我没有接触过FFmpeg，借助cmd批处理，以及vbs，还有现成的播放器potplayer，一样可以实现。

【思路】

查找特定文件夹内所有的视频，每个视频使用potplayer打开，使用视频播放器的功能，指定时间点，然后截屏，最后整理截图文件，修改文件名称。

【逐步编写】

首先执行.bat（screenshot.bat），让其每个视频对象对应执行一个vbs脚本（sendkeys.vbs），等所有视频处理完毕，最后整理文件名称，执行另一个.bat（rename.bat）

screenshot.bat：

要对所有视频执行操作，需要遍历，使用for语句：

for %%v in (*.mp4) do (
        :: ......
}

运行potplayer:

start "" "%potplayer_path%" "%%v"

执行.vbs：

cscript //nologo "%vbs_path%" "%screenshot_time%"

调用另一个.bat：

call rename.bat "%output_dir%" "%screenshot_time%"

sendkeys.vbs:

读取参数：

screenshot_time = WScript.Arguments(0)

创建WshShell对象：

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

模拟按键输入，如按下G：

WshShell.SendKeys "g"

rename.bat：

获取传入的参数：

set "folderPath=%~1"
set "screenshot_time=%~2"

遍历文件夹内所有文件，并做修改文件名的任务：

for %%a in ("%folderPath%\*.jpg") do (
  for /f "tokens=1 delims=." %%b in ("%%~na") do (
    ren "%%a" "%%b_%screenshot_time_formatted%.jpg"
  )
)

【完整代码】

screenshot.bat:

@echo off
title PotPlayer 自动截图脚本

:: 设置变量
set "potplayer_path=C:\Program Files\potplayer\PotPlayer64\PotPlayerMini64.exe"
set "output_dir=%~dp0screenshots"  :: 输出目录为脚本所在目录下的 screenshots 文件夹
set "vbs_path=%~dp0sendkeys.vbs" :: vbs脚本地址
set "screenshot_time=00:03:20.0" :: 设置截图时间点

:: 创建输出目录
if not exist "%output_dir%" mkdir "%output_dir%"

:: 美化窗口
echo ****************************************
echo =========自动截图脚本====================
echo 警告： 必须切换至英文输入法状态，之后运行
echo 截图输出目录：%output_dir%
echo 设定的截取时间点：%screenshot_time%
echo ========================================

:: 按任意键继续，为了确保输入法状态
pause

:: 使用 for 循环查找所有 mp4 文件
for %%v in (*.mp4) do (
    echo.
    echo 正在处理视频：%%v
    REM set "video_name=%%~nv"  :: 获取不带扩展名的文件名

    :: 构造截图文件名
    REM set "screenshot_path=%output_dir%\%screenshot_name%"

    :: 启动 PotPlayer 并播放视频
    echo 启动 PotPlayer...
    start "" "%potplayer_path%" "%%v"

    :: 延时 4 秒，等待 PotPlayer 启动
    echo 延时 4 秒...
    timeout /t 4 /nobreak > nul

    :: 调用 VBScript 模拟按键
    echo 模拟按键操作...
    cscript //nologo "%vbs_path%" "%screenshot_time%"

    echo.
    echo 视频 %%v 处理完成，截图已保存到： %output_dir%
)

echo.
echo 所有视频处理完毕!

:: 调用 rename.bat，并将 output_dir 作为参数传入
call rename.bat "%output_dir%" "%screenshot_time%"

pause

sendkeys.vbs:

' sendkeys.vbs
Option Explicit

' 获取参数
Dim objArgs, screenshot_time
Set objArgs = WScript.Arguments

screenshot_time = WScript.Arguments(0)

' 创建 WshShell 对象
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

' 延时 0.5 秒，确保 PotPlayer 窗口激活
WScript.Sleep 500

' 模拟按下空格键暂停
WshShell.SendKeys " "
WScript.Sleep 500

' 模拟按下 G 键，显示跳转对话框
WshShell.SendKeys "g"
WScript.Sleep 500

' 输入  时间点
WshShell.SendKeys screenshot_time
WScript.Sleep 500

' 模拟按下 Enter 键，跳转到指定时间
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500

' 模拟按下 Alt+C
WshShell.SendKeys "%c"
WScript.Sleep 500

' 模拟按下 Ctrl+E，截图
WshShell.SendKeys "^e"
WScript.Sleep 500

' 模拟按下 Alt+F4 关闭 PotPlayer
WshShell.SendKeys "%{F4}"
WScript.Sleep 500

' 清理对象
Set WshShell = Nothing
Set objArgs = Nothing

rename.bat:

@echo off
setlocal

:: 获取传入的文件夹路径和时间参数
set "folderPath=%~1"
set "screenshot_time=%~2"

:: 检查文件夹路径是否为空
if "%folderPath%"=="" (
  echo 错误：未提供文件夹路径！
  pause
  exit /b 1
)

:: 将时间格式转换为文件名格式【把：和. 两个字符 替换成下划线_】
set "screenshot_time_formatted=%screenshot_time::=_%"
set "screenshot_time_formatted=%screenshot_time_formatted:.=_%"

for %%a in ("%folderPath%\*.jpg") do (
  for /f "tokens=1 delims=." %%b in ("%%~na") do (
    ren "%%a" "%%b_%screenshot_time_formatted%.jpg"
  )
)

echo 文件重命名完成！
endlocal

注意，这三个脚本放在同一目录下。

【结果】

【结尾】

比较综合的运用，涉及到传参，cmd和vbs的联合调用。实际上一开始笔者想尝试直接通过命令行控制播放器，无奈不能抓取播放器对象，在一个播放器中执行多个命令，放弃了。虽然调用了三个脚本程序，但最终还是能实现，可歌可泣，花了不少精力的。当然，程序还有很多bug,需要慢慢优化,如，如何避免中文输入法的干扰，再如如何终止模拟键鼠操作，还有原有的截图文件的智能识别和过滤。同时，脚本设计上很多参数可以以传参的形式变成动态读取、导入。

cmd和vbs的联合，应该说这篇博文给了一个例子，希望可以给后辈参考。