wshom.ocx вроде 9-го года. Если только в wscript.exe или vbscript.dll дело.]]>
.ControlSend "[CLASS:Notepad]", "", "Edit1", "{ALTTDOWN}пн{ALTUP}"
.WinMenuSelectItem "[CLASS:Notepad]", "", "&Справка", "&О программе"
.ControlSend "[CLASS:Notepad]", "", "Edit1", "{ALTTDOWN}пн{ALTUP}"Если требуется вызвать диалог поиска, то проще эмулировать Ctrl+F:
.ControlSend "[CLASS:Notepad]", "", "", "^f"Либо в случае отсутствия хоткея непосредственно выбирать подпункт меню:
.WinMenuSelectItem "[CLASS:Notepad]", "", "&Справка", "&О программе"With CreateObject("AutoItX3.Control")
.Run "notepad.exe" : .WinWaitActive "[CLASS:Notepad]"
.ControlCommand "[CLASS:Notepad]", "", "Edit1", "EditPaste", "текст text"
End With<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity type="win32" name="AutoItX3.sxs" version="3.2.12.1" />
<file name="AutoItX3.dll">
<typelib
tlbid="{F8937E53-D444-4E71-9275-35B64210CC3B}"
version="1.0"
helpdir="" />
<comClass
clsid="{1A671297-FA74-4422-80FA-6C5D8CE4DE04}"
progid="AutoItX3.Control" />
</file>
<comInterfaceExternalProxyStub
name="ActiveX"
iid="{3D54C6B8-D283-40E0-8FAB-C97F05947EE8}"
proxyStubClsid32="{00020424-0000-0000-C000-000000000046}"
tlbid="{F8937E53-D444-4E71-9275-35B64210CC3B}" />
</assembly>
' Настраиваем кнопки диалога сообщения:
Msg = MsgBox("Нажмите Да для перехода в блокнот," & vbnewLine & _
"Нет - для перехода в WordPad" & vbnewLine & "Отмена - для других действий", 4099)
If Msg = 6 Then
Run "notepad", RUS, HK
WScript.Sleep 1000
WSH.SendKeys "т"
WSH.SendKeys "е"
WSH.SendKeys "с"
WSH.SendKeys "т"
WSH.SendKeys "%(пн)"
ElseIf Msg = 7 Then Run "%WinDir%\write.exe", ENG, HK
ElseIf Msg = 2 Then WScript.Echo "Другие действия!"
End If
ни чего в блокнот не уходит... Ни текстовые клавиши, ни комбинация клавиш не "уходят" в блокнот.
PS: Как считаете перейти с обсуждение схожего вопроса в ту тему, либо остаться тут продолжать? Может быть уважаемые гуру скриптописания предложат в этой теме варианты на сторонних библиотеках типа AutoItX3, dynwrap и т.п.
]]>
Dim WshShell, my_arr(16), index
' Создаем ссылку на объект
Set WshShell = WScript.CreateObject("WScript.Shell")
'Определяем элементы массива
my_arr(0) = "Э"
my_arr(1) = "т"
my_arr(2) = "о"
my_arr(3) = "{ENTER 2}"
my_arr(4) = "п"
my_arr(5) = "р"
my_arr(6) = "о"
my_arr(7) = "с"
my_arr(8) = "т"
my_arr(9) = "о"
my_arr(10) = "й"
my_arr(11) = "{ENTER 2}"
my_arr(12) = "т"
my_arr(13) = "е"
my_arr(14) = "к"
my_arr(15) = "с"
my_arr(16) = "т"
' Запускаем программу блокнот
WshShell.Run "Notepad.exe", 1
WScript.Sleep 1000
WshShell.SendKeys "(^+)"
' Используем цикл для перебора элементов массива
For each index in my_arr
' Имитируем нажатие клавиши
'msgbox index
WshShell.SendKeys(index)
' Делаем задержку в 500 миллисекунд
WScript.Sleep 500
Next
Этот пример отрабатывает при условии что настройка клавиатуры по умолчанию установлена в рус.
Но если раскладка системы установлена в Eng и я добавляю строку WshShell.SendKeys "(^+)" , т.е. сочетание клавиш CTRL+SHIFT (так у меня настроена смена раскладки), то в момент работы скрипта я вижу, что в языковой панели индикатор активного языка меняется на нужный мне (на рус), но при этом в блокнот поступает следующая последовательность символов: ] и 4 Enter (4 перехода на новую строку).