sa
|
 Posted: Tue Dec 11, 2012 16:13 Post subject: |
 |
|
Sergiusnet
| Code: | '==================================================================
' Описание: Выделить все файлы, вызвать пользовательскую команду
' и послать нажатия клавиш Enter и ESC
' Параметр: Имя пользовательской команды
' Требования: Необходима регистрация WSH Helper for TC by Volniy
'==================================================================
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_SelectAllFiles"
TCS.UserCmd WScript.Arguments(0)
TCS.SendKeystroke "{Enter}"
TCS.SendKeystroke "{ESC}"
Set TCS = Nothing
Wscript.Quit |
Вообще-то, нажатия из скрипта небезопасны. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
