如何用VB实现重启win NT系统?

[carol83]

看了网上的介绍用ExitWindowsEx(),但是一直不成功.不知是何原因,各位帮忙看看啊

首先获得权限

Private Structure LUID
Dim UsedPart As Long
Dim IgnoredForNowHigh32BitPart As Long
End Structure

Private Structure TOKEN_PRIVILEGES
Dim PrivilegeCount As Long
Dim TheLuid As LUID
Dim Attributes As Long
End Structure

Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_FORCE As Long = 4
Private Const EWX_REBOOT = 2

Private Declare Function ExitWindowsEx Lib "user32" (ByVal _
dwOptions As Long, ByVal dwReserved As Long) As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal _
ProcessHandle As Long, _
ByVal DesiredAccess As Long, ByVal TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" _
Alias "LookupPrivilegeValueA" _
(ByVal lpSystemName As String, ByVal lpName As String, ByVal lpLuid _
As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" _
(ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, ByVal NewState As TOKEN_PRIVILEGES _
, ByVal BufferLength As Long, _
ByVal PreviousState As TOKEN_PRIVILEGES, ByVal ReturnLength As Long) As Long

Private Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess()
OpenProcessToken(hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
TOKEN_QUERY), hdlTokenHandle)

' Get the LUID for shutdown privilege.
LookupPrivilegeValue(vbNullString, "SeShutdownPrivilege", tmpLuid)

tkp.PrivilegeCount = 1 ' One privilege to set
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

' Enable the shutdown privilege in the access token of this process.
AdjustTokenPrivileges(hdlTokenHandle, False, _
tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded)
End Sub

然后使用这样两条语句来重启系统
AdjustToken()
ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), &HFFFF)

运行时执行到LookupPrivilegeValue(vbNullString, "SeShutdownPrivilege", tmpLuid)就出错:
未处理的“System.NullReferenceException”类型的异常出现在 MoveFile.exe 中。
其他信息: 未将对象引用设置到对象的实例。


debug时发现执行完
OpenProcessToken(hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
TOKEN_QUERY), hdlTokenHandle)
之后,hdlTokenHandle=0

是否与这里有关呢?

[51Crack]

hdlProcessHandle = GetCurrentProcess().Handle

[carol83]

[Quote=引用 3 楼 51Crack 的回复:]
GetCurrentProcess().Handle.ToInt32，晕
另外，所有的Long改为Integer就可以了
[/Quote]

我把GetCurrentProcess()的声明成这样?
Private Declare Function GetCurrentProcess Lib "kernel32" () As Integer

还是不可以的.

51Crack 说的GetCurrentProcess()返回值应该是什么呢?

[carol83]

[Quote=引用 4 楼 pjagz 的回复:]
Shell("C:\WINDOWS\system32\Shutdown.exe -s -t 00", AppWinStyle.Hide)
-l
注销当前用户，这是默认设置。-m ComputerName 优先。
-s
关闭本地计算机。
-r
关闭之后重新启动。
-a
中止关闭。除了 -l 和 ComputerName 外，系统将忽略其它参数。在超时期间，您只可以使用 -a。
-f
强制运行要关闭的应用程序。
-m [\\ComputerName]
指定要关闭的计算机。
-t xx
将用于系统关闭的…
[/Quote]

这方法也不错,先用着,呵呵. Thx!

不过还是很想知道我原来的方法错在哪里,盼大侠们出来解答一下!

[carol83]

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
GetCurrentProcess()返回的是long
GetCurrentProcess().Handle不能通过编译啊.

大家帮忙看看呀,多谢!

[51Crack]

GetCurrentProcess().Handle.ToInt32，晕
另外，所有的Long改为Integer就可以了

[pjagz]

Shell("C:\WINDOWS\system32\Shutdown.exe -s -t 00", AppWinStyle.Hide)
-l
注销当前用户，这是默认设置。-m ComputerName 优先。
-s
关闭本地计算机。
-r
关闭之后重新启动。
-a
中止关闭。除了 -l 和 ComputerName 外，系统将忽略其它参数。在超时期间，您只可以使用 -a。
-f
强制运行要关闭的应用程序。
-m [\\ComputerName]
指定要关闭的计算机。
-t xx
将用于系统关闭的定时器设置为 xx 秒。默认值是 20 秒。