Private Sub Command3_Click()
'激活IE标题为:VB怎么向其他程序窗口发送按键 - Microsoft Internet Explorer的窗口
'注意,此窗口不能是最小化的,否则找不到窗口。
AppActivate "VB怎么向其他程序窗口发送按键 - Microsoft Internet Explorer", False
t = Timer
Do '------------------------延时,等值这个窗口切换成当前窗口
DoEvents
Loop While Timer - t < 0.5 '这个值根据自己机子的速度修改
SendKeys "{f5}" '-----------发送F5刷新这个页面
End Sub