печать букв в блокноте - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

печать букв в блокноте, VBScript.интересно

Опции

печать букв в блокноте	24.11.2007 6:56 Сообщение #1
Гость	Вот я системно, возможностями vbs, открыл блокнот. Можно ли, как бы сказать так, эмулировать нажатие клавиш? Вот смотришь в блокнот и видишь, как там буквы вылетают. Надеюсь, изложил понятно.

Ответов

volvo	24.11.2007 13:56 Сообщение #2
Гость	Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "C:\Windows\Notepad.exe" WScript.Sleep(100) WshShell.AppActivate "Untitled - Notepad" WshShell.SendKeys "H" WScript.Sleep(500) WshShell.SendKeys "E" WScript.Sleep(500) WshShell.SendKeys "L" WScript.Sleep(500) WshShell.SendKeys "L" WScript.Sleep(500) WshShell.SendKeys "O" WScript.Sleep(500) WshShell.SendKeys "!" WScript.Sleep(500)

Гость	24.11.2007 19:03 Сообщение #3
Гость	Цитата(volvo @ 24.11.2007 9:56) Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "C:\Windows\Notepad.exe" WScript.Sleep(100) WshShell.AppActivate "Untitled - Notepad" WshShell.SendKeys "H" WScript.Sleep(500) WshShell.SendKeys "E" WScript.Sleep(500) WshShell.SendKeys "L" WScript.Sleep(500) WshShell.SendKeys "L" WScript.Sleep(500) WshShell.SendKeys "O" WScript.Sleep(500) WshShell.SendKeys "!" WScript.Sleep(500) Оо, класс! пасибо!

Гость	24.11.2007 19:07 Сообщение #4
Гость	при русской раскладке он латинские символы не печатает. это можно исправить?