Программно напечатать в неактивный блокнот слово

[Ghepard]

Каков принцип этого действия?
Находим открытый блокнот, и посылаем в него текст?
Подскажите какие операторы используются, если можно код.

[Ghepard]

получил хэндл текущего блокнота, как применить эти цифры для отправки в него текста?

Код: Выделить всё

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" _
                Alias "PostMessageA" (ByVal hwnd As Long, _
                                      ByVal wMsg As Long, _
                                      ByVal wParam As Long, _
                                      ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10
Private Sub Command1_Click()
Dim hWndActive As Long
Dim EndTime As Date
MsgBox "2 sek viberete okno"

EndTime = DateAdd("s", 2, Now)
Do Until Now > EndTime
    DoEvents
Loop
 

hWndActive = GetForegroundWindow()
Text1.Text = hWndActive

End Sub

[Diamock]

Обязательно сразу в блокнот?
Не проще, записать в файл и открыть в блокноте?

[Ghepard]

блокнот как пример и видимо неудачный) послать нажатия клавиш клавиатуры либо мышки в неактивную программу

[Qwertiy]

SendMessage же. Можно узнать, в чём вообще проблема?

[Debugger]

SendMessage же. Можно узнать, в чём вообще проблема?

Судя по примеру кода, человеку не получить хендл нужного окна.

[ger_kar]

Вообще можно воспользоваться утилитой Spy++ из состава Visusl Studio 6 и посмореть, хендл окна через него сравнивая с тем, что возвращает код приложения на VB, а заодно и посмотреть доходят ли оконные сообщения в нужное окно.

[Ghepard]

а что с кодом не так? 2 секунды есть чтобы выделить нужное окно и после считывается его хэндл, может что-то и не так, но цифарки менялись на разных окнах.

"SendMessage" можно пример с использованием хендла?
допустим хендл 1234567, а послать проге неактивной надо букву "t"

[kiber_punk]

Как вариант, можете не заморачиваться, а использовать, например, метод ControlSend библиотеки AutoitX3.dll.

[bon818]

а что с кодом не так? 2 секунды есть чтобы выделить нужное окно и после считывается его хэндл, может что-то и не так, но цифарки менялись на разных окнах.

Код вернет хэндл диалогового окна, и посланные в него символы попадут в заголовок этого окна.

"SendMessage" можно пример с использованием хендла?
допустим хендл 1234567, а послать проге неактивной надо букву "t"

Отправить текст в окно можно так

Код: Выделить всё

Declare Function SendMessageW Lib "User32.dll" _
    (ByVal hWnd As Long, ByVal dwMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long
Const WM_SETTEXT = &HC
......
sTxt AS STRING = Привет Вася
SendMessageW хэндл_окна, WM_SETTEXT, 0, StrPtr(sTxt)
ИЛИ
bTxt() AS BYTE = Привет Вася
SendMessageW хэндл_окна, WM_SETTEXT, 0, VarPtr(bTxt(0))
......

[Хакер]

Он хочет допечатать, а не заменить.

[Ghepard]

да действительно используется шапка блокнота, а не поле ввода( и заменяется на пустоту а не на то что ввел.
про AutoitX3.dll почитал скачал, пока не знаю как пользоваться
прочитал в инструкции к программе uoPilot(програмка кликер для игр) следующее: "Примечание: если задан цвет2, то цвет точки проверяется на принадлежность диапазону от цвет до цвет2. Учтите, что проверка цвета в определенных координатах корректно работает только при развернутом окне ультимы." И сразу натолкнуло меня это на мысль, что это очень не просто. Можно ли получить средствами VB6 скрин игрушки, которая свёрнута?

[Mikle]

Можно ли получить средствами VB6 скрин игрушки, которая свёрнута?

А ты уверен, что вообще корректно говорить про скриншот свёрнутого окна?

[Ghepard]

нет, а как бы вы это назвали?
в инете есть темка, называют именно так http://www.cyberforum.ru/delphi/thread1242100.html

[bon818]

заменяется на пустоту а не на то что ввел.

заменяется на содержимое перемененной sTxt

про AutoitX3.dll почитал скачал, пока не знаю как пользоваться

метод ControlSend библиотеки AutoitX3.dll, это та же SendMessage только в виде функции\макроса для Autoit.

[kiber_punk]

Например, так:

Код: Выделить всё

Set oAutoIt = CreateObject
("AutoItX3.Control")
oAutoIt.ControlSend "Безымянный - Блокнот",
"", "Edit1", "Строка текста"