Sleeper .NET

[Th3_Cr4xX]

Ich schau mir zum einschlafen gerne mal nen Film an und bin dann zu müde um den PC herunterzufahren xD Hab hier nen kleinen Sleeper gecodet. Viel Spaß

Option Explicit On
Option Strict Off

Public Class Form1


    Const EWX_SHUTDOWN As Integer = 1           ' Herunterfahren
    Const EWX_FORCE As Integer = 4              ' Aktion erzwingen






    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Timer started")
        For d = 0 To 9999999


            If TextBox1.Text = DateTimePicker1.Value.Now.ToShortTimeString Then
                d = 9999999

            End If
            Threading.Thread.Sleep(10000)

        Next

        Dim obj_Betriebssystem As Object
        Dim obj_Eigenschaft As Object
        obj_Betriebssystem = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}" & "//./root/cimv2").ExecQuery("SELECT * FROM Win32_OperatingSystem")


        For Each obj_Eigenschaft In obj_Betriebssystem
            obj_Eigenschaft.Win32Shutdown(EWX_SHUTDOWN + EWX_FORCE)

        Next



    End Sub


End Class