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
kadvlad



PostPosted: Sun Mar 01, 2009 13:49    Post subject: Reply with quote

Друзья,
принимайте работу:

за основу взял найденный в TCKB vbs-скрипт

1. Создал "rar.bat":
Code:
@echo off
rar x -p%1 %2%3 %4

с параметрами запуска ? %P %N %T и добавил батник в пользовательское меню.

2. Повесил этот пункт меню на хоткей F11.

3. Создал скрипт "paste clipbd.vbs":
Code:
Dim TCS, Str
Set TCS = CreateObject("TCScript.Helper")
Str = TCS.GetTextFromClip
TCS.Pause=100
TCS.LockTC True
TCS.SendKeystroke ("{F11}")
TCS.SendKeystroke ("{HOME}")
TCS.SendKeystroke (Str)
TCS.Pause=100
TCS.SendKeystroke ("{Enter}")
TCS.LockTC False
Set TCS = Nothing
Wscript.Quit


4. Повесил скрипт на кнопку

Code:
TOTALCMD#BAR#DATA
"D:\paste clipbd.vbs"
%L
C:\WINDOWS\System32\WScript.exe
paste clipbd


-1


Теперь при нажатии на эту кнопку запароленный архив под курсором распаковуется в директорию напротив, а пароль вставляется из буфера обмена.

Посмотрите — я всё правильно сделал?
Спасибо за содействие.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group