[VB.NET]VB.NET怎樣設計定時關機???

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

VB.NET怎樣設計定時關機???

小弟今天想設計一個定時關機！！！！！

各位大哥幫幫忙，幫小弟這個忙啊！！！！！

__________________________________________________________________________

做一個時使用時鐘控件，與目前的時間進行比較，在自己設定的條件下調用關機函數

__________________________________________________________________________

網上相關的文章很多。

會調用API，會使用Timer控件，基本上就可以搞定了。

__________________________________________________________________________

http://blog.csdn.net/ChengKing/archive/2005/12/24/561259.aspx

__________________________________________________________________________

想要簡單的關機代碼!!

__________________________________________________________________________

==，給你找找

__________________________________________________________________________

過程名稱：LogOutUsers,CloseComputer,ResetComputer

功能描述：登出使用者，關閉計算機，重新啟動

接收參數：無

傳回參數：無

建立人員及日期：[email protected]

注意事項:此函數會對目前的系統有效

============================================================================================================

Private Declare Function ExitWindowsEx Lib user32 (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer

Const EWX_FORCE As Integer = 4

Const EWX_LOGOFF As Integer = 0

Const EWX_REBOOT As Integer = 2

Const EWX_SHUTDOWN As Integer = 1

登出目前使用者

Public Sub LogOutUsers()

ExitWindowsEx(EWX_FORCE, 0)

End Sub

關閉機算機

Public Sub CloseComputer()

ExitWindowsEx(EWX_SHUTDOWN, 0)

End Sub

重新啟動

Public Sub ResetComputer()

ExitWindowsEx(EWX_REBOOT, 0)

End Sub

__________________________________________________________________________

試試這個，我是把這個放在全局子產品裡用的

__________________________________________________________________________

hehe ...學習.

__________________________________________________________________________

上面的代碼關機和重新開機動都不行啊!!!

隻是登出的那個才行啊!!!

能不能再幫幫我???

__________________________________________________________________________

直接調用系統程式，我自己寫了個定時關機的，僅限winxp

要的話發郵件[email protected]

__________________________________________________________________________

Shell( shutdown -s -t 30 )

三十秒關機 你時宜式

沒辦法 我關機了

__________________________________________________________________________

關機類

Imports System

Imports System.Text

Imports System.Diagnostics

Imports System.Runtime.InteropServices

Public Class ExitWindows

Public Enum RestartOptions

LogOff = 0

PowerOff = 8

Reboot = 2

ShutDown = 1

Suspend = -1

Hibernate = -2

EWX_FORCE = 4

End Enum

Public Structure LUID

Dim LowPart As Integer

Dim HighPart As Integer

End Structure

Public Structure LUID_AND_ATTRIBUTES

Dim pLuid As LUID

Dim Attributes As Integer

End Structure

Public Structure TOKEN_PRIVILEGES

Dim PrivilegeCount As Integer

Dim Privileges As LUID_AND_ATTRIBUTES

End Structure

Private Const TOKEN_ADJUST_PRIVILEGES = &H20

Private Const TOKEN_QUERY = &H8

Private Const SE_PRIVILEGE_ENABLED = &H2

Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000

Private Const EWX_FORCE = 4

Private Declare Function LoadLibrary Lib kernel32 Alias LoadLibraryA (ByVal lpLibFileName As String) As IntPtr

Private Declare Function FreeLibrary Lib kernel32 (ByVal hLibModule As IntPtr) As Integer

Private Declare Function GetProcAddress Lib kernel32 (ByVal hModule As IntPtr, ByVal lpProcName As String) As IntPtr

Private Declare Function SetSuspendState Lib Powrprof (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer

Private Declare Function OpenProcessToken Lib advapi32.dll (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByRef TokenHandle As IntPtr) As Integer

Private Declare Function LookupPrivilegeValue Lib advapi32.dll Alias LookupPrivilegeValueA (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Integer

Private Declare Function AdjustTokenPrivileges Lib advapi32.dll (ByVal TokenHandle As IntPtr, ByVal DisableAllPrivileges As Integer, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Integer, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Integer) As Integer

Private Declare Function ExitWindowsEx Lib user32 (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer

Private Declare Function FormatMessage Lib kernel32 Alias FormatMessageA (ByVal dwFlags As Integer, ByVal lpSource As IntPtr, ByVal dwMessageId As Integer, ByVal dwLanguageId As Integer, ByVal lpBuffer As StringBuilder, ByVal nSize As Integer, ByVal Arguments As Integer) As Integer

Private Sub ExitWindows(ByVal how As RestartOptions, ByVal force As Boolean)

Select Case how

Case RestartOptions.Suspend

SuspendSystem(False, force)

Case RestartOptions.Hibernate

SuspendSystem(True, force)

Case RestartOptions.ShutDown

how += RestartOptions.PowerOff

ExitWindows(Convert.ToInt32(how), force)

Case Else

ExitWindows(Convert.ToInt32(how), force)

End Select

End Sub

Private Sub ExitWindows(ByVal how As Integer, ByVal force As Boolean)

EnableToken( SeShutdownPrivilege )

If force Then how = how Or EWX_FORCE

If (ExitWindowsEx(how, 0) = 0) Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error()))

End Sub

Private Sub EnableToken(ByVal privilege As String)

If Not CheckEntryPoint( advapi32.dll , AdjustTokenPrivileges ) Then Return

Dim tokenHandle As IntPtr = IntPtr.Zero

Dim privilegeLUID = New LUID

Dim newPrivileges = New TOKEN_PRIVILEGES

Dim tokenPrivileges As TOKEN_PRIVILEGES

If (OpenProcessToken(Process.GetCurrentProcess().Handle, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, tokenHandle)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error()))

If (LookupPrivilegeValue( , privilege, privilegeLUID)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error()))

