重新啟動計算機

本例介紹如何使用VB編寫一個小程序，用來重新啟動Windows和系統(tǒng)。

Private Declare Function exitwindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer



Private Sub Command1_Click()
    Dim j As Integer
    Dim i As Integer
    j = MsgBox("真的重新啟動Windows嗎？", 36, "提示")
    If j = 6 Then
        '重啟動Windows
        i = exitwindows(&H42, 0)
    End If
End Sub

Private Sub Command2_Click()
    Dim j As Integer
    Dim i As Integer
    j = MsgBox("真的要重啟動系統(tǒng)嗎？", 36, "提示")
    If j = 6 Then
        '重新啟動系統(tǒng)
        i = exitwindows(&H43, 0)
    End If
End Sub

Private Sub Command3_Click()
    End
End Sub