批处理之家 » BAT求助&讨论 » [已解决]求批处理：从“查询网”，抓取对应域名

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

返回列表发帖

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2022-11-28 04:44 | 只看该作者

[其他] [已解决]求批处理：从“查询网”，抓取对应域名

本帖最后由 yyz219 于 2022-12-1 08:54 编辑

完美解决问题：

粘贴数字ip抓取域名.bat：

@echo off
::【粘贴数字ip地址 →→→ 抓取域名】
set /p M=【右键】粘贴数字ip地址:
set "url=https://site.ip138.com/%M%"
::set "url=https://site.ip138.com/183.131.207.66/"
PowerShell -NoProfile -C "$str=(New-Object System.Net.WebClient).DownLoadString('%url%'); [regex]::Matches($str, '</span><a href=\"/([^^/]+)/\"') | forEach{ $_.Groups[1].Value }" >00.txt
::*************************************************************   
::【（行首加0.0.0.0 ）（ 行尾加 #【】） 】
set "strOne=0.0.0.0 "  %【行首添加字符】%
set "strTwo= #【】"    %【行尾添加字符】%
for /f "tokens=*" %%i in (00.txt) do (>>"New.txt" echo %strOne%%%i%strTwo%)
::++++++++++++++++++++++++++++++++++++++++++++++
::【开头加一行：ip地址 (其中：%M% ————数字ip地址)（文件名：数字ip地址.txt）】
(
  echo # 【ip地址】：%M%
  type "New.txt"
           )>"%M%.txt"
::++++++++++++++++++++++++++++++++++++++++
del 00.txt "New.txt"
start "" "%M%.txt"
exit
复制代码

我是小白，希望老师多多帮助

Rank: 6 Rank: 6

帖子: 1482
积分: 3266
技术: 567
捐助: 0
注册时间: 2015-7-19

2楼

发表于 2022-11-30 18:16 | 只看该作者

本帖最后由 WHY 于 2022-11-30 21:49 编辑

@echo off
set "url=https://site.ip138.com/183.131.207.66/"
PowerShell -NoProfile -C "$str=(New-Object System.Net.WebClient).DownLoadString('%url%'); [regex]::Matches($str, '</span><a href=\"/([^^/]+)/\"') | forEach{ $_.Groups[1].Value }" > Domain.txt
pause
复制代码

@echo off
set "url=https://site.ip138.com/183.131.207.66/"
PowerShell -NoProfile -C "$str=(curl -UseBasicParsing -URI '%url%').Content; [regex]::Matches($str, '</span><a href=\"/([^^/]+)/\"') | forEach{ $_.Groups[1].Value }" > Domain.txt
pause
复制代码

1 评分人数

yyz219: 乐于助人技术 + 1

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

3楼

发表于 2022-11-30 19:27 | 只看该作者

WHY 发表于 2022-11-30 18:16

我试一试先

我是小白，希望老师多多帮助

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

4楼

发表于 2022-11-30 22:00 | 只看该作者

WHY 发表于 2022-11-30 18:16

问题解决再次感谢

我是小白，希望老师多多帮助

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

5楼

发表于 2022-11-30 22:15 | 只看该作者

本帖最后由 yyz219 于 2022-11-30 22:20 编辑

WHY 发表于 2022-11-30 18:16

你好
你编辑前，的第一个可以实现【我不小心删除了】

现在两个都不行【现在又可以了】

麻烦你再将最先的代码放出来

谢谢

我是小白，希望老师多多帮助

Rank: 6 Rank: 6

帖子: 1482
积分: 3266
技术: 567
捐助: 0
注册时间: 2015-7-19

6楼

发表于 2022-11-30 22:44 | 只看该作者

回复 5# yyz219

你用的是win7系统？
修改之前是这样的：

PowerShell -NoProfile -C "$obj=New-Object System.Net.WebClient; $obj.Encoding=[Text.Encoding]::utf8; [regex]::Matches($obj.DownLoadString('%url%'), '</span><a href=\"/([^^/]+)/\"') | forEach{ $_.Groups[1].Value }"
复制代码

加不加 Encoding 无所谓，即便是乱码也不影响域名提取。

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

7楼

发表于 2022-11-30 23:27 | 只看该作者

回复 yyz219

你用的是win7系统？
修改之前是这样的：加不加 Encoding 无所谓，即便是乱码也不影 ...
WHY 发表于 2022-11-30 22:44

已经解决，谢谢

我是小白，希望老师多多帮助

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

8楼

发表于 2022-12-1 00:04 | 只看该作者

@echo off
set "url=https://site.ip138.com/183.131.207.66/"
powershell -NoProfile -C "$(Invoke-WebRequest -Uri %url%).ParsedHtml.getElementById('list').getElementsByTagName('a') | %%{$_.textContent}"
pause
复制代码