Как организовать окошко ввода по Shift+F4 аналогично F7?

[Tol!k]

SilverVox

Код: Выделить всё

'  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

[SilverVox]

Tol!k Спасибо, работает.

[Tol!k]

Имя под курсором + .txt

Код: Выделить всё

'  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