1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| @ECHO off
:CheckOS
IF EXIST "%PROGRAMFILES(X86)%" (GOTO BIT64) ELSE (GOTO BIT32)
:BIT64
SET ProgramPath=%PROGRAMFILES(X86)%
GOTO END
:BIT32
SET ProgramPath=%PROGRAMFILES%
GOTO END
:END
@REM Récupération de l'EPG
"%ProgramPath%\ServerCare\WebGrab+PlusV1.1.1\WebGrab+Plus.exe" "C:\ProgramData\ServerCare\WebGrab"
@REM Récupération de la liste de chaînes
echo Recuperation de la liste
"D:\Downloads\IPTV\iptv.sh"
Timeout /T 3 /NoBreak >nul
@REM Conversion du fichier .tv en m3U
IF [D:\Downloads\IPTV\ListeIPTV] EQU [] Goto:Error
CD /D "D:\Downloads\IPTV\ListeIPTV"
2>nul cd "D:\Downloads\IPTV\ListeIPTV" && Goto:Conversion || Goto:Error
:Conversion
FOR %%f IN (*.tv) DO (echo. & echo Conversion du fichier "%%f" ... & Cscript /NoLogo %~dp0Enigma2-TXT-CFG-M3U-LST-FEED-XML.vbs "%%f" & Cls & echo.)
Timeout /T 3 /NoBreak >nul
@REM Copie du fichier IPTV.txt en IPTVOLD.txt avec suppressions des liens
move "D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\IPTV.txt" "D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\News\IPTVOLD.txt"
(for /f "delims=," %%a in (D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\News\IPTVOLD.txt) do echo %%a) >D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\IPTV.txt
Timeout /T 3 /NoBreak >nul
move "D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\IPTV.txt" "D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\News\IPTV.txt"
(for /f "delims=," %%a in (D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\News\IPTV.txt) do echo %%a) >D:\Downloads\IPTV\ListeIPTV\IPTV_Hackoo-Conversion\IPTV.txt
Timeout /T 3 /NoBreak >nul
@REM upload des fichiers sur le serveur
ftp -i -s:"D:\Downloads\IPTV\SendToFtp.txt"
@REM comment out next line, to stop the command window from automaticly closing
@REM PAUSE
PAUSE
@REM EXIT |
Partager