中国DOS联盟

@echo off&setlocal enabledelayedexpansion&color 1E
title IP地址查询
mode con: cols=55 lines=15
:start
cls
echo.&echo.
echo                请输入所要查询的IP
for %%a in (ip ipa aip bip cip ip1 ip2 ip3 ip4) do set %%a=
set /p ipa=
if not defined ipa exit
cls
for /f "tokens=1,2,3,4 delims=. " %%a in ('echo !ipa!') do (
        set ip1=%%a
        set ip2=%%b
        set ip3=%%c
        set ip4=%%d
)
        if !ip1! GTR 255 goto start
        if !ip2! GTR 255 goto start
        if !ip3! GTR 255 goto start
        if !ip4! GTR 255 goto start
set ip=!ipa!
set ip=!ip:.=\.!
for /f "tokens=1,2*" %%i in ('findstr "\<!ip!\>" ip.txt') do (
     set aip=%%i
     set bip=%%j
     set cip=%%k
)
        if "!cip!"=="" goto ip2
        goto ok
:ip2
if "!ip4!"=="0" goto ip3
     set /a ip4-=1
set ip=!ip1!.!ip2!.!ip3!.!ip4!
set ip=!ip:.=\.!
for /f "tokens=1,2*" %%i in ('findstr "\<!ip!\>" ip.txt') do (
     set aip=%%i
     set bip=%%j
     set cip=%%k
)
     if "!cip!"=="" goto ip2
goto ok
:ip3
if "!ip3!"=="0" if "!cip!"=="" goto ip4
     set /a ip3-=1
set ip=!ip1!.!ip2!.!ip3!
set ip=!ip:.=\.!
for /f "tokens=1,2*" %%i in ('findstr "\<!ip!\>" ip.txt') do (
     set aip=%%i
     set bip=%%j
     set cip=%%k
)
    if "!cip!"==""  goto ip3
goto ok
:ip4
if "!ip2!"=="0" goto ip5
     set /a ip3-=1
set ip=!ip1!.!ip2!
set ip=!ip:.=\.!
for /f "tokens=1,2*" %%i in ('findstr "\<!ip!\>" ip.txt') do (
     set aip=%%i
     set bip=%%j
     set cip=%%k
)
     if "!cip!"=="" goto ip4
goto ok
:ip5
set ip=!ip1!
set ip=!ip:.=\.!
for /f "tokens=1,2*" %%i in ('findstr "\<!ip!\>" ip.txt') do (
     set aip=%%i
     set bip=%%j
     set cip=%%k
)
:ok
if "!cip!"=="" goto nip
echo    你查询的IP： !ipa!
echo    所属IP段： !aip!-!bip!
echo    IP所在地： !cip!
pause
goto start
:nip
echo.&echo.
echo    你查询的IP： !ipa!
echo.
echo    很抱歉！没找到你要查询的IP
echo.
pause
goto start