धार वितरण (.bat + कर्ल + aria2c) की केवल नई श्रृंखला लोड करने का स्वचालन [HowTo]

 @echo off rem rem 13.05.2013 Tucker56 http://habrahabr.ru/post/180173/ rem rem   /  torrent- rem rem : rem -     -  get.txt ( ) rem -      log.txt rem -   ( .lnk)    log.txt rem -    (   ) rem -          rem rem  (      ): rem -      (%video_dir%) rem -         rem rem : rem -         Є«« ,       Lucida @SetLocal EnableDelayedExpansion rem     CMD,      cp1251,          for /f "tokens=2 delims=:" %%a in ('chcp') do set /a chcp_cmd=%%a rem             chcp 1251 >nul rem   ,    (chcp) for /f "tokens=2 delims=:" %%a in ('chcp') do set /a chcp=%%a rem -------------------------------------------------------------- rem -   --------------------------------------- rem workdir=_workdir -  ,       torrent- rem rutracker_login=login -    http://rutracker.org rem rutracker_password=password -    http://rutracker.org rem video_dir=d:\video -       (         torrent-) rem lnk_name=" .lnk" -      log.txt rem lnk_dest="C:\Users\Admin\Favorites\" -         set workdir=_workdir set rutracker_login=login set rutracker_password=password set video_dir=d:\Video set lnk_name=" .lnk" set lnk_dest="C:\Users\Admin\Favorites\" rem -   ------------------------------------------ rem  get.txt - c  torrent- rem ----- rem  : rem _{rutracker, rutor} _{  URL} ___{    } rem ----- rem   get.txt: rem rutracker 86939 46 rem rutracker 4400218 7 rem rutor 227513 22 rem -------------------------------------------------------------- rem -------------------------------------------------------------- rem   ,      mkdir !workdir! >nul 2>nul rem    RuTracker,   cookie-    torrent- curl -s -c "%workdir%\cookie_rutracker.txt" -A "Opera/10.00 (Windows NT 5.1; U; ru)" ^ -d "login_username=!rutracker_login!&login_password=!rutracker_password!&login=%C2%F5%EE%E4" ^ "http://login.rutracker.org/forum/login.php" > nul del /q !workdir!\~get.txt.new.tmp 2>nul rem        get.txt for /F "tokens=1,2,3*" %%i in (get.txt) do ( set tracker_id=%%i set torrent_id=%%j set last_file_id=%%k set torrent_comment=%%l set torrent_file=!tracker_id!_!torrent_id!.torrent set err= rem  torrent-  RuTracker  RuTor echo !tracker_id! !torrent_id! !last_file_id!:    '!torrent_file!' if "%%i" == "rutracker" ( curl -s -A "Opera/10.00 (Windows NT 5.1; U; ru)" ^ -b "%workdir%\cookie_rutracker.txt" ^ -b "bb_dl=!torrent_id!" ^ "http://dl.rutracker.org/forum/dl.php?t=!torrent_id!" -o "!workdir!\!torrent_file!" ) else ( if "%%i" == "rutor" ( curl -s -A "Opera/10.00 (Windows NT 5.1; U; ru)" ^ "http://d.rutor.org/download/!torrent_id!" -o "!workdir!\!torrent_file!" ) else ( set err=X echo !tracker_id! !torrent_id! !last_file_id!:  : '!tracker_id!' ) ) if !err! NEQ X ( rem  torrent-  call,     for in  --show-files !workdir!\!torrent_file! call :process !torrent_file! ) rem      (  get.txt) echo !tracker_id! !torrent_id! !last_file_id! !torrent_comment!>> !workdir!\~get.txt.new.tmp echo. ) rem       (get.txt) move /y !workdir!\~get.txt.new.tmp get.txt >nul 2>nul rem     aria2c del /Q !video_dir!\*.aria2 >nul 2>nul rem       "" -  if /?  EQL WTF?! if "!has_new!" EQU "X" copy /Y %lnk_name% %lnk_dest% >nul rem    CMD chcp !chcp_cmd! >nul rem      ,     rem pause exit /b rem  torrent- - ,    rem %1 -  torrent- = !torrent_file!,  %1     for in :process echo !tracker_id! !torrent_id! !last_file_id!:   '!torrent_file!' rem [ ]  CMD /U   chcp 866   find /c "+" for /f "tokens=1" %%a in ('aria2c.exe --show-files %workdir%^\%1 ^| findstr /R "^---+----*" ^| find /c "+"') do set cnt=%%a rem         ,    if !last_file_id! LSS !cnt! ( rem  torrent-       (http://rutracker.org/forum/viewtopic.php?t=4400218), rem        del /q !workdir!\~sort.tmp 2>nul for /f "tokens=1,2 delims=|" %%x in ('aria2c.exe --show-files %workdir%^\%1 ^| findstr /BRC:"^[ ]*[0-9][0-9]*"') do echo %%y ^| %%x >> !workdir!\~sort.tmp set /a skip=last_file_id rem   .  call,   skip=%skip% call :download_new_files ) else ( echo !tracker_id! !torrent_id! !last_file_id!:    ) exit /b rem    :download_new_files rem 1-3)      UTF-8,      chcp 65001 > nul rem  -          for /f "skip=%skip% tokens=1,2 delims=|" %%o in ('sort %workdir%^\~sort.tmp') do ( rem 2-3)    65001 chcp !chcp! >nul set /a down=%%p rem  call rem 1)   echo       ,    ,   ,    rem 2)   %time%      call :down_file %%o ) rem 3-3)    65001 chcp !chcp! >nul rem    del /q !workdir!\~sort.tmp 2>nul exit /b rem      rem %* =    :down_file set /a last_file_id=last_file_id+1 echo !tracker_id! !torrent_id! !last_file_id!:   '%*' aria2c --dir=!video_dir! ^ --seed-time=0 ^ --file-allocation=none ^ --summary-interval=0 ^ --console-log-level=error ^ --max-overall-download-limit=1M ^ --allow-overwrite=true ^ --select-file=!down! ^ !workdir!\!torrent_file! rem  - : rem --quiet=true ^ rem ,           rem --allow-overwrite=true ^ rem ,    torrent-,     rem          torrent- rem     ,    rem    log.txt -    rem   %time%   for,       ,   call copy log.txt !workdir!\~log.txt.tmp >nul 2>nul echo %date% %time%: [!tracker_id! !torrent_id! !last_file_id! !torrent_comment!] %* >log.txt type !workdir!\~log.txt.tmp >>log.txt 2>nul del /q !workdir!\~log.txt.tmp >nul 2>nul rem        set has_new=X exit /b 

 Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "get.bat", 0 Set oShell = Nothing