2,503
社区成员




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就行了.