@Echo OFF
 
REM Si el proceso está consumiendo menos de 104857600 Bytes (100 MB), el PC se apagará...
REM de lo contrario, seguirá monitorizando el consumo de memória del proceso.
 
Set "APP_Name=explorer.exe"
Set /A "Max_Memory=104857600"
Set /A "Interval=5"
 
:Loop
For /F "Tokens=*" %%# in ('wmic.exe process where "caption="%APP_Name%"" get WorkingSetSize ^| FINDSTR "^[0-9].*[0-9]"') Do (Set /A "Process_Memory=%%#")
 
If %Process_Memory% LSS %Max_Memory% (
     Echo [%TIME:~0,-3%] Process "%APP_Name%" is consuming less than %Max_Memory% Bytes of memory...
     Echo [%TIME:~0,-3%] Turning off the computer...
     Shutdown.exe /S /F
) ELSE (
     Echo [%TIME:~0,-3%] Process "%APP_Name%" memory consumition: %Process_Memory% Bytes...
     Ping -n %Interval% LocalHost >NUL
     Goto :Loop
)

#Region " Set Control Border Color Function "
 
    ' [ Set Control Border Color Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_Control_Border_Color(Button1, Pens.Crimson, Pens.Red, Pens.DarkRed)
    ' Set_Control_Border_Color(Checkbox1, Pens.Transparent, Pens.Transparent, Pens.Transparent)
 
    Dim Border_Color_Light As Pen
    Dim Border_Color_Middle As Pen
    Dim Border_Color_Dark As Pen
    Dim Last_Handled_control As Control
 
    Private Function Set_Control_Border_Color(ByVal Control As Control, Color_Light As Pen, ByVal Color_Middle As Pen, ByVal Color_Dark As Pen) As Boolean
        Try
            Border_Color_Light = Color_Light
            Border_Color_Middle = Color_Middle
            Border_Color_Dark = Color_Dark
            AddHandler Control.Paint, AddressOf Control_Paint
            Last_Handled_control = Control
            Return True
        Catch ex As Exception : Throw New Exception(ex.Message)
        End Try
    End Function
 
    Private Sub Control_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)
        If sender.name = Last_Handled_control.Name Then
            Dim offset As Integer = 0
            e.Graphics.DrawRectangle(Border_Color_Light, New Rectangle(New Point(offset, offset), New Size(e.ClipRectangle.Width - ((offset * 2) + 1), e.ClipRectangle.Height - ((offset * 2) + 1))))
            offset += 1
            e.Graphics.DrawRectangle(Border_Color_Middle, New Rectangle(New Point(offset, offset), New Size(e.ClipRectangle.Width - ((offset * 2) + 1), e.ClipRectangle.Height - ((offset * 2) + 1))))
            offset += 1
            e.Graphics.DrawRectangle(Border_Color_Dark, New Rectangle(New Point(offset, offset), New Size(e.ClipRectangle.Width - ((offset * 2) + 1), e.ClipRectangle.Height - ((offset * 2) + 1))))
        End If
    End Sub
 
#End Region

#Region " Get OS Edition Function "
 
    ' [ Get OS Edition Function ]
    '
    ' Examples :
    ' Dim Edition As String = Get_OS_Edition()
    ' MsgBox("You are running Windows " & Get_OS_Edition() & " Edition")
 
    Private Const STARTER As Integer = &HB
    Private Const HOME_BASIC As Integer = &H2
    Private Const HOME_BASIC_N As Integer = &H5
    Private Const HOME_PREMIUM As Integer = &H3
    Private Const HOME_PREMIUM_N As Integer = &H1A
    Private Const BUSINESS As Integer = &H6
    Private Const BUSINESS_N As Integer = &H10
    Private Const ENTERPRISE As Integer = &H4
    Private Const ENTERPRISE_N As Integer = &H1B
    Private Const ULTIMATE As Integer = &H1
    Private Const ULTIMATE_N As Integer = &H1C
 
    Private Declare Function GetProductInfo Lib "kernel32" (ByVal dwOSMajorVersion As Integer, ByVal dwOSMinorVersion As Integer, ByVal dwSpMajorVersion As Integer, ByVal dwSpMinorVersion As Integer, ByRef pdwReturnedProductType As Integer) As Integer
 
    Public Function Get_OS_Edition() As String
        Dim Edition_Type As Integer
        If GetProductInfo(Environment.OSVersion.Version.Major, Environment.OSVersion.Version.Minor, 0, 0, Edition_Type) Then
            Select Case Edition_Type
                Case STARTER : Return "Starter"
                Case HOME_BASIC : Return "Home Basic"
                Case HOME_BASIC_N : Return "Home Basic N"
                Case HOME_PREMIUM : Return "Home Premium"
                Case HOME_PREMIUM_N : Return "Home Premium N"
                Case BUSINESS : Return "Business"
                Case BUSINESS_N : Return "Business N"
                Case ENTERPRISE : Return "Enterprise"
                Case ENTERPRISE_N : Return "Enterprise N"
                Case ULTIMATE : Return "Ultimate"
                Case ULTIMATE_N : Return "Ultimate N"
                Case Else : Return "Unknown"
            End Select
        End If
        Return Nothing ' Windows is not VISTA or Higher
    End Function
 
