sa
|
 Posted: Tue Oct 02, 2012 14:38 Post subject: |
 |
|
Пока затишье, простенький скрипт с нажатиями:
| Code: | '======================================================================================
' Описание: Упаковка файлов с добавлением расширения файла под курсором к имени архива
' Параметры: %E%Z
' Требования: В системе настроить переключение на английский на Ctrl+Shift+1 (либо
' запускать скрипт при английской раскладке клавиатуры)
'======================================================================================
Dim WSH
Set WSH = WScript.CreateObject("WScript.Shell")
WSH.SendKeys "^+1" ' переключение на английский: Ctrl+Shift+1
WSH.SendKeys "%{F5}" ' вызов диалога упаковки: Alt+F5
If WScript.Arguments.Count > 0 Then WSH.SendKeys "{END}^{LEFT}" _
& (WScript.Arguments(0)) & ".{END}"
Set WSH = Nothing
Wscript.Quit |
Add
Для обеспечения упаковки файлов из архивов добавил в шапку скрипта параметр %Z.
Last edited by sa on Fri Oct 05, 2012 14:38; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
