data13.dat

来自「学习VB的经典资料 vb一点通 看后很快就会了 初学者的帮手」· DAT 代码 · 共 32 行

重新启动计算机

本例介绍如何使用VB编写一个小程序，用来重新启动Windows和系统。

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("真的要重启动系统吗？", 36, "提示")
    If j = 6 Then
        '重新启动系统
        i = exitwindows(&H43, 0)
    End If
End Sub

Private Sub Command3_Click()
    End
End Sub