我每回编辑的VBS实用程序都会被360杀毒认为是virus.vbs.qexvmc.1病毒

这是我编辑的一个简易的加壳程序，本来是编的玩，结果真成了病毒了，请众位高人指点

1. On Error Resume Next
   
2. Set argv = WScript.Arguments
   
3. If argv.Count = 0 Then WScript.Quit
   
4. Set fso = CreateObject("scripting.filesystemobject")
   
5. With fso.OpenTextFile(argv(0),1)
   
6. data = .ReadAll : .Close
   
7. End With
   
8. With fso.OpenTextFile(argv(0)&".txt",2,True)
   
9. .WriteLine "data="&Chr(34)&ASCdata(data)&Chr(34)
   
10. .WriteLine "Function ChrData(Data)"
    
11. .WriteLine "MyArray = Split(Data, "","", -1, 1)"
    
12. .WriteLine "For each OldData in MyArray"
    
13. .WriteLine "Newdata=NewData"&Chr(38)&"chr(OldData)"
    
14. .WriteLine "Next"
    
15. .WriteLine "ChrData=NewData"
    
16. .WriteLine "End Function"
    
17. .WriteLine "execute Chrdata(data)"
    
18. .Close
    
19. End With
    
20. MsgBox "OK!",,"Encrypt"
    
21. Function ASCdata(Data)
    
22. num=len(data)
    
23. newdata=""
    
24. For j=1 to num
    
25. If j=num then
    
26. newdata=newdata&asc(mid(data,j,1))
    
27. Else
    
28. newdata=newdata&asc(mid(data,j,1))&","
    
29. End If
    
30. Next
    
31. ASCdata=newdata
    
32. End function

复制代码

注：这是从网上搜集的代码，我是想编辑一下试试！

您好，如果是开发人员，可以在360杀毒设置内找到“免打扰设置”勾选开发者模式，将编译输入的路径加入信任列表，减少弹窗提示；