可以用这个脚本做模糊文字数字识别 。

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师 2009/3/19

Dim lk,Str1,Str2,k,long2,err   Str1="比克大魔":Str2="比克大魔王":k=1:lk=1   //k为字符个数偏差数，lk为字符长度偏差数   Gosub 检查字符串   If err=1       MessageBox "相似"   Else        MessageBox "不相似"   EndIf    EndScript    Sub 检查字符串       i=0       e=0       long2=Abs(Len(Str1)-Len(Str2))       While i<=len(Str1) and i<=len(Str2)           If Mid(Str1,1,1)<>Mid(Str2,1,1)               //切割字符串               e=e+1           EndIf            i=i+1       EndWhile        If CInt(long2)=<lk and e<=k           err=1       Else            err=0       EndIf    Return