2,462
社区成员
发帖
与我相关
我的任务
分享
dim TimeLeft as long
private sub timer1_timer()
timeleft=timeleft+1
if timeleft>600 then '600秒就是10分钟
timer1.enabled=false:doevents
call ShutDownPC(1) '调用关机
end if
end sub
然后鼠标键盘事件中只需要timeleft=0就行了.