sa
|
Posted: Thu Oct 20, 2011 10:31 Post subject: |
|
|
Немного ускорил старый скрипт, уменьшив стандартную задержку для всех последующих операций с 70 до 0:
Code: | ' Description: Перейти к следующему расширению
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели инструментов TC
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.Pause = 0
TCS.SendCommand 527 'cm_SelectCurrentExtension
TCS.SendCommand 525 'cm_ExchangeSelection
TCS.SendCommand 2053 'cm_GotoNextSelected
TCS.SendCommand 524 'cm_ClearAll
TCS.LockTC False
Set TCS = Nothing
Wscript.Quit |
|
|