WHY

var txt = getText('https://www.manhuadb.com');

var arr = [], m = [], map = [];
var reg = /src="((?:https?:\/)?\/[^"]+\.jpe?g)"/ig;  //匹配 src="https://...jpg" 或者 src="/...jpg" 
while( m = reg.exec(txt) ){
    var s = m[1].toLowerCase().replace(/^\//, 'https://www.manhuadb.com/');
    if( !map[s] ){  //去重复
        arr.push(s); map[s] = 1;
    }
}

writeToFile(arr);

//提取网页
function getText(url) {
    var http = new ActiveXObject('Microsoft.XMLHTTP');
    http.open('GET', url, false);
    http.send();
    with( new ActiveXObject('ADODB.Stream') ){
        Type = 1;
        Mode = 3;
        Open();
        Write(http.responseBody);
        Position = 0;
        Type = 2;
        Charset = 'UTF-8';
        var str = ReadText(-1);
    }
    return str;
}

//写入文本
function writeToFile(arr) {
    var fso  = new ActiveXObject('Scripting.FileSystemObject');
    fso.OpenTextFile('result.Log', 2, true).WriteLine(arr.join('\r\n'));
}

WSH.Echo('Done');
复制代码

WHY

回复 3# impk


    WinXP 系统现在几乎没人用了，不闲麻烦的话你可以安装 PowerShell 试试。
https://www.microsoft.com/zh-CN/download/details.aspx?id=16818

impk

回复 2# zaqmlp

保存为bat运行后提示，powershell不是内部或外部命令，也不是可运行的程序或批处理文件

这个脚本需要安装额外的运行环境么？我用的是XP3系统

zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass ^
    [System.Collections.ArrayList]$s=@();^
    $url='https://www.manhuadb.com/';^
    $web=New-Object System.Net.WebClient;^
    $web.Encoding=[System.Text.Encoding]::UTF8;^
    $html=$web.DownloadString($url);^
    $m=[regex]::matches($html,'(?^<=src=\"").+?\.jpg');^
    if($m.count -ge 1){^
        foreach($item in $m){[void]$s.Add($item.value);};^
        [IO.File]::WriteAllLines('结果.txt', $s, [Text.Encoding]::Default);^
    };
echo;%info%
pause
复制代码