Серый форум — VBS: SendKeys не вставляет текст

Re: VBS: SendKeys не вставляет текст

2020-11-04T08:48:05Z

griha09, это скрипт на макроязыке Far Manager. Код нужно сохранить под любым именем с расширением .lua в каталог %AppData%\Far Manager\Profile\Macros\scripts в кодировке UTF-8/65001 с BOM, вписав в параметр «key = "";» значение клавиш, нажатием которых данный макрос будет вызываться на исполнение, например, «key = "CtrlAltF2";».

Re: VBS: SendKeys не вставляет текст

2020-11-04T08:03:39Z

Прошу прощения, в какой скрипт данный код оформить? VBS не воспринимает.

Re: VBS: SendKeys не вставляет текст

2020-11-03T21:15:14Z

griha09 пишет:

ну это совсем уж OLD OLD OLD SCHOOL

Новая школа :

Macro {
	description = "Create text file with name under cursor";
	flags       = "";
	key         = "";
	area        = "Shell";
	condition   = "";

	action = function()
		local eFlags = far.Flags
		local iErrorMsgFlags = bit64.bor(0x00010000, 0x00000001)

		local sFile  = mf.fsplit(APanel.Current, 0x04) .. ".txt"

		if Panel.FExist(0, sFile) == 0 then
			editor.Editor(sFile, nil, 0, 0, -1, -1, bit64.bor(eFlags.EF_NONMODAL, eFlags.EF_CREATENEW, eFlags.EF_IMMEDIATERETURN))
			editor.SaveFile()
			editor.Quit()
		else
			mf.msgbox("File already exists", "\nFile [" .. sFile .. "] already exists\n\n", iErrorMsgFlags)
		end
	end;
}

Re: VBS: SendKeys не вставляет текст

2020-11-03T20:58:02Z

УРА!!! У меня получилось. Оказывается точку надо писать так "{.}" Нормально видит кирилицу. Работает только в англ. раскладке, да и фиг с ним.

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F2}" & "^{INSERT}" & "{Esc}" & "+{F4}" & "+{INSERT}" & "{RIGHT}" & "{.}" &"txt" & "{Enter}" 
WScript.Sleep 500
WshShell.SendKeys "+{INSERT}" & "{Enter}"  & "{Enter}"  & "{F2}"

Re: VBS: SendKeys не вставляет текст

2020-11-03T20:10:33Z

alexii пишет:

Оффтопиком: работайте в Far Manager:

ну это совсем уж OLD OLD OLD SCHOOL

сделал так:

Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
WshShell.SendKeys "{F2}" & "^{INSERT}" & "{Esc}"
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
file = clipboard & ".txt"
WshShell.SendKeys "+{F4}" & file & "{Enter}"
WScript.Sleep 500
WshShell.SendKeys "+{INSERT}" & "{Enter}" & "{Enter}" & "{F2}"

но эта зараза корректно работает только в ENG раскладке и только с ENG именами. Кирилицу просто не видит.

Re: VBS: SendKeys не вставляет текст

2020-11-03T14:13:42Z

Оффтопиком: работайте в Far Manager:

Keys("ShiftF4 ShiftEnter CtrlBS")
print("txt")
Keys("Enter F2 Esc")

Re: VBS: SendKeys не вставляет текст

2020-11-03T06:38:53Z

TC никогда не пользовался , — проверить, по крайней мере сейчас, не могу. Возможно, дело в текущей раскладке клавиатуры.
Попробуй добавлять «.txt» в буфер обмена или, вообще, получив текст из буфера обмена создавать файл уже без помощи SendKeys.

VBS: SendKeys не вставляет текст

2020-11-02T17:15:09Z

Работаю в Total Commander и периодически надо создавать txt-файл с названием файла под курсором. Для этого создал вот такой скрипт с вызовом через панель кнопок ТС:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F2}" & "^{INSERT}" & "{Esc}" & "+{F4}" & "+{INSERT}" & "{RIGHT}" & ".txt" & "{Enter}" 
WScript.Sleep 500
WshShell.SendKeys "+{INSERT}" & "{Enter}"  & "{Enter}"  & "{F2}"

все работает, кроме вставки ".txt"
Кто подскажет почему SendKeys не вставляет текст?