split被报毒！什么情况？

[caihua_111]

写个程序，360老是报毒，经过反复定位，定位到下面这句，去掉则不报毒
SendFilePath2 = Split(SendFilePath, "#and#")

这是什么道理哦？这完全就是一个对字符处理的语句，为何报毒？

[caihua_111]

[Quote=引用 4 楼 worldy 的回复:]
"#and#"估计是个某个病毒特征串？换个字符串试试
[/Quote]

3楼和4楼朋友的建议我都试过了，依然报毒，不得行。
我甚至试过把变量名改变，还是要报毒。
SendFilePath2 = Split(SendFilePath, "#and#") 这句代码多特殊的，又找不到替代函数可使用，纠结啊。

在此对360表示强烈谴责！

[chinaboyzyq]

[Quote=引用 2 楼 caihua_111 的回复:]

引用 1 楼 chinaboyzyq 的回复:

删除360这个垃圾软件不就行了。


我一般都裸奔，但是总不能让用户也裸奔吧。
[/Quote]
杀毒软件不有的是吗？就非得装360才不叫裸奔？

[chinaboyzyq]

http://topic.csdn.net/u/20111213/10/2d21879a-e397-49a2-a3ff-9ae7ea345250.html?63380
看看这个也许有用。

[caihua_111]

[Quote=引用 7 楼 chinaboyzyq 的回复:]

引用 2 楼 caihua_111 的回复:

引用 1 楼 chinaboyzyq 的回复:

删除360这个垃圾软件不就行了。
我一般都裸奔，但是总不能让用户也裸奔吧。
杀毒软件不有的是吗？就非得装360才不叫裸奔？
[/Quote]

就非得装360才不叫裸奔？ -> 就非得装=要装 -> 要装360才不叫裸奔？

我说的裸奔是不装任何杀毒软件。

[无·法]

[Quote=引用 8 楼 chinaboyzyq 的回复:]

http://topic.csdn.net/u/20111213/10/2d21879a-e397-49a2-a3ff-9ae7ea345250.html?63380
看看这个也许有用。
[/Quote]我以为那个split内容是楼主问题的，结果发现id不一致，该不会是马甲吧。这里也顺便贴上挣分。
'此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程
'此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程

Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object

    strData = "a-bcd-4324-f23"

    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = False
    reg.MultiLine = True
    reg.Pattern = "(.+?)(?:-|\b)"
    Set matchs = reg.Execute(strData)
    For Each match In matchs
        'Debug.Print match.Value
        Debug.Print match.SubMatches(0)
    Next
End Sub

[caihua_111]

          Dim SendFilePath2(20) As String
          Dim iPath As Byte
          Dim iiPath As Byte
          Dim iiiPath As Byte
          iiPath = 1
          iiiPath = 0
          For iPath = 0 To Len(SendFilePath)
              If Mid(SendFilePath, iPath, 5) = "#and#" Then
                 SendFilePath2(iiiPath) = Mid(SendFilePath, iiPath, iPath - iiPath)
                 iiPath = iPath + 5
                 iiiPath = iiiPath + 1
              End If
          Next

没那么麻烦，我用另外的办法解决了。

[Q0M=]

我写下载文件,也被报毒..
还是mcafee

[贝隆]

我开始怀疑楼主的判断，是不是这句代码啊？看了下，不觉得你这句代码有问题啊。

[chinaboyzyq]

删除360这个垃圾软件不就行了。

[caihua_111]

[Quote=引用 1 楼 chinaboyzyq 的回复:]

删除360这个垃圾软件不就行了。
[/Quote]

我一般都裸奔，但是总不能让用户也裸奔吧。

[无·法]

[Quote=引用楼主 caihua_111 的回复:]
写个程序，360老是报毒，经过反复定位，定位到下面这句，去掉则不报毒
SendFilePath2 = Split(SendFilePath, "#and#")

这是什么道理哦？这完全就是一个对字符处理的语句，为何报毒？
[/Quote]应该是你SendFilePath里面的内容引起的，你试试把这个字符串内容设置为空看看，肯定不报错。
360真弱智，上次被杀，反复研究最后发现是它看到了microsoft字母，然后改成mlcrosoft就不报错了。

[worldy]

"#and#"估计是个某个病毒特征串？换个字符串试试

[TT7380]

360总是很变态，只要我写个注册表文件，它就报错。

[橘子皮...]

楼主真是高手，我写的程序100% 360报毒，我就没指望他误报哪怕一次

[zydscaline]

[Quote=引用 14 楼 wowfiowow 的回复:]
楼主真是高手，我写的程序100% 360报毒，我就没指望他误报哪怕一次
[/Quote]只要是自己写的好象360都报病毒，那怕是一个空的界面！
有次我自己写的小东东，生成程序后使用正常，（是上网络上使用的），使用正常，用完后一个多小时后，360报警，发现病毒！

[worldy]

我不知道LZ怎么会和360叫上劲，我也装360，但是下面代码运行很正常

Private Sub Command1_Click()
Dim SendFilePath2() As String
Dim SendFilePath As String

SendFilePath = "1#and#2#and#3#and#4#and#5"
SendFilePath2 = Split(SendFilePath, "#and#")

Dim i As Long
For i = 0 To UBound(SendFilePath2)
Debug.Print SendFilePath2(i)
Next
End Sub

[caihua_111]

痛恨360，现在这句不报毒了，但另外的地方又开始报毒，我已经修改过至少5次了，但都治标不治本。
我感觉360先是查看整个程序内是否有危险代码，如果有，则随机选择另外一处代码为特征码。
现在的关键就是要知道360到底是从哪句代码判断出程序是危险程序。
我另外开了一贴：
http://topic.csdn.net/u/20111215/09/6dc3a40f-db69-48a1-92fb-54c98906a1b5.html