#End Region

#Region " Number Is In Range Function "
 
    ' [ Number Is In Range Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(NumberIsInRange(50, 0, 100))
    ' If NumberIsInRange(5, 1, 10) then...
 
    Private Function NumberIsInRange(ByVal Number As Integer, ByVal MIN As Integer, ByVal MAX As Integer) As Boolean
        Select Case Number
            Case MIN To MAX : Return True
            Case Else : Return False
        End Select
    End Function
 
#End Region

#Region " Set File Access Function "
 
    ' [ Set File Access Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_File_Access("C:\File.txt", File_Access.Read + File_Access.Write, Action.Allow)
    ' Set_File_Access("C:\File.txt", File_Access.Full, Action.Deny)
 
    Public Enum File_Access
        Delete = System.Security.AccessControl.FileSystemRights.Delete + Security.AccessControl.FileSystemRights.DeleteSubdirectoriesAndFiles
        Read = System.Security.AccessControl.FileSystemRights.ExecuteFile + System.Security.AccessControl.FileSystemRights.Read
        Write = System.Security.AccessControl.FileSystemRights.Write + Security.AccessControl.FileSystemRights.WriteAttributes + Security.AccessControl.FileSystemRights.WriteExtendedAttributes
        Full = Security.AccessControl.FileSystemRights.FullControl
    End Enum
 
    Public Enum Action
        Allow = 0
        Deny = 1
    End Enum
 
    Private Function Set_File_Access(ByVal File As String, ByVal File_Access As File_Access, ByVal Action As Action) As Boolean
        Try
            Dim File_Info As IO.FileInfo = New IO.FileInfo(File)
            Dim File_ACL As New System.Security.AccessControl.FileSecurity
            File_ACL.AddAccessRule(New System.Security.AccessControl.FileSystemAccessRule(My.User.Name, File_Access, Action))
            File_Info.SetAccessControl(File_ACL)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            ' Return False
        End Try
    End Function
 
#End Region

#Region " Get Master Volume Function "
 
    ' [ Get Master Volume Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Dim Volume As Integer = Get_Master_Volume(Volume_Measure.As_Integer)
    ' Dim Volume As String = Get_Master_Volume(Volume_Measure.As_Percent)
 
    Public Enum Volume_Measure
        As_Integer
        As_Decimal
        As_Single
        As_Percent
    End Enum
 
    Private Function Get_Master_Volume(ByVal Volume_Measure As Volume_Measure)
       Select Case Volume_Measure
            Case Form1.Volume_Measure.As_Integer : Return CInt(Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar * 100)
            Case Form1.Volume_Measure.As_Decimal : Return (String.Format("{0:n2}", Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar))
            Case Form1.Volume_Measure.As_Single : Return CSng(Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar)
            Case Form1.Volume_Measure.As_Percent : Return CInt(Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar * 100) & "%"
            Case Else : Return Nothing
        End Select
    End Function
 
#End Region

#Region " Set Master Volume Function "
 
    ' [ Set Master Volume Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_Master_Volume(50)
 
    Private Function Set_Master_Volume(ByVal Value As Integer) As Boolean
        Try : Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar = (Value / 100)
            Return True
        Catch ex As Exception : Throw New Exception(ex.Message)
        End Try
    End Function
 
#End Region

#Region " Mute Master Volume Function "
 
    ' [ Mute Master Volume Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Mute_Master_Volume(False)
    ' Mute_Master_Volume(True)
 
    Private Function Set_Master_Volume(ByVal Mute As Boolean) As Boolean
        Try : Audio_Device.AudioEndpointVolume.Mute = Mute
            Return True
        Catch ex As Exception : Throw New Exception(ex.Message)
        End Try
    End Function
 
