用VBS脚本查询纯真IP库QQWry.dat(转)

简介:

查询给的IP地址所在的国家,ADSL服务商名称:

前提:需要提供一个纯真的IP库,这个可以只需将从网上搜索QQWry.dat进行搜索这个文件下载即可,然后将该文件放到与该脚本同目录下即可。

原文地址:http://demon.tw/programming/vbs-qqwry-dat.html

Class' ============================================' 变量声名' ============================================PublicPublicPrivatePrivatePrivatePrivate' ============================================' 类模块初始化' ============================================PrivateSub"""""QQWry.Dat"EndSub' ============================================' 类终结' ============================================PrivateSubOnErrOrResumeNextIfThenSetNothingEndSub' ============================================' IP地址转换成整数' ============================================FunctionDim"."FOrtoIfNotThenIfCIntThenCIntIfCIntThenNextCIntCIntCIntCIntEndFunction' ============================================' 整数逆转IP地址' ============================================FunctionCstr"."Cstr"."Cstr"."CstrEndFunction' ============================================' 获取开始IP位置' ============================================PrivateFunctionEndFunction' ============================================' 获取结束IP位置' ============================================PrivateFunctionEndFunction' ============================================' 获取地域信息,包含国家和和省市' ============================================PrivateSubIfOrThenIfThen' 以下用来获取数据库版本信息If"255.255.255.0"And"255.255.255.255"ThenEndIfElseEndIfElseEndIf' 过滤数据库中的无用信息If"CZ88.NET"Then""If"CZ88.NET"Then""EndSub' ============================================' 获取IP地址标识符' ============================================PrivateFunctionDimDoWhileTrueIfOrThenIfThenEndIfElseExitDoEndIfLoopIfThen""ElseEndIfEndFunction' ============================================' 获取字串信息' ============================================PrivateFunctionDim""DoWhileTrueIfThenExitDo'如果是双字节,就进行高字节在结合低字节合成一个字符IfThenIfThenExitDoElseEndIfLoopEndFunction' ============================================' 核心函数,执行IP搜索' ============================================PublicFunctionDimDimSet"ADodb.Stream"' 在数据库中找不到任何IP地址IfThen"未知"ExitFunctionEndIfDoWhileCallIfThenExitDoEndIfIfThenElseEndIfLoopCallCallIfAndThen' 没有找到Else' 正常EndIfCallEndFunctionEndClassSetNew"8.8.8.8"

WScript.Echo Wry.Country & "/" & Wry.LocalStr



本文转自hcy's workbench博客园博客,原文链接:http://www.cnblogs.com/alterhu/archive/2012/04/08/2438172.html,如需转载请自行联系原作者。


目录
相关文章
|
运维 网络安全
巧用 nc 命令传输文件
今天在业务上云的时候,遇到了些问题。最终发现问题的根源不好排查,于是——把生产环境的全量配置文件,还有日志全量打包下载到开发机器分析!生产和开发机内网不通,都是走公网传输,但是速度特别慢……
214 3
使用7zip,通过命令行解压包内指定文件
使用7zip,通过命令行解压包内指定文件
175 0
|
存储 Java Maven
网络抓包数据文件(.pcap/.cap)解析工具(Java实现)
pcap/.cap文件是常用的数据报存储格式文件,数据按照特定格式存储,普通编辑器无法正常打开该类型文件,使用Ultra Edit编辑器能够以16进制的格式查看数据,无法直观查看数据重要信息。需要特定的解析工具软件读取查看如WiresharkPortable或Microsoft Network Monitor等
网络抓包数据文件(.pcap/.cap)解析工具(Java实现)
|
JSON Java Unix
《懒人Shell脚本》之十——统计多重路径下的不同扩展名文件及个数
1、统计实现 find -type f | sed -e 's/.*\.//' | sort | uniq -c | sort -n > rst.txt 1 2、脚本分解 1) find -type f regular file , 查找正规的文件 返回:./bak_network/道x网站/bak_第8章.md
157 0