用ACCESS安钮来实现关闭电脑

小何

在窗体上放一个关闭电脑安钮,怎么用这个安钮来实现关闭电脑,同时也提醒是不关闭电脑.

hi-wzj

如何关闭／重新启动计算机?

16位Windows用ExitWindows() API函数，而32位Windows则用ExitWindowsEx().32位版本比16位版本多了更多的控制及选项，包括注销及关机。

Declare Function ExitWindows Lib "user" (ByVal uFlags As Long, ByVal _
dwReserved As integer) As integer
Const EW_REBOOTSYSTEM = &H43
Const EW_RESTARTWINDOWS = &H42

Sub Command1_Click()

Dim iAns As Integer
Dim rVal As Integer
Dim iButtonType as Integer

iButtonType = 4 + 32 ' vbYesNo + vbQuestion

' Ask if the user is sure they want to exit.
iAns = MsgBox("Are you sure you want to exit windows?", iButtonType, _
"Exit Windows")
If iAns = 6 Then ' Yes pressed
' Call the exit function to Reboot.
rVal = ExitWindows(EW_REBOOTSYSTEM, 0)
End If

End Sub

***** 32位的例子 *****
In a project with 1 commandbutton, place the following code:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved 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 Command1_Click()

Dim iAns As Integer
Dim rVal As Long

' Ask if the user is sure they want to exit.
iAns = MsgBox("Are you sure you want to exit windows?", vbQuestion Or _
vbYesNo, "Exit Windows")
If iAns = vbYes Then
rVal = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End If

End Sub


查看ExitWindowsEx的详细用法

小何

这个怎么用啊

fan0217

给你个简单的：



强行关闭电脑：

Private Sub Command43_Click()
    If MsgBox("未保存的资料将丢失!继续吗?", vbCritical + vbYesNo, "警告") = vbNo Then Exit Sub
    Shell "rundll32 krnl386.exe,exitkernel"
End Sub



重新启动电脑：
'声明API函数
Private Declare Function SHRestartSystemMB Lib _
         "shell32" Alias "#59" (ByVal hOwner As Long, ByVal _
            sExtraPrompt As String, ByVal uFlags As Long) As Long

'定义系统重新启动常量参数
Private Const SystemChangeRestart = 4

'快速调用"系统重新启动对话框"
'调用例程
' SettingsChanged Me
Public Sub SettingsChanged(FormName As Form)

    SHRestartSystemMB FormName.hwnd, vbNullString, SystemChangeRestart

End Sub