fa1con
Joined: 19 Aug 2006
Posts: 162
|
 (Separately) Posted: Sat Aug 26, 2006 21:28 Post subject: Скрипт для быстрого перехода в рабочую группу |
 |
|
Скрипт открывает первую по списку рабочую группу на активной панели Тотала. Для работы необходим 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();
} |
Только без смеха. Я ничего лучше не придумал. У кого-то есть ещё идеи как сделать шорткат для рабочей группы? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
