Classe do Windows: AnnoyUser

Class AnnoyUser
    Sub MakeUserAngry()
        If Computer.Working Then
            Computer.Freeze
        End If
    End Sub


    Sub DestructUserWorkIfPossible()
        If Not Document.Saved Then
            ExecuteWindowsIllegalOperation
        End If
    End Sub


    Sub GenerateRandomCrash()
    Dim oProcess As System.Process
    Dim n As Long

        n = GenerateRandomNumber()
        Set oProcess = System.Processes(n)
        oProcess.CrashWithoutReason
    End Sub


    Sub HinderProcessesAlmostCompleted()  
        Dim oProcess As System.Process
 
        For Each oProcess In System.Processes  
            If oProcess.Progress = '99%' Then
                oProcess.CrashWithoutReason
            End If  
        Next
    End Sub


    Sub CheckForEnoughTimeWithoutError()
        If System.MinutesFromLastError >= 30 Then
            System.RaiseFatalError
        End If
    End Sub


    Sub CheckExpirationOfWindowsInstallation()
    Dim datInstallation As Date

       datInstallation = GetWindowsLastInstallationDate()

       If datInstallation < (Now() - GetRandomNumberOfWeeks()) Then
          Windows.SelfDestruct
       End If
    End Sub

End Class