批处理之家 - Powered by Discuz! Board

标题: [其他] [已解决]求批处理：从“查询网”，抓取对应域名 [打印本页]

作者: yyz219 时间: 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
复制代码

作者: WHY 时间: 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
复制代码

作者: yyz219 时间: 2022-11-30 19:27

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

我试一试先

作者: yyz219 时间: 2022-11-30 22:00

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

问题解决再次感谢

作者: yyz219 时间: 2022-11-30 22:15

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

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

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

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

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

谢谢

作者: WHY 时间: 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 无所谓，即便是乱码也不影响域名提取。

作者: yyz219 时间: 2022-11-30 23:27

回复 yyz219

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

已经解决，谢谢

作者: terse 时间: 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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)