本帖最后由 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
复制代码
|