7,764
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Enabled = True Else
Text1.Enabled = False
End If
End Sub
Private Sub Command1_Click()
If Text1.Enabled = True Then
Shell "shutdown-S -t" & Text1.Text
Else
Shell "shutdown-S -t3"
End If
End Sub
Private Sub Command2_Click()
If Text1.Enabled = True Then
Shell "shutdown-R -t" & Text1.Text
Else
Shell "shutdown-R -t3"
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Shell "shutdown-S -t " & Text1.Text
"shutdown -S -t" & Text1.Text