如何在vb中实现程序运行一小时后屏保3分钟?谢谢!
如何在vb中实现程序运行一小时后屏保3分钟?谢谢! --------------------编程问答-------------------- 结帖率:0.00% --------------------编程问答-------------------- 我是新手,请多多关照! --------------------编程问答-------------------- 窗体放timer1和timer2控件Private Sub Timer1_Timer()
Shell ("start c:\windows\system32\夜光时钟屏保.scr")
Timer2.Enabled = true
End Sub
Private Sub Timer2_Timer()
Static i As Long
i = i + 1
If i >= 180 Then
Timer2.Enabled = False
SendKeys "{Esc}", True
i=0
end if
End Sub
Private Sub Form_Load()
Timer1.Interval = 3600000
Timer2.Interval = 1000
Timer1.Enabled = true
Timer2.Enabled = False
End Sub
--------------------编程问答-------------------- 我确实是看lz是新手,才帖全代码,一般只提供思路 --------------------编程问答-------------------- Timer1.Interval = 3600000 不行 --------------------编程问答-------------------- 一个timer应该就可以了吧:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long _
) As Long
Private dt As Date
Private Sub Form_Load()
dt = Now
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static flag As Boolean
If Not flag Then
If DateDiff("h", dt, Now) >= 1 Then '1小时后运行屏保
ShellExecute Me.hwnd, "Open", "C:\WINDOWS\system32\ss3dfo.scr", _
vbNullString, vbNullString, 0
flag = True
dt = Now
End If
Else
If DateDiff("n", dt, Now) >= 3 Then '3分钟后重新激活本窗口
VBA.AppActivate Me.Caption
flag = False
dt = Now
End If
End If
End Sub
--------------------编程问答-------------------- 谢谢,谢谢。万分感谢。
补充:VB , 基础类