Set wshShell =wscript.CreateObject("WScript.Shell")
Dim x
do while x<10
wscript.sleep 100
wshshell.sendkeys "{F5}"
x=x+1
loop


find its use at click here