Downloading images

$imageURLs=Import["https://telegra.ph/%E6%9D%A5%E4%BA%86%E4%B8%AD%E5%9B%BD%E5%9B%BD%E5%AE%9D%E5%9C%B0%E5%9B%BE-05-18","ImageLinks"];

$imageURLs//Length

$saveDir=FileNameJoin[{$mengTemporaryDirectory,"《中国国宝地图》__星球研究所__2021-5-18"}];

Table[
With[
{idx=Flatten[{Position[$imageURLs,url]}][[1]]},
URLSaveAsynchronous[$imageURLs[[idx]],FileNameJoin[{$saveDir,IntegerString[idx]<>".png"}],Null]
],
{url,$imageURLs[[4;;]]}
]

SystemOpen[$saveDir]