如何使用vbscript自动按下F5键？

这应该很简单，但我不能让它工作

do
wscript.sleep 3000
shellobj.sendkeys "{F5}"
loop

这样说：

Set ws = CreateObject("wscript.shell")
do
    wscript.sleep 3000
    ws.sendkeys "{F5}"
loop