注册
登录
| 关键词： nbsp MatchNum MatchKey WordFilter Then Function Str 短小 http 粗口 |
Function WordFilter(Str) Dim MatchNum,MatchKey MatchNum = 0 For i=1 To Len(Str) MatchKey=LCase(Mid(Str,i,4)) If MatchKey="href" Or MatchKey="[url" Or MatchKey="http" Then MatchNum=MatchNum+1 If MatchNum>3 Then Exit For Next If MatchNum>3 Then AlertTo Referer,"嘿嘿~ 不要告诉我你不是在贴广告啊，（这里是你的粗口）！" WordFilter = StrEnd Function 短小实用！！！ 来源：http://www.neeao.com |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
