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