方法一:
Private Sub Command1_Click()
Shell "at " + Text2.Text + " shutdown -s -t 0"
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
方法二:
Dim ctime As String
Private Sub Command1_Click()
ctime = Text2.Text
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
ctime = ""
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
If Text1.Text = ctime Then Shell "shutdown -s"
End Sub