Dave
|
Posted: Mon Apr 27, 2009 22:50 Post subject: |
|
|
Посмотрев примеры скриптов, написанные пользователем Batya и используя суперметод copy-paste вроде удалось сделать работающий скрипт
Code: |
Set TCS = CreateObject("TCSCRIPT.Helper")
ShablonName = ">Не старше 1 часа"
TCS.SendCommand "cm_SrcUserDef"
TCS.SendKeystroke CStr(ShablonName)
TCS.SendKeystroke "{ENTER}"
Set TCS=Nothing
Wscript.Quit
|
Не уверен, что код 100% верен (я только сегодня с Helper-ом стал разбираться), но он работает. |
|