VB6 如果长时间不动鼠标或者键盘 向屏幕保护一样启动别的程序 怎样实现

[wyb0026]

rt

[zzyong00]

你将你的程序的扩展名改为scr,然后将它放在windows文件内，然后，设置屏保为你的程序

[嗷嗷叫的老马]

使用GetLastInputInfo这个API,它取得最后一次鼠标键盘输入操作的时间

你自己比较这个时间就可以知道输入设备空闲了多久.

[嗷嗷叫的老马]

使用GetLastInputInfo这个API,它取得最后一次鼠标键盘输入操作的时间

你自己比较这个时间就可以知道输入设备空闲了多久.

[嗷嗷叫的老马]

咦?原来发成功了呀.

[tk600158]

在form1上加一个时间控件,其他的就不变

Dim sj As Date
Dim sj1 As Date
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
sj = Now()
End Sub
Private Sub Form_Load()
Form1.KeyPreview = True
Timer1.Interval = 1000
sj = Now()
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sj = Now()
End Sub
Private Sub Timer1_Timer()
sj1 = Now()
a = DateDiff("s", sj, sj1)
If a > 10 Then
MsgBox "超过10秒，执行你设定的程序"
'这里请用shell方法打开你想要的程序
End If
End Sub

[lizhongheng]

定时器

[wyb0026]

拜谢 myjian