Question

vb检测人是否操作电脑

Answer 1

恐怕不行吧

Answer 2

Dim t As Integer

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
t = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
t = 0
End Sub

Private Sub Timer1_Timer()
If t >= 300 Then
    Form6.Show
    t = 0
Else
    t = t + 1
End If
End Sub

只适用于在软件本身范围内检测