用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,如需转载请自行联系原作者。


目录
相关文章
|
1月前
|
Java Shell Linux
Linux【脚本 01】简单Shell脚本实现定时备份文件、压缩、删除超时文件操作(showDoc文件备份脚本举例)
Linux【脚本 01】简单Shell脚本实现定时备份文件、压缩、删除超时文件操作(showDoc文件备份脚本举例)
173 0
|
算法 数据处理 Python
python ——批量读取相同格式文件(多个文件夹/单个文件夹)---nc文件为例
在处理多个相同格式的文件时,python中的许多模块可以为我们提供很多遍历。 比如,我们想读取一个文件夹下多个相同格式的文件时 可以使用os模块,
python ——批量读取相同格式文件(多个文件夹/单个文件夹)---nc文件为例
|
Java Shell 程序员
Power Shell 脚本——基于curl自动批量获取FTP服务器上的日志文件
Power Shell 脚本——基于curl自动批量获取FTP服务器上的日志文件
253 0
Power Shell 脚本——基于curl自动批量获取FTP服务器上的日志文件
|
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
128 0
|
Shell Windows
VBS基础篇 - 杂项 - Sendkeys
VBS基础篇 - 杂项 - Sendkeys   模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行 其使用格式为:object.SendKeys(string) object:表示WshShell对象  string:表示要发送的按键指令字符串,需要放在英文双引号中 基本键 每个按键由一个或多个字符表示。
1355 0
|
网络协议 数据安全/隐私保护