给文章加上干扰字符[size=4]过滤机制，所发的文章如果含有违禁字符，即使只是几个字符，也一样会给你一个提示，“文章内容包含不合适内容，请检查”，让人好生郁闷！ [/size]
[size=14px][size=4]直接发表看来是不行了，那么在文章中加入干扰字符呢？试了一下，果然可以，下面就来简单说一下流程。[/size][/size]
[size=14px][size=4]第一步：先在本地建一个TXT文件，将以下代码复制过去，然后改扩展名为VBS。加入干扰码的VBS代码如下：[/size][/size]
[size=14px][size=4][color=#ff0000]Set MyFileObject = CreateObject("Scripting.FileSystemObject")[/color][/size][/size]
[size=14px][size=4][color=#ff0000] '大伟QQ:530761333的转换代码，转载请保留信息
Set MyTextFile = MyFileObject.CreateTextFile("c:\要生成的文本.txt") '新生成的文本
Set ReadTextFile=MyFileObject.OpenTextFile("c:\原文本.txt") '原文本
thisLine=ReadTextFile.readall
for i= 1 to len(thisline)
if asc(mid(thisline,i,1))>0 then ' 用ASC来判断是否为字符
if asc(mid(thisline,i,1))=13 then '是否为回车符号
jmdcw=jmdcw '字符的干扰码
else
jmdcw=jmdcw & mid(thisline,i,1) & "j" '字符的干扰码，根据情况更改
end if
else '如果小于0则是汉字
jmdcw=jmdcw & mid(thisline,i,1) & "大" '汉字的干扰码，根据情况更改
end if
next
jmdcw=replace(jmdcw,chr(10),vbcrlf) '将换行符改为回车换行符号。
MyTextFile.Write(jmdcw)
ReadTextFile.close
MyTextFile.Close
set mytextfile=nothing
set readtextfile=nothing
set myfileobject=nothing
msgbox "转换完成",, "大伟提示"[/color][/size][/size]
[size=14px][size=4]将要转换的文字保存在C盘下的“原文本.txt”中，然后双击VBS文件，如无异常，文字就加入了干扰字符，并保存在“c:\要生成的文本.txt”之中。[/size][/size]
[size=14px][size=4]第二步，带有干扰字符的文章生成后，启动大伟的百度浏览器，选择创建新文章，发表之后，程序会自动抓取新发文章的源码并保存到本地数据库内。进入“本地”选项，打开这篇文章，在下方的“格式”中，进行替换，比如我的汉字干扰码是“刺”，那么我在“将字符”中输入的就是“刺”，在“替换为”中输入的就是：“<font color="#FFFFFF">刺</font>”，这里的颜色color值要和背景色一样，因为干扰字符的字体颜色和背景色一样了，在阅读文章时就看不到这些干扰字符了。
同样，对于字符“j”的替换方法也是这样，将字符j的颜色设置的和背景色一样。如图[/size][/size]
[size=14px][size=4][attach]6311[/attach][/size][/size]
[size=14px][size=4]这个功能本来是大伟用于加入文章保护的，不曾想还可以用来加入干扰字符，嘿嘿，意外收获呀！[/size][/size]
[size=14px][size=4]第三步，就是选择上方的“编辑文章”，然后点击下方的“更新至空间”，这时再刷新一下文章，是不是就看不到那些干扰字符了，并且，更新后的文章还保存在当前数据库内，就算被百度机器人删除了，咱还有备份呢，怕什么！！[/size][/size]
[size=14px][size=4]附：BT的干扰代码：
[/size][size=4][color=#ff0000]Dim jm(9)
jm(0)="l"
jm(1)="a"
jm(2)="i"
jm(3)="z"
jm(4)="i"
jm(5)="j"
jm(6)="m"
jm(7)="d"
jm(8)="c"
jm(9)="w"
Dim cw(9)
cw(0)="大"
cw(1)="伟"
cw(2)="的"
cw(3)="空"
cw(4)="间"
cw(5)="世"
cw(6)="界"
cw(7)="学"
cw(8)="习"
cw(9)="室"[/color][/size][/size]
[color=#ff0000][size=4][/size]
[size=4]Set MyFileObject = CreateObject("Scripting.FileSystemObject") '大伟的转换代码，转载请保留信息
Set MyTextFile = MyFileObject.CreateTextFile("c:\要生成的文本.htm") '新生成的文本
Set ReadTextFile=MyFileObject.OpenTextFile("c:\原文本.txt") '原文本
thisLine=ReadTextFile.readall
for i= 1 to len(thisline)
if asc(mid(thisline,i,1))>0 then ' 用ASC来判断是否为字符
if asc(mid(thisline,i,1))=13 then '是否为回车符号
jmdcw=jmdcw '字符的干扰码
else
jmdcw=jmdcw & mid(thisline,i,1) & "<span style='display:none'>" & jm(right(i,1)) & "</span>" '字符的干扰码，根据情况更改
end if
else '如果小于0则是汉字
jmdcw=jmdcw & mid(thisline,i,1) & "<span style='display:none'>" & cw(right(i,1)) & "</span>" '汉字的干扰码，根据情况更改
end if
next
jmdcw="<p style='LINE-HEIGHT:200%;text-indent:20pt;font-size:14px>'>" & replace(jmdcw,chr(10), "</p><p style='LINE-HEIGHT:200%;text-indent:20pt;font-size:14px'>") '将换行符改为回车换行符号。
MyTextFile.Write(jmdcw)
ReadTextFile.close
MyTextFile.Close
set mytextfile=nothing
set readtextfile=nothing
set myfileobject=nothing
msgbox "转换完成",, "大伟提示"
[/size][/color][size=4]所生成的是一个HTM文件，打开后，复制其中的文字到新文章中，是一样的。BT的干扰方式。嘿嘿。转载请保留作者信息。 [/size]