IPB
ЛогинПароль:

> Внимание!

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

> печать букв в блокноте, VBScript.интересно
печать букв в блокноте
сообщение 24.11.2007 2:56
Сообщение #1


Гость
Вот я системно, возможностями vbs, открыл блокнот. Можно ли, как бы сказать так, эмулировать нажатие клавиш?
Вот смотришь в блокнот и видишь, как там буквы вылетают. Надеюсь, изложил понятно.
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов
volvo
сообщение 24.11.2007 9: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 15: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 15:07
Сообщение #4


Гость
при русской раскладке он латинские символы не печатает. это можно исправить?
 К началу страницы 
+ Ответить 
Гость
сообщение 24.11.2007 15:17
Сообщение #5


Гость
можно раскладку переключать?
 К началу страницы 
+ Ответить 

Сообщений в этой теме
печать букв в блокноте   печать букв в блокноте   24.11.2007 2:56
volvo   Set WshShell = WScript.CreateObject("WScript....   24.11.2007 9:56
Гость   Set WshShell = WScript.CreateObject("WScript...   24.11.2007 15:03
Гость   при русской раскладке он латинские символы не печа...   24.11.2007 15:07
Гость   можно раскладку переключать?   24.11.2007 15:17

« Предыдущая тема · Другие языки · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 25.06.2025 0:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"