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

yyz219

完美解决问题：

粘贴数字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

@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

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

我试一试先

yyz219

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

    问题解决 再次感谢

yyz219

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

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

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

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

谢谢

WHY

回复 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

回复  yyz219


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

已经解决，谢谢

terse

@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
复制代码