Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Переход к следующему расширению 
Author Message
sa



PostPosted: Thu Oct 20, 2011 10:31    Post subject: Reply with quote

Немного ускорил старый скрипт, уменьшив стандартную задержку для всех последующих операций с 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
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group