Question

VB6.0 怎么写鼠标键盘无操作后程序自动退出

还有就是我进入主程序也就是MID窗体打开子程序也能实现鼠标键盘无操作自动退出，我的代码要放在哪里, 还有就是MID没有 鼠标 键盘 时间 怎么写 求教

Answer 1

'*项目:VB鼠标键盘无操作后程序自动退出                                             
'*作者:百度知道qq15495835                                                         
'*团队:VB学习团                                                                   
'*团队地址：http://zhidao.baidu.com/team/view/vb%E5%AD%A6%E4%B9%A0%E5%9B%A2       

'在MDIForm1中添加一个时间Timer1控件，然后把下面的代码复制到MDIForm1窗口中
Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim mEvent As LASTINPUTINFO
Dim StopTime As Long 
Dim PrvEvent As Long 

Private Sub MDIForm_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
mEvent.cbSize = Len(mEvent)
GetLastInputInfo mEvent
StopTime = mEvent.dwTime
Debug.Print GetTickCount - StopTime
If GetTickCount - StopTime >= 5000 Then    ' 在5000毫秒后不动作就退出,你可以改成你需要的时间
 End
End If
End Sub
'请参考采纳！谢谢！