杭州交通信息网水表怎么把数字调回:vb高手请进，谢了
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 02:25:10
新建一个form,然后建一个按钮 ，想点一下此按钮便可以关机，前提还要出现提示对话框，是否确认关机 .
寻求语句………………
大哥，说清楚一下下好吗，
寻求语句………………
大哥，说清楚一下下好吗，
Private Sub Command1_Click()
If MsgBox("确认关闭计算机？", 36, "关机") = 6 Then
Shell "cmd /c shutdown /s /t 0", vbHide
End If
End Sub
api
shutdown
...那个确认倒是可以直接用MSGBOX做。。关机得涉及API了吧~~
别的地方找的代码
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1
Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
lresult = ExitWindowsEx(EWX_SHUTDOWN, 0&) '关闭计算机
lresult = ExitWindowsEx(EWX_REBOOT, 0&) '重新启动计算机