Board logo

标题: 手机号码归属地查询批处理单机版 [打印本页]
作者: namejm     时间: 2007-6-6 13:04    标题: 手机号码归属地查询批处理单机版

　　昨天在群里谈到做手机信息查询的事情，vkill立马就发了个curl+sed网络版的批处理出来([原创] 手机号码归属地专业查询.bat)，赞叹一下他的效率。 　　要做信息查询类的批处理，是需要数据库支持的。经常的状况就是：批处理好做，数据库难寻。网上搜索未加密的手机数据库更是难上加难。 　　不过，功夫不负有心人，经过长达一个多星期的艰苦搜寻，在年前的时候，我终于在网上找到了一个文本格式的、未加密的数据库。 　　整理后的数据库(请点击这里下载)相关信息如下：
; 手机信息数据库原始信息头部如下： ; -- phpMyAdmin SQL Dump ; -- version 2.8.1 ; -- http://www.phpmyadmin.net ; 张贴日期为 2006-7-18，具体地址已经无从考证 ; 电话区号信息来自网络，由本人整理之后添加到原有的手机信息数据库中 ; 数据覆盖130-139、159号段 ; 数据格式为：序号 手机号码 电话区号 省/直辖市 市 品牌 ; 共计11万条数据，其中有效数据98107条，无效数据11893条
　　昨天才开始着手整理这个数据库，并做了一个简单的单机版手机信息查询器出来，没什么技术含量，博大家一笑罢了：
@echo off
title 手机号码归属地查询
mode con lines=10 cols=31

:Main
cls
echo.&echo.
echo        请输入手机号码：
echo.
set input=
set /p input=         
if not defined input exit     
if "%input:~10%"=="" goto Main
if not "%input:~11%"=="" goto Main
echo %input%|findstr "^1[3,5][0-9]*$">nul||goto Main
cls
echo.
set ID=%input:~0,7%
for /f "tokens=2,4,6,8,10 delims='" %%i in ('findstr /r "%ID%" 手机信息数据库.txt') do (
    echo ━━━━━━━━━━━━━━━
    echo   来自： %%k %%l
    echo.
    echo   品牌：%%m
    echo.
    echo   电话区号：%%j
    echo ━━━━━━━━━━━━━━━
)
pause>nul
goto Main
　　 [ Last edited by namejm on 2007-6-6 at 01:05 PM ]
作者: ieutk     时间: 2007-6-6 13:07
嗯，这个还看的点懂，vkill做的我看不懂！还待提高啊！
作者: vkill     时间: 2007-6-6 19:59
恩，数据库真的很难找~作成本地查询的也有许多好处的，呵呵~方便点，就是没有办法更新哦
作者: wert123     时间: 2007-6-6 22:31
好东西啊，以前也看到个查身份证的 真是精华中的经典啊，斑竹辛苦了啊 就是不知道，更新的数据库到哪里下载啊
作者: qq43142691     时间: 2007-6-7 05:16
好东西...收藏了.............谢谢分享
作者: jmz573515     时间: 2007-6-7 17:44
数据无法下载...
作者: namejm     时间: 2007-6-7 21:05
　　当时发附件的时候，我测试过，可以下载，但是现在也没法下载了，可能是下载站的问题。有空再联系一下站长。
作者: matlan     时间: 2008-12-7 20:45
数据不好下载 我根据plp626写了个自动到网是下载的 就是速度慢了点 望改正 @echo off||author:plp626&<%~s0 more +9>%tmp%\gtxt.vbs md 手机号数据库 2>nul & set n=0 title 手机号数据下载 color 3e for /l %%i in (1300000,1,1399999) do (cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "http://www.poptool.net/enet/mobile.asp?key=%%i"|findstr "号码"|more +6 >>手机号数据.db ) for /l %%i in (1530000,1,1539999) do (cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "http://www.poptool.net/enet/mobile.asp?key=%%i"|findstr "号码"|more +6 >>手机号数据.db ) for /l %%i in (1590000,1,1599999) do (cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "http://www.poptool.net/enet/mobile.asp?key=%%i"|findstr "号码"|more +6 >>手机号数据.db ) echo 下载完毕! pause Set oDOM = WScript.GetObject(WScript.Arguments(0)) do until oDOM.readyState = "complete" WScript.sleep 100 loop WScript.echo oDOM.documentElement.outerText
作者: matlan     时间: 2008-12-10 14:53
[code][/code]