中国DOS联盟

就是有的网吧不允许运行一些字眼的站点工具连QQ信息里的一些字眼出现也会关闭掉对话框
怎么解决呢？
我在网吧连DOS联盟都看不了

Function FiltString(SourceStr As String, SearchStr As String, Optional ReplaceStr As String = "") As String
Dim I As Integer
FiltString = SourceStr
I = InStr(1, FiltString, SearchStr)
Do While I > 0
FiltString = Mid(FiltString, 1, I - 1) & ReplaceStr & Mid(FiltString, I + 1)
I = InStr(I + Len(ReplaceStr), FiltString, SearchStr)
Loop
End Function


谁知道上面的VBA代码写的是什么意思
据说可以过滤指定字符

上面的函数是从传递的字符串中查找指定的要过滤的字符，再（默认）替换为空

VBA没有用过……

这个代码的意思是用ReplaceStr替换SourceStr中的SearchStr。


VBA里是不是没有replace函数?

vba有replace的

汗～那为什么不直接用replace函数。。。

Function FiltString(SourceStr As String, SearchStr As String, Optional ReplaceStr As String = "") As String
Dim I As Integer
FiltString = SourceStr
I = InStr(1, FiltString, SearchStr)
Do While I > 0
FiltString = Mid(FiltString, 1, I - 1) & ReplaceStr & Mid(FiltString, I + 1)
I = InStr(I + Len(ReplaceStr), FiltString, SearchStr)
Loop
End Function


有没有人看的懂的解释下语句的意思

'晕～你要具体一句一句分析啊

Function FiltString(SourceStr As String, SearchStr As String, Optional ReplaceStr As String = "") As String
Dim I As Integer
FiltString = SourceStr
I = InStr(1, FiltString, SearchStr) '得到要替换的字符串在原字符串位置
Do While I > 0 '如果存在要替换的字符串
FiltString = Mid(FiltString, 1, I - 1) & ReplaceStr & Mid(FiltString, I + 1)
'取那个字符串左边的部分+要替换成的字符串+取那个字符串右边的部分
I = InStr(I + Len(ReplaceStr), FiltString, SearchStr)
'再次查找替换的字符串在字符串位置
Loop
End Function

'这个函数没有Replace好……如果SearchStr是ReplaceStr的子字符串将会是死循环！

也许根本就很简单：
如果你所在的网吧使用的是“网维大师”这个管理系统，就会自动关闭窗口标题带有“冰点破解”“机器狗”之类词汇的程序。
你只需要在进程管理器关闭“ProcessSafe.exe”程序即可。

：）