tokenPrivileges.PrivilegeCount = 1

tokenPrivileges.Privileges.Attributes = SE_PRIVILEGE_ENABLED

tokenPrivileges.Privileges.pLuid = privilegeLUID

Dim Size As Integer = 4

If (AdjustTokenPrivileges(tokenHandle, 0, tokenPrivileges, 4 + (12 * tokenPrivileges.PrivilegeCount), newPrivileges, Size)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error()))

End Sub

Private Sub SuspendSystem(ByVal hibernate As Boolean, ByVal force As Boolean)

If Not CheckEntryPoint( powrprof.dll , SetSuspendState ) Then Throw New PlatformNotSupportedException( The SetSuspendState method is not supported on this system! )

SetSuspendState(Convert.ToInt32(IIf(hibernate, 1, 0)), Convert.ToInt32(IIf(force, 1, 0)), 0)

End Sub

Private Function CheckEntryPoint(ByVal library As String, ByVal method As String) As Boolean

Dim libPtr As IntPtr = LoadLibrary(library)

If Not libPtr.Equals(IntPtr.Zero) Then

If Not GetProcAddress(libPtr, method).Equals(IntPtr.Zero) Then

FreeLibrary(libPtr)

Return True

End If

FreeLibrary(libPtr)

End If

Return False

End Function

Private Function FormatError(ByVal number As Integer) As String

Dim Buffer = New StringBuilder(255)

FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, IntPtr.Zero, number, 0, Buffer, Buffer.Capacity, 0)

Return Buffer.ToString()

End Function

Public Sub LogOff() 登出

ExitWindows(RestartOptions.LogOff, False)

End Sub

Public Sub Reboot() 重新開機計算機

ExitWindows(RestartOptions.Reboot, False)

End Sub

Public Sub ShutDown() 關閉系統

ExitWindows(RestartOptions.ShutDown, False)

End Sub

Public Sub ShutDownForce() 強制關閉系統

ExitWindows(RestartOptions.ShutDown, True)

End Sub

Public Sub Suspend() 待機

ExitWindows(RestartOptions.Suspend, False)

End Sub

Public Sub Hibernate() 休眠

ExitWindows(RestartOptions.Hibernate, False)

End Sub

End Class

Public Class PrivilegeException

Inherits Exception

Public Sub New()

MyBase.New()

End Sub

Public Sub New(ByVal message As String)

MyBase.New(message)

End Sub

End Class

__________________________________________________________________________

支援!學習ing~~

__________________________________________________________________________

用系統自帶的shutdown.exe最省事，xp以上都好用。

可以看shutdown幫助。

__________________________________________________________________________

登出

Shell( Shutdown.exe /l /t 0 )

重新開機

Shell( Shutdown.exe /r /f /t 0 )

關機

Shell( shutdown.exe /s /f /t 0 )

使用Shutdown指令

system.Diagnostics.Process.Start( shutdown.exe )

關于ShutDown的參數描述如下:

===============================================================

shutdown [/i | /l | /s | /r | /a | /p | /h | /e] [/f]

[/m //computer][/t xxx][/d [p:]xx:yy [/c comment ]]

/i 顯示圖形使用者界面(GUI)。

這必須是第一個選項

/l 登出。這不能與 /m 或 /d 選項一起使用

/s 關閉計算機

/r 關閉并重新開機動計算機

/a 放棄系統關閉。

這隻能在逾時過程中使用

/p 關閉本地計算機，沒有逾時或警告。

這隻能與 /d 選項一起使用

/h 休眠本地計算機。

這隻能與 /f 選項一起使用

/e 将計算機的意外關閉原因記入文檔

/m //computer 指定目标計算機

/t xxx 設定關閉前的逾時為 xxx 秒。

有效範圍是 0-600，預設為 30

/c comment 重新開機動或關閉的原因的注釋。

最大允許 127 個字元

/f 強制正在運作的應用程式關閉而不事先警告使用者

/d [p:]xx:yy 提供重新開機動或關閉的原因

p 表明重新開機動或關閉是計劃内的

xx 是主要原因号(小于 256 的正整數)

yy 是次要原因号(小于 65536 的正整數)

原因:

(E = 預期 U = 意外 P = 計劃, C = 自定義)

========================================================

例:關機

system.Diagnostics.Process.Start( shutdown.exe , s )

重新啟動

system.Diagnostics.Process.Start( shutdown.exe , r )

登出

system.Diagnostics.Process.Start( shutdown.exe , l )

最後在此操作之後 馬上退出目前應用程式:

system.Diagnostics.Process.Start( shutdown.exe , s )

Application.Exit()

__________________________________________________________________________

頂一下

__________________________________________________________________________

我設定了關機,但怎樣才能取消關機啊!!!

__________________________________________________________________________