Помощь - Поиск - Пользователи - Календарь
Полная версия: печать букв в блокноте
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ада и другие языки
печать букв в блокноте
Вот я системно, возможностями vbs, открыл блокнот. Можно ли, как бы сказать так, эмулировать нажатие клавиш?
Вот смотришь в блокнот и видишь, как там буквы вылетают. Надеюсь, изложил понятно.
volvo
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)
Гость
Цитата(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)


Оо, класс! пасибо!
Гость
при русской раскладке он латинские символы не печатает. это можно исправить?
Гость
можно раскладку переключать?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.