如用VB做个30秒按下F11

代码如下:
'================================================
'声明变量
Dim t

Private Sub Form_Load()
t=0
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
t=t+1;
if t==30 then
sendkeys{F11}
t=0
Timer1.Enabled = False
end if
End Sub

'===================================

sendkeys {f11}

vbs 就可以