开发者社区> 长征2号> 正文

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


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,大概有三种登录方式:
9074 0
阿里云服务器怎么设置密码?怎么停机?怎么重启服务器?
如果在创建实例时没有设置密码,或者密码丢失,您可以在控制台上重新设置实例的登录密码。本文仅描述如何在 ECS 管理控制台上修改实例登录密码。
19707 0
阿里云服务器端口号设置
阿里云服务器初级使用者可能面临的问题之一. 使用tomcat或者其他服务器软件设置端口号后,比如 一些不是默认的, mysql的 3306, mssql的1433,有时候打不开网页, 原因是没有在ecs安全组去设置这个端口号. 解决: 点击ecs下网络和安全下的安全组 在弹出的安全组中,如果没有就新建安全组,然后点击配置规则 最后如上图点击添加...或快速创建.   have fun!  将编程看作是一门艺术,而不单单是个技术。
17991 0
VBS一键配置VOIP脚本(其中包括VBS操作JS网页中的按钮事件--直接执行确认按钮中的脚本代码)
Dim ws,fso,IESet IE = WScript.createobject("InternetExplorer.Application")Set ws = WScript.CreateObject ("WSCript.
579 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,阿里云优惠总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系.
24799 0
+关注
1703
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
OceanBase 入门到实战教程
立即下载
阿里云图数据库GDB,加速开启“图智”未来.ppt
立即下载
实时数仓Hologres技术实战一本通2.0版(下)
立即下载