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 

Скрипт для быстрого перехода в рабочую группу

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
fa1con



Joined: 19 Aug 2006
Posts: 162

Post (Separately) Posted: Sat Aug 26, 2006 21:28    Post subject: Скрипт для быстрого перехода в рабочую группу Reply with quote

Скрипт открывает первую по списку рабочую группу на активной панели Тотала. Для работы необходим TCScript.
Code:
// ====================================================
// Opens first Workgroup in Microsoft Windows Network
// in active panel of Total Commander
//
// To use this script you have to install
// Script Helper ActiveX for Total Commander
// ====================================================

var TCS = WScript.CreateObject("TCScript.Helper");
TCS.Pause=100;

TCS.locktc(1);
TCS.SendCommand(331);

TCS.SendKeystroke ("\\");
TCS.SendKeystroke ("{END}");
TCS.SendKeystroke ("{UP 3}");
TCS.SendKeystroke ("{ENTER}");
TCS.SendKeystroke ("{DOWN}");
TCS.SendKeystroke ("{ENTER}");
TCS.SendKeystroke ("{DOWN}");
TCS.SendKeystroke ("{ENTER}");
TCS.locktc(0);

То же, но открывает только в левой панели. Зато не нужен TCScript.
Code:
// ====================================================
// Opens first Workgroup in Microsoft Windows Network
// in left! panel of Total Commander
// ====================================================

var WshShell = WScript.CreateObject("WScript.Shell");
WScript.Sleep(100);

TCKey("%{F1}",0);
TCKey("{\\}",0);
TCKey("{END}",0);
TCKey("{UP 3}",0);
TCKey("{ENTER}",100);
TCKey("{DOWN}",0);
TCKey("{ENTER}",300);
TCKey("{DOWN}",0);
TCKey("{ENTER}",0);

function TCKey(key,t)
{
  if (WshShell.AppActivate("Total Commander ")) {
    WshShell.SendKeys(key);
    WScript.Sleep(t);
  }
  else WScript.Quit();
}

Только без смеха. Я ничего лучше не придумал. У кого-то есть ещё идеи как сделать шорткат для рабочей группы?
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sun Aug 27, 2006 01:11    Post subject: Reply with quote

Метод (это не свойство!)
Code:
WScript.Sleep(100);
действует только однократно, создавая задержку на указанное число мсек. Для надежности действия скриптов с использованием метода SendKeys эту комаду обычно вставляют перед каждым вызовом SendKeys.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group