On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 20
wscript.sleep 700
wsh.AppActivate("emmm")
wsh.sendKeys "^v"
wsh.sendKeys str(i)
wsh.sendKeys "%s"
next
wscript.quit