?? data13.dat
字號:
重新啟動計算機
本例介紹如何使用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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -