Grab images from a-comics.ru

grab.bat

@echo off

SET Dir=shakes-and-fidget
SET EndNum=148

mkdir tmp
:: get pages
for /l %%f in (1,1,%EndNum%) do wget -nv -P tmp http://a-comics.ru/comics/%Dir%/%%f
:: extract lines with links to images (ipic.ru)
find "ipic" tmp\* > list || goto :Err
:: extract URL-number pairs
cscript //Nologo process.js > filtered || goto :Err
:: get images
mkdir out
for /f "tokens=1,2" %%s in (filtered) do wget -nv -O out\%%t.jpg %%s
:: cleanup
del list
del filtered
rd /s/q tmp
goto :EOF

:Err
pause

process.js

var FSO = new ActiveXObject("Scripting.FileSystemObject");
var file = FSO.GetFile("list");
var stm = file.OpenAsTextStream(1);

var re = new RegExp("\"(http://ipic.+?)\".+?выпуск (\\d+)");

function padLeft(nr, n, str)
{
    return Array(n-String(nr).length+1).join(str||'0')+nr;
}

while (!stm.AtEndOfStream)
{
  var s = stm.ReadLine();
  var res = s.match(re);
  if (!res) continue;
  var url = res[1];
  var num = padLeft(res[2], 3);
  WScript.Echo(url, num);
}