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
Serge Yolkin



PostPosted: Tue Aug 16, 2011 01:00    Post subject: Reply with quote

Маленький примерчик (hta): запускать с системной горячей клавиши!
В общем случае покажет содержимое буфера обмена, но если в текущем (активном) окне есть выделенный текст, он будет скопирован в буфер, и, соответственно, показан. Заготовка под новый интерфейс переводчика.
Code:
<head>
  <title>TopMost</title><!-- заголовок - обязательно, по нему и активируем -->
  <hta:application applicationName="HTApp-IXc" singleInstance="yes" windowState="minimize" />
</head><body></body>
<script type="text/jscript" language="JScript">
  var ws=new ActiveXObject('WScript.Shell');
  setTimeout(SetT,500);
  // начинаем через пол секунды, можно меньше, но надо потестить
 
  function SetT(){
    ws.sendKeys('^c');
    // эмулируем нажатие Ctrl+C
    ws.appActivate(document.title);
    // активируем свернутый hta
    ws.sendKeys('~');
    // вытаскивем из таскбара
    setTimeout(Resz,1);
    // нужна масенькая задержечка
  }
 
  function Resz(){
    with(self){resizeTo(300,200);moveTo(200,100);}
    // окно - к нужным размерам
    document.all.tags('body')[0].innerText=window.clipboardData.getData('text');
    // берем буфер обмена
    setInterval(TopM,100)
    // циклически активируем готовое окно
  }
 
  function TopM(){
    ws.appActivate(document.title);
    // вот этим и активируем
  }
 
</script>
</html>
Именно, примерчик. В переводчике удалось подточить идею.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group