vb系统关机代码（关机代码vbs）

今天给各位分享vb系统关机代码的知识，其中也会对关机代码vbs进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB关机代码
• 2、VB写关机代码
• 3、VB关机程序代码

VB关机代码

Shell "cmd.exe /c shutdown -s -t 0"

若要重启，把 -s 改为 -r

不加 -f ,vbHide也可以省去，-t 后的数字最好不要是0，以保证在关机前可以用代码

Shell "cmd.exe /c shutdown -a"

取消关机

VB写关机代码

复制到模块里Option ExplicitDeclare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPublic Const EWX_LOGOFF = 0 '注销

Public Const EWX_SHUTDOWN = 1 '关机

Public Const EWX_REBOOT = 2 '重启

Public Const EWX_FORCE = 4 '强制关机Public Const TOKEN_ADJUST_PRIVILEGES = H20

Public Const TOKEN_QUERY = H8

Public Const SE_PRIVILEGE_ENABLED = H2

Public Const ANYSIZE_ARRAY = 1Type LUID

lowpart As Long

highpart As Long

End TypeType LUID_AND_ATTRIBUTES

pLuid As LUID

Attributes As Long

End TypeType TOKEN_PRIVILEGES

PrivilegeCount As Long

Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES

End TypeDeclare Function GetCurrentProcess Lib "kernel32" () As Long

Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long

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

Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As LongSub CloseWindowFor98ForXP() 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 调用方法CloseWindowFor98ForXPExitWindowsEx EWX_SHUTDOWN, 0

VB关机程序代码

'ok添加两个按钮，把下面代码直接复制粘贴进代码输入框把原来的代码全部覆盖，f5就可以了。

privatesubform_load()

command1.caption="关机"

command2.caption="重启"

privatesubcommand1_click()

shell"cmd/c""shutdown-s-t0"

endsub'关机代码，0代表时间，就是几秒后关机

privatesubcommand2_click()

shell"cmd/c""shutdown-r-t0"

endsub'重启代码

vb系统关机代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于关机代码vbs、vb系统关机代码的信息别忘了在本站进行查找喔。