2015年11月23日 星期一

vb快速關機

轉自  http://fecbob.pixnet.net/blog/post/38138899-vb快速關機

Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)

Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Public Const SE_SHUTDOWN_PRIVILEGE& = 19
Public Const shutdown& = 0
Public Const RESTART& = 1
Public Const POWEROFF& = 2

'過程
Sub TurboShutdown()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
NtShutdownSystem shutdown '關機
'NtShutdownSystem restart '重啟動
'NtShutdownSystem poweroff '待機
End Sub

Private Sub Command1_Click()'按鈕1
'調用
Call TurboShutdown

End Sub
=================================================
轉自  http://knowlet3389.blogspot.tw/2013/07/source-shutdownexe.html

VB6 因為要手動宣告所以比較麻煩點...
Option Explicit

Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function LookupPrivilegeValueA Lib "advapi32.dll" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const ANYSIZE_ARRAY = 1

Private Type LUID
    lowpart As Long
    highpart As Long
End Type

Private Type LUID_AND_ATTRIBUTES
    pLuid As LUID
    Attributes As Long
End Type

Private Type TOKEN_PRIVILEGES
    PrivilegeCount As Long
    Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type

Private Const EWX_FORCE = 4
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0

Private Sub Command1_Click()
    Dim hdl As Long
    Dim uid As LUID
    Dim ptoken As TOKEN_PRIVILEGES
    Dim PreviousState As TOKEN_PRIVILEGES
    Dim ReturnLength As Long
    
    OpenProcessToken GetCurrentProcess, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdl
    LookupPrivilegeValueA "", "SeShutdownPrivilege", uid
    ptoken.PrivilegeCount = 1
    ptoken.Privileges(0).pLuid = uid
    ptoken.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
    AdjustTokenPrivileges hdl, False, ptoken, Len(PreviousState), PreviousState, ReturnLength
    CloseHandle hdl
    ExitWindowsEx EWX_SHUTDOWN Or EWX_FORCE, 0
End Sub

以上源碼皆已在 Win7 x86 測試完成。

==========================================================
可能參數不對.
EWX_FORCE = 4 ' 強制關機
EWX_LOGOFF = 0 ' 登出
EWX_REBOOT = 2 ' 重開機
EWX_SHUTDOWN = 1 ' 關機 
EWX_POWEROFF = 8 ' 關機 ---> 2k , XP
ExitWindowsEx (EWX_POWEROFF ), 65535
=================================================

轉自 http://www.eng.uwaterloo.ca/~kwlau/api/shutdown9x.shtml
Win9x(95/98/Me) 關機方法
要把Win95/98/Me 關機,可以用API "ExitWindowsEx"
宣告法是:Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
使用方法︰準備三個Command button
Private Const EWX_FORCE As Long = 4 '用作強制強制關機/重新開機/登出
Private Const EWX_LOGOFF As Long = 0 '登出
Private Const EWX_REBOOT As Long = 2 '重新開機
Private Const EWX_SHUTDOWN As Long = 1 '關機
Private Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
Command1.Caption = "Logoff"
Command2.Caption = "reboot"
Command3.Caption = "shutdown"
End Sub
Private Sub Command1_Click()
ExitWindowsEx EWX_LOGOFF, 0 '登出
End Sub
Private Sub Command2_Click()
ExitWindowsEx EWX_FORCE Or EWX_REBOOT, 0 '強制重新開機
End Sub
Private Sub Command3_Click()
ExitWindowsEx EWX_FORCE Or EWX_SHUTDOWN, 0 '強制關機
End Sub

備註︰配合EWX_FORCE 參數可以強制關機/重新開機/登出




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

轉自 http://www.xker.com/page/e2007/0201/22164.html


如何在VB中终止Windows系统

在Visual Basic 程 序 中, 可 以 使 用Windows API 函 数 来 重 新 启 动 计 算 机 系 统, 文 本 介 绍 如 何 退 出Windows 并 关 闭 计 算 机 系 统。 

关 闭 计 算 机 系 统 

   可 以 使 用Windows API 的ExitWindowsEx 函 数 来 从Visual Basic 程 序 中 重 新 启 动 计 算 机 系 统。 要 使 用 该 函 数, 需 要 将 如 下 声 明 语 句 包 含 在 窗 体 的 通 常 声 明 部 分 中: 

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

   ExitWindowsEx 函 数 需 要2 个 参 数, 可 以 使 用 一 个 或 多 个 下 面 的 标 识 的 组 合 来 告 诉ExitWindowsEx 函 数 希 望 进 行 关 机 过 程。 

   EWX_FORCE 所 有 的 进 程 都 被 强 制 终 止。 

   EWX_LOGOFF 所 有 的 进 程 被 强 制 终 止, 并 且 用 户 退 出 登 录(logged off)。 

   EWX_POWEROFF 计 算 机 系 统 被 关 机, 并 且 如 果 支 持 节 电 特 性, 则 计 算 机 被 物 理 关 机。 

   EWX_REBOOT 计 算 机 系 统 被 关 机 并 重 新 启 动。 

   EWX_SHUTDOWN 计 算 机 被 物 理 地 安 全 地 关 机。 

   下 面 的 样 例 程 序 中 使 用 了 上 面 的 三 个 标 识 的 组 合。 该 标 识 组 合(EWX_LOGOFF,EWX_FORCE, 以 及EWX_REBOOT) 告 诉Windows 退 出 所 有 正 在 执 行 的 进 程, 使 用 户 退 出 网 络 登 录, 使 计 算 机 系 统 处 于 准 备 状 态 以 供 用 户 关 机。 

