用VBS脚本查询纯真IP库QQWry.dat(转)-阿里云开发者社区

开发者社区> 长征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,如需转载请自行联系原作者。


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

相关文章
VBS一键配置VOIP脚本(其中包括VBS操作JS网页中的按钮事件--直接执行确认按钮中的脚本代码)
Dim ws,fso,IESet IE = WScript.createobject("InternetExplorer.Application")Set ws = WScript.CreateObject ("WSCript.
525 0
VBS脚本操作网页元素
=================打开百度,点击百度按钮==================== Dim btn,ieSet ie = WScript.CreateObject("InternetExplorer.
854 0
阿里云服务器端口号设置
阿里云服务器初级使用者可能面临的问题之一. 使用tomcat或者其他服务器软件设置端口号后,比如 一些不是默认的, mysql的 3306, mssql的1433,有时候打不开网页, 原因是没有在ecs安全组去设置这个端口号. 解决: 点击ecs下网络和安全下的安全组 在弹出的安全组中,如果没有就新建安全组,然后点击配置规则 最后如上图点击添加...或快速创建.   have fun!  将编程看作是一门艺术,而不单单是个技术。
4479 0
使用OpenApi弹性释放和设置云服务器ECS释放
云服务器ECS的一个重要特性就是按需创建资源。您可以在业务高峰期按需弹性的自定义规则进行资源创建,在完成业务计算的时候释放资源。本篇将提供几个Tips帮助您更加容易和自动化的完成云服务器的释放和弹性设置。
7751 0
+关注
1636
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
文娱运维技术
立即下载
《SaaS模式云原生数据仓库应用场景实践》
立即下载
《看见新力量:二》电子书
立即下载