中国DOS联盟

@echo off
title IP地址地理位置^/手机号码归属地查询  by:vkill
::需要外部工具 curl & sed ,下载:http://www.vkill.net/tools.html
:start_
cls&set v=&set a=
set/p=你输入你要查询的IP地址或手机号码:<nul & set/p "v="
if not defined v goto :start_
echo 正在查询,请稍候......
echo.
echo "%v%"|find ".">nul 2>nul &&(
echo 您查询的IP:%v%
for /f "tokens=*" %%? in ('curl -s -d "ip=%v%&action=ip" http://ip138.com/ips8.asp^|sed "/本站主数据：/!d;s/<li>/\n/g;s/<[^>]*>//g;s/^[ \t]*//g"') do (echo %%?)
                                   )||(
echo 您查询的手机号码段:%v%
for /f "tokens=*" %%? in ('curl -s -d "mobile=%v%&action=mobile" http://www.ip138.com:8080/search.asp^|sed "s/&nbsp;//g"^|sed -r -n "/卡号归属地|卡类型/{n;p}"^|sed "s/<[^>]*>//g;s/^[ \t]*//g"') do (
  if not defined a (
  echo 卡号归属地:%%?
  set a=a) else (echo 卡  类  型:%%?)
                                         )
)
echo.
set/p=任意键继续......<nul&pause>nul&goto :start_