样 例 程 序 

   该 样 例 程 序 显 示 了 如 何 关 闭 计 算 机 系 统。 

   1. 在Visual Basic 中 开 始 一 个 新 的 项 目, 采 用 缺 省 的 方 法 建 立Form1。 

   2. 将 如 下 常 量 和 声 明 语 句 添 加 到Form1 的 通 常 声 明 部 分 中( 注 意 该 声 明 语 句 需 要 书 写 在 一 行 内): 


Private Declare Function ExitWindowsEx Lib "user32" 
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long 
Const EWX_LOGOFF = 0 
Const EWX_SHUTDOWN = 1 
Const EWX_REBOOT = 2 
Const EWX_FORCE = 4 
Const EWX_POWEROFF = 8 
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT 


   3. 在Form1 上 添 加 一 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法 建 立Comand1。 将 它 的Caption 属 性 设 置 为“ 重 新 启 动 计 算 机”。 

   4. 将 如 下 代 码 添 加 到Command1 的 单 击 事 件 中: 


Private Sub Command1_Click() 
Dim X As Long 
X = ExitWindowsEx(EWX_RESET, dwReserved) 
End Sub 


   按 下F5 来 运 行 上 述 样 例 程 序, 单 击 命 令 按 钮, 即 可 重 新 启 动 计 算 机 系 统。 



=================================================
轉自 http://m.myexception.cn/vb/128504.html

如何用 VB6.0 代码关闭 Windows XP 系统


怎么用 VB6.0 代码关闭 Windows XP 系统?
大家好! 

怎么用   VB6.0   代码关闭   Windows   XP   系统? 
谢谢!

------解决方案--------------------
在公共标准模块中声明WIN API: 
Public Declare Function ExitWindowsEx Lib "user32 " (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 

在按钮事件中用如下代码可关机: 
Private Sub Command1_Click() 
ExitWindowsEx 1, 0 
End Sub 

在按钮事件中用如下代码可重启: 
Private Sub Command1_Click() 
ExitWindowsEx 2, 0 
End Sub 

------解决方案--------------------
<98 下的代码> 

Private Declare Function ExitWindows Lib "user32 " (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long 

Private Const EWX_LOGOFF = 0 
Private Const EWX_SHUTDOWN = 1 
Private Const EWX_REBOOT = 2 
Private Const EWX_FORCE = 4 

Private Sub execute(op as string) 
Select Case op 
Case "关机 " 
ExitWindows EWX_SHUTDOWN, 0 
Case "重启 " 
ExitWindows EWX_REBOOT, 0 
Case "注销 " 
ExitWindows EWX_LOGOFF, 0 
End Select 
End Sub 

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

<2000 和 xp 下的代码> 

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

Private Const ANYSIZE_ARRAY = 1 '--------AT 
Private Const TOKEN_ADJUST_PRIVILEGES = &H20 '--------AT 
Private Const TOKEN_QUERY = &H8 '--------AT 
Private Const SE_PRIVILEGE_ENABLED = &H2 '--------AT 

Sub AdjustToken() 
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 
LookupPrivilegeValue " ", "SeShutdownPrivilege ", tmpLuid 
tkp.PrivilegeCount = 1 ' One privilege to set 
tkp.Privileges(0).pLuid = tmpLuid 
tkp.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED 
'Get the LUID for shutdown privilege. 

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

Private Sub execute(op as string) '--------AT 
Call AdjustToken 

Select Case op 
Case "注销 " 
ExitWindowsEx EWX_LOGOFF, 0 
Case "关闭 " 
ExitWindowsEx EWX_SHUTDOWN, 0 
Case "重启 " 
ExitWindowsEx EWX_REBOOT, 0 
Case "强制关闭 " 
ExitWindowsEx EWX_FORCE, 0 
End Select

End Sub 

------解决方案--------------------
Option Explicit 

Public Declare Function ExitWindowsEx Lib "user32 " (ByVal uFlags As Long, _ 
ByVal dwReserved As Long) As Long 

Enum HowExitConst 
EWX_FORCE = 4 ' 强制关机 
EWX_LOGOFF = 0 ' 登出 
EWX_REBOOT = 2 ' 重开机 
EWX_SHUTDOWN = 1 ' 关机 
EWX_POWEROFF = 8 
End Enum 

Const TOKEN_ADJUST_PRIVILEGES = &H20 
Const TOKEN_QUERY = &H8 
Const SE_PRIVILEGE_ENABLED = &H2 
Const ANYSIZE_ARRAY = 1 

Private Type LUID 
lowpart As Long 
highpart As Long 
End Type 

Private Type LUID_AND_ATTRIBUTES 
pLuid As LUID 
Attributes As Long 
End Type 

Private Type TOKEN_PRIVILEGES 
PrivilegeCount As Long 
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES 
End Type 

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

Public Sub AdjustToken() 
'因为 98以上的机器存在一个安全机制的问题 这个就是处理安全机制问题的代码 


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 
LookupPrivilegeValue " ", "SeShutdownPrivilege ", tmpLuid 
tkp.PrivilegeCount = 1 
tkp.Privileges(0).pLuid = tmpLuid 
tkp.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED 

AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), _ 
tkpNewButIgnored, lBufferNeeded 
End Sub 


Private Sub Label1_Click(Index As Integer) 
'该代码可以关闭所以的windows系统 
Select Case Index 
Case 0 
AdjustToken 
Call ExitWindowsEx(EWX_LOGOFF, 0) '注销 
End 
Case 1 
AdjustToken 
Call ExitWindowsEx(EWX_POWEROFF, 0) '对付98不能关机 
Call ExitWindowsEx(EWX_SHUTDOWN, 0) '关机 
End 
Case 2 
AdjustToken 
Call ExitWindowsEx(EWX_REBOOT, 0) '重启 
End 
Case 3 
Unload Me 
'取消 
End Select 

End Sub 

沒有留言:

張貼留言