每5分钟按F5（转）

原创于 2011-03-03 14:04:00 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #timer #shell

本文介绍了一个使用VBA编写的简单程序，该程序能够实现每五分钟自动按下F5键来刷新窗口的功能。通过设置定时器，程序可以周期性地执行指定的操作。此外，还提供了如何针对特定应用程序如计算器执行此操作的方法。

dim i as integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)'这个是用来检验的
If KeyCode = vbKeyF5 Then Print "hh"
End Sub

Private Sub Form_Load()
Timer1.Interval = 60000'一分钟定时
End Sub
Private Sub Timer1_Timer()
i=i+1
if i=5 then  '五分钟定时
SendKeys "{F5}"
i=0
end if
End Sub 
'这个程序是对Form1也就是自己建立的窗口,执行按F5的
'如果要对其他程序按F5,比方说是计算机,那就在sendkeys上面加这段代码
'ReturnValue = Shell("CALC.EXE", 1) ' 运行计算器。
'AppActivate ReturnValue ' 激活计算器。