#End Region

Fade_Master_Volume(Desde el volumen, Hasta el volumen, En "X" Milisegundos, Forzar/NoForzar el devanecimiento)

#Region " Fade Master Volume Function "
 
    ' [ Fade Master Volume Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Fade_Master_Volume(0, 100, 5000, Fading_Mode.FadeIN, True)
    ' Fade_Master_Volume(80, 20, 5000, Fading_Mode.FadeOUT, False)
    ' Fade_Master_Volume(10, 50, 5000, Fading_Mode.None, True)
 
    Dim Fade_Value_MIN As Integer
    Dim Fade_Value_MAX As Integer
    Dim Fade_TimeOut As Long
    Dim Fade_Mode As Fading_Mode
    Dim Force_Fading As Boolean
    Dim Fader_Timer As New Timer
 
    Public Enum Fading_Mode
        FadeIN = 0
        FadeOUT = 1
        None = 2
    End Enum
 
    ' Fade Master Volume Function
    Private Function Fade_Master_Volume(ByVal MIN As Integer, ByVal MAX As Integer, ByVal Milliseconds As Long, ByVal Mode As Fading_Mode, ByVal Force As Boolean) As Boolean
 
        If MIN <= 100 And MIN >= 0 And MAX <= 100 And MAX >= 0 Then
 
            Try
 
                Fade_Value_MIN = MIN
                Fade_Value_MAX = MAX
                Fade_TimeOut = Milliseconds
                Fade_Mode = Mode
                Force_Fading = Force
 
                Fader_Timer = New Timer
                AddHandler Fader_Timer.Tick, AddressOf Fade_Master_Volume_Timer_Tick
 
                Select Case Mode
                    Case Fading_Mode.FadeIN : Fader_Timer.Interval = Milliseconds / (MAX - MIN)
                    Case Fading_Mode.FadeOUT : Fader_Timer.Interval = Milliseconds / (MIN - MAX)
                    Case Fading_Mode.None : Fader_Timer.Interval = Milliseconds
                End Select
 
                Fader_Timer.Enabled = True
                Return True
 
            Catch ex As Exception : Throw New Exception(ex.Message)
            End Try
 
        Else
            Throw New Exception("Number is not in range from 0 to 100")
        End If
 
    End Function
 
    ' Fade Master Volume Timer Tick Event
    Private Sub Fade_Master_Volume_Timer_Tick(sender As Object, e As EventArgs)
 
        Dim Current_Vol As Integer = CInt(Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar * 100)
 
        Select Case Fade_Mode
 
            Case Fading_Mode.FadeOUT
                If Not Force_Fading Then
                    If Not Current_Vol <= Fade_Value_MAX Then : Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar -= 0.01
                    ElseIf Current_Vol >= Fade_Value_MAX Then : Fader_Timer.Stop() : Fader_Timer.Enabled = False
                    End If
                ElseIf Force_Fading Then
                    If Not Fade_Value_MIN < Fade_Value_MAX Then
                        Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar = (Fade_Value_MIN / 100)
                        Fade_Value_MIN -= 1
                    Else : Fader_Timer.Stop() : Fader_Timer.Enabled = False
                    End If
                End If
 
            Case Fading_Mode.FadeIN
                If Not Force_Fading Then
                    If Not Current_Vol >= Fade_Value_MAX Then : Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar += 0.01
                    ElseIf Current_Vol <= Fade_Value_MAX Then : Fader_Timer.Stop() : Fader_Timer.Enabled = False
                    End If
                ElseIf Force_Fading Then
                    If Not Fade_Value_MIN > Fade_Value_MAX Then
                        Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar = (Fade_Value_MIN / 100)
                        Fade_Value_MIN += 1
                    Else : Fader_Timer.Stop() : Fader_Timer.Enabled = False
                    End If
                End If
 
            Case Fading_Mode.None
                Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar = Fade_Value_MAX
                Fader_Timer.Stop() : Fader_Timer.Enabled = False
 
        End Select
 
    End Sub
 
#End Region

    If Fade_IN Then
            Timer.Interval = Convert_Time(Time_Out, Time_Measure, MS) / (CInt(Target_Volume * 100) - CInt(Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar * 100))
        Else
            Timer.Interval = Convert_Time(Time_Out, Time_Measure, MS) / (CInt(Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar * 100) - CInt(Target_Volume * 100))
        End If