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

yyz219

完美解决问题：

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

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

复制代码

WHY

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

复制代码

1. @echo off
   
2. set "url=https://site.ip138.com/183.131.207.66/"
   
3. PowerShell -NoProfile -C "$str=(curl -UseBasicParsing -URI '%url%').Content; [regex]::Matches($str, '</span><a href="/([^^/]+)/"') | forEach{ $_.Groups[1].Value }" > Domain.txt
   
4. 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系统？
修改之前是这样的：

1. 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

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

复制代码