VB运行后30秒鼠标键盘无操作自动关闭

来源：百度知道 编辑：UC知道 时间：2024/05/21 22:53:51
怎样让VB程序运行后30秒鼠标键盘无操作自动关闭
介绍详细点啊，详细操作说明。我菜鸟啊！！！！谢谢大虾们！

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static s
s = s + 1
t = 30 - s
If t = 0 Then
Timer2.Enabled = False
MsgBox "时间到，退出", vbCritical, "error"
End
End If
End Sub

Private flag As Boolean
Private a As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
flag = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
flag = False
Form1.KeyPreview = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag = True
End Sub

Private Su