dim a
set ws=createobject("wscript.shell")
do
a=a+1
ws.sendkeys"1"
wscript.sleep 5000
ws.sendkeys"2"
wscript.sleep 500
if a=100
wscript.quit
end if
loop
dim a
set ws=createobject("wscript.shell")
do
a=a+1
ws.sendkeys"1"
wscript.sleep 5000
ws.sendkeys"2"
wscript.sleep 500
if a=100
wscript.quit
end if
loop