@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
nclick="copycode($('code0'));">復制代碼