hcb 发表于 2008-2-29 11:23:47

自动获取QQ服务器的方法

脚本如下:
#自动获取QQ服务器IP地址
#QQ服务器域名关键字,多个关键字之间用逗号分隔
:set QQ-STR "tencent,qqtcp"
#QQ地址列表名
:set QQ-LST "D-DST"
#取得DNS缓存的A记录
:set id
#对记录进行分析
:foreach i in=$id do={
#取得域名
:setdom
:set fond "no"
#判断域名中是否有指定的关键字
:foreach k in=$QQ-STR do={
    :if([:find $dom $k]!=[:nothing]) do={:set fond "yes"}
    }
#找到关键字的话,就把IP地址保存在指定地址列表中
:if($fond="yes") do={
    /ip firewall address-list add list=$QQ-LST disabled=no address=
    }
}
#清除缓存,以便寻找新的IP
/ip dns cache flush


适用于用ROS的DNS作为内网DNS的环境,配合防火墙规则,可以很好的控制QQ的访问权限

[ 本帖最后由 hcb 于 2008-2-29 11:35 编辑 ]

tpy372 发表于 2008-2-29 14:49:09

我来坐沙发....:lol

winepo 发表于 2008-2-29 23:25:40

板凳

小狼 发表于 2008-11-15 13:21:31

马扎……

jimmyxing001 发表于 2008-11-16 09:48:14

支持一下,非常不许哦

myneptune 发表于 2008-12-23 07:54:12

好牛的网络,不错的

13724965747 发表于 2009-3-7 22:04:52

:)

hally 发表于 2010-7-27 11:55:35

可惜,只能适用于2.9.X,不适用3.X.X
好人改下嘛

47771885 发表于 2010-7-27 19:29:33

可惜,只能适用于2.9.X,不适用3.X.X
好人改下嘛
hally 发表于 2010-7-27 11:55 http://bbs.routerclub.com/images/common/back.gif


    搜索 核心代码
页: [1]
查看完整版本: 自动获取QQ服务器的方法