1. dim wsh
    2. set wsh = createobject("wscript.shell")
    3. for i=1 to 10     
    4. wscript.sleep 300
    5. wsh.sendkeys "%jlw"
    6. wsh.SendKeys "1.00"
    7. wsh.SendKeys "{ENTER}"
    8. wsh.SendKeys "{TAB}"
    9. next