Th3_Cr4xX
12.04.2010, 14:32
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ß
http://www.imagebanana.com/img/gylwrzw2/Unbenannt.bmp.png (http://www.imagebanana.com/)
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
http://www.imagebanana.com/img/gylwrzw2/Unbenannt.bmp.png (http://www.imagebanana.com/)
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