Портал сметчиков

---

Valentin, способ супер, спасибо. Я немного поменял скрипт, чтобы работал на медленых машинах:

Set WshShell = CreateObject("WScript.Shell")
DIM cnt
cnt=10

While cnt => 1
NABOR
cnt=cnt-1
Wend

Sub NABOR ()
WshShell.SendKeys "%{F2}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "1"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
End Sub