vb系统关机代码（vb重启程序代码）

本篇文章给大家谈谈vb系统关机代码，以及vb重启程序代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、关于VB按钮关机代码
• 2、VB写关机代码
• 3、VB关机程序代码
• 4、VB关机代码
• 5、在vb编程中让电脑关机的程序代码是什么？

关于VB按钮关机代码

Private Sub Command1_Click()

If MsgBox("是否重启", vbYesNo) = vbYes Then

Shell "shutdown -r -t 0"

End If

End Sub

Private Sub Command2_Click()

If MsgBox("是否关机", vbYesNo) = vbYes Then

Shell "shutdown -s -t 0" '关机

End If

End Sub

百度搜 “vb6版 msdn ”帮助文档 安装后，不懂的函数里面找，有解释

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关机代码

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

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

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

Shell "cmd.exe /c shutdown -a"

取消关机

在vb编程中让电脑关机的程序代码是什么？

windows

关机在dos下操作是：shutdown

-s

-t

在VB中，你可以使用

shell

调用这个命令

Shell

"shutdown

-s

-t

0"

上面不行的话，你可以试试带路径的：

Shell

"%windir%\system32\shutdown.exe

-s

-t

0"

关于vb系统关机代码和vb重启程序代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。