Question

vb2010关机代码

Answer 1

项目-----添加引用,----.net------System.management
写一个关机重启的过程
Private Sub ShutDown(ByVal ShutdownParams As String())

Dim mc As Management.ManagementClass = New Management.ManagementClass("Win32_OperatingSystem")
mc.Get()
mc.Scope.Options.EnablePrivileges = True
For Each mo As Management.ManagementObject In mc.GetInstances
mo.InvokeMethod("Win32Shutdown", ShutdownParams)
Next
End Sub
要关机,就这样调用这个过程
ShutDown(New String() {"8", "4"})
要得启
ShutDown(New String() {"2", "4"})
我这个不用调用api,要知道微软不提倡在.net中调用api

Answer 2

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Sub sub_closewindow()

ExitWindowsEx（ EWX_LOGOFF, 0）

End Sub