View previous topic :: View next topic |
Author |
Message |
Tol!k

Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Mon Jul 13, 2009 08:32 Post subject: |
|
|
SilverVox
Code: | ' File: Shift+F4.vbs
' Description: Кнопка для создания нового файла
' Requirements: WSH Helper for TC by Volniy
' Installation: Перетащите скрипт на панель TC
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause=100
TCS.SendKeystroke "+{F4}"
TCS.SendKeystroke "new_file.txt"
Set TCS = Nothing
WScript.Quit |
|
|
Back to top |
|
 |
SilverVox

Joined: 13 Jun 2009 Posts: 25 Location: Русь
|
(Separately) Posted: Thu Jul 16, 2009 00:41 Post subject: |
|
|
Tol!k Спасибо, работает. _________________ Если струну не дотянуть – она не будет звучать.
Если перетянуть – она лопнет. |
|
Back to top |
|
 |
Tol!k

Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sat Nov 16, 2013 18:40 Post subject: |
|
|
Имя под курсором + .txt
Code: | ' File: Shift+F4.vbs
' Description: Кнопка для создания нового файла "Имя под курсором.txt"
' Requirements: WSH Helper for TC by Volniy
' Parameters: "%O"
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause=100
TCS.SendKeystroke "+{F4}"
TCS.SendKeystroke WScript.Arguments.Item(0) & ".txt"
Set TCS = Nothing
WScript.Quit
|
|
|
Back to top |
|
 |
|