@echo off
rem 隐藏运行
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
set con=d:\playapp
set data=d:\player
rem 读取配置文件
rem ftpaddr ftpacc ftppass ftppath part 参数读取play.ini文件
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('type "%con%\play.ini"^| find /i "="') do set %%i
set ftpdata= .%ftppath:\=/%
rem 网络不通直接播放
ping -n 3 %ftpaddr% >nul
if %errorlevel% equ 1 (goto player)
if not exist %data% (
md %data%
echo init>%data%\>version.txt
goto ftpupdata )
rem 下载服务器文件目录
:ftpversion
set conftp=%con:\=/%
echo open %ftpaddr%>%con%/get.src
echo %ftpacc%>>%con%/get.src
echo %ftppass%>>%con%/get.src
echo lcd %conftp%>>%con%/get.src
echo cd %ftpdata%>>%con%/get.src
echo prompt off>>%con%/get.src
echo ls ./ version.txt>>%con%/get.src
echo ls %part% %part%.txt>>%con%/get.src
echo quit>>%con%/get.src
ftp -s:%con%/get.src
:waitftpv
tasklist|find /i "ftp.exe">nul &&ping 127.0.0.1 -n 3 >nul&&echo 正在更新目录,请稍侯......%time%&&goto waitftpv || goto next
:next
rem 对比远程本地目录
if exist %data%\version.txt (
echo init>%data%\version.txt
)
if exist %part%.txt (
rem 合并文件menu
type %part%.txt >>version.txt
)
fc %con%\version.txt %data%\version.txt>nul
if %errorlevel% equ 1 (
echo download
del %data%\*.* /f /s /q /a
copy %con%\version.txt %data%\
goto ftpupdata
) else (
echo same
goto player
)
:ftpupdata
set dataftp=%data:\=/%
echo open %ftpaddr%>%con%/get.src
echo %ftpacc%>>%con%/get.src
echo %ftppass%>>%con%/get.src
echo lcd %dataftp%>>%con%/get.src
echo cd %ftpdata%>>%con%/get.src
echo prompt off>>%con%/get.src
echo binary>>%con%/get.src
echo mget /y *.*>>%con%/get.src
if exist %part%.txt (
echo cd ./%part%>>%con%/get.src
echo mget /y *.*>>%con%/get.src
)
echo quit>>%con%/get.src
ftp -s:%con%/get.src
:waitftpd
tasklist|find /i "ftp.exe">nul &&ping 127.0.0.1 -n 3 >nul&&echo 正在更新视频,请稍侯......%time%&&goto waitftpd || goto player
:player
ping 127.0.0.1 -n 2 >nul
if exist %con%\%part%.txt (
del %con%\%part%.txt /f /q
)
if exist %con%\get.src (
del %con%\get.src /f /q
)
endlocal
start %data%\play.vbs
:EOF
