Batya
|
 Posted: Wed Oct 05, 2005 11:22 Post subject: |
 |
|
botace
Написал скриптик на VBScript. Он использует TCWSHelper от Volniy.
| Code: | '==================================
' Активизировать TC и перейти к указанному файлу
' В параметрах вызова скрипта должен быть указан полный путь файла, включая имя.
'==================================
Dim MyFile, TCS
Set MyFile = CreateObject("Scripting.FileSystemObject").GetFile(WScript.Arguments(0))
Set TCS = CreateObject("TCScript.Helper")
Dim FileName, FilePath
FileName = MyFile.Name
FilePath = MyFile.ParentFolder
TCS.LockTC True
TCS.SendCommand(4003)
TCS.SendKeystroke("cd " & FilePath & "{Enter}")
TCS.SendCommand(2915)
TCS.SendKeystroke(FileName & "{Esc}")
TCS.LockTC False
Set TCS = Nothing
Set MyFile = Nothing
Wscript.Quit |
Только есть небольшой трабл с текущей раскладкой. При включенной русской почему-то не работает. Сейчас уже нет времени отлаживать. Может Volniy поможет. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
