[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 3# impk


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

TOP

本帖最后由 WHY 于 2019-7-26 11:28 编辑
  1. var txt = getText('https://www.manhuadb.com');
  2. var arr = [], m = [], map = [];
  3. var reg = /src="((?:https?:\/)?\/[^"]+\.jpe?g)"/ig;  //匹配 src="https://...jpg" 或者 src="/...jpg"
  4. while( m = reg.exec(txt) ){
  5.     var s = m[1].toLowerCase().replace(/^\//, 'https://www.manhuadb.com/');
  6.     if( !map[s] ){  //去重复
  7.         arr.push(s); map[s] = 1;
  8.     }
  9. }
  10. writeToFile(arr);
  11. //提取网页
  12. function getText(url) {
  13.     var http = new ActiveXObject('Microsoft.XMLHTTP');
  14.     http.open('GET', url, false);
  15.     http.send();
  16.     with( new ActiveXObject('ADODB.Stream') ){
  17.         Type = 1;
  18.         Mode = 3;
  19.         Open();
  20.         Write(http.responseBody);
  21.         Position = 0;
  22.         Type = 2;
  23.         Charset = 'UTF-8';
  24.         var str = ReadText(-1);
  25.     }
  26.     return str;
  27. }
  28. //写入文本
  29. function writeToFile(arr) {
  30.     var fso  = new ActiveXObject('Scripting.FileSystemObject');
  31.     fso.OpenTextFile('result.Log', 2, true).WriteLine(arr.join('\r\n'));
  32. }
  33. WSH.Echo('Done');
复制代码
1

评分人数

    • smss: 消消火技术 + 1

TOP

好吧,再次修改一下。因为得到图片地址有遗漏。
保存为 Test.JS

TOP

回复 11# impk


    碰到这种问题你应该先去问搜索引擎,脚本没有问题,不要背锅给脚本。没能力解决就别用。

TOP

尼玛,脾气挺大呀
一个星期前提的问题,问题本身并不难,出于好心我回复你了,你硬是当哑巴憋一个星期不闻不问不吭气,憋大招啊?
直到昨天尼玛一放大招真的惊艳到劳资啦,你在考察我的智商啊!

你真的会用搜索引擎?
https://blog.csdn.net/u011420697/article/details/10132761
http://www.baidu.com/s?wd=800c0005

你能力大就别搭理我们这种菜鸟
沙雕是不是没人鸟你你更高兴?

TOP

返回列表