The script is V2.9X Version can run , Modified to ask how 3.X Version can run。TKS!!!
:set QQ-STR “tencent,qqtcp”
:set QQ-LST “D-DST”
:set id [/ip dns cache all find type=A]
:foreach i in=$id do={
:set dom [/ip dns cache all get $i name]
:set fond “no”
:foreach k in=$QQ-STR do={
:if([:find $dom $k]!=[:nothing]) do={:set fond “yes”}
}
:if($fond=“yes”) do={
/ip firewall address-list add list=$QQ-LST disabled=no address=[/ip dns cache all get $i data]
}
}
/ip dns cache flush