Работа с меню програмно

[xenomorph]

Вопрос:

Как работать с меню програмно?
- т.е. через АПИ + программа внешняя - я в гипертерминале хочу выделить текст и скопировать -
единственный божеский вариант -
выделить меню "Выделить всё", "Копировать".

Если можно - скажу огромное спасибо за кусочек кода \ линк!
--
Огромное спасибо заранее!

[ANDLL]

Гм. на вопрос не отвечу, но вот один момент:

Как работать с меню програмно?

А что, можно еще аппаратно? Следует писать из кода

[Amed]

а) ищем главное окно Гипертерминала
б) ищем собственно окно терминала
в) шлём WM_COPY или WM_COPYDATA

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const WM_COPYDATA = &H4A
Private Const WM_COPY = &H301

Private Sub Form_Load()
Dim wWnd As Long, wWnd2 As Long

wWnd = FindWindow("SESSION_WINDOW", vbNullString)
wWnd2 = FindWindowEx(wWnd, ByVal 0&, "Term Class", vbNullString)

SendMessage wWnd2, WM_COPY, 0, 0
SendMessage wWnd2, WM_COPYDATA, 0, 0
End Sub


[xenomorph]

2ANDLL:

. Спасибо за дельный совет! *)

2Amed:

> а) ищем главное окно Гипертерминала
> б) ищем собственно окно терминала
> в) шлём WM_COPY или WM_COPYDATA

... я пробовал так:

...
Clipboard.SetText "Test"
SendMessage wWnd2, WM_PASTE, 0, 0
Clipboard.Clear
SendMessage wWnd2, WM_COPY, 0, 0
MsgBox Clipboard.GetText
...

Так как хотел прописать текст в окно гипертерминала.
А затем считать его ...
Так вот ИМХО финт ушами не проходит 8(.
Его окно не обрабатывает ни
Set \ GetWindowText ни WM_COPY \ WM_PASTE ...

Я думал что технология работы с менюшками через АПИ
уже успешно освоена всеми кроме меня .

А тут ...

'==================================
l_hwndMenu = GD.GetMenu(Me.hWnd)

'Общее кол-во Меню
Text1 = GetMenuItemCount(l_hwndMenu)

l_hwndSubMenu = GetSubMenu(l_hwndMenu, 0)
Text1 = GetMenuItemCount(l_hwndSubMenu)

Dim Menu As MENUITEMINFO
Text1 = GetMenuItemInfo(l_hwndSubMenu, 1, 1, Menu)
MsgBox Menu.hSubMenu
'==================================

Вроде всё ОК ... вот только я не понимаю как к субменю
добраться и его активировать 8(((.


Может кто пример с вот этой радостью кинет?:

GetMenuItemInfo ...

--
Спасибо!

[xenomorph]

Вопрос в догонку:

Может кто подскажет как ИЗ КОДА (ИМХО программно, а не мышью -
т.е. аппаратно )) сэмулировать:

1. Нажатие правой клавиши - контекстное меню.
2. Выбор опред. меню и его клик - т.е. выполнение.
--
Заранее спасибо!

[GSerg]

Это эмулируется путём посыла окну то ли WM_COMMAND, то ли WM_MENUCOMMAND с идентификаторами команды в параметрах...

[tyomitch]

The WM_MENUCOMMAND message is sent only for menus that are defined with the MNS_NOTIFYBYPOS flag set in the dwStyle member of the MENUINFO structure.

Так что слать надо WM_COMMAND.

[GSerg]

Гы. А ты откуда знаешь, стоИт ли notifybypos?

[tyomitch]

Тоже верно
Значит, слать надо оба

[xenomorph]

Всем спасибо за участие!

Пример - тихо вдавливает меню "Выделить всё"
в гипертерминале. Оформлено функцией.

8((*

2 Модераторы:

Проблема с закачкой: Невозможно закачать приложение в ./files/clickmp.rar.

??? Was fur ein?

В модуль:
'===============================
' Menusel sample from BlackBeltVB.com
' http://blackbeltvb.com
'
' Written by Matt Hart
' Copyright 1999 by Matt Hart

Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As Any) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Public Const WM_COPYDATA = &H4A
Public Const WM_COPY = &H301
Public Const WM_MENUSELECT = &H11F
Public Const WM_COMMAND = &H111
Public Const MIIM_TYPE = &H10
Public Const MIIM_ID = 2
Public Const MF_MOUSESELECT = &H8000&

Public Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Public Sub SelectMenuAndLoad(l_WindowHandle As Long, l_MenuInRowNumber As Long, l_MenuColNumber As Long)

Dim hmirc As Long, hMenu As Long, hSubMenu As Long
Dim l As Long, M As MENUITEMINFO

If l_WindowHandle Then
hMenu = GetMenu(l_WindowHandle)
If hMenu Then 'Я идиот! Убейте меня, кто-нибудь!??? ???? ?? Я идиот! Убейте меня, кто-нибудь!??
hSubMenu = GetSubMenu(hMenu, l_MenuInRowNumber)
If hSubMenu Then
M.fMask = MIIM_TYPE Or MIIM_ID
M.dwTypeData = Space$(128)
M.cbSize = Len(M)
M.cch = 128 'Я идиот! Убейте меня, кто-нибудь!? Я идиот! Убейте меня, кто-нибудь!?? Я идиот! Убейте меня, кто-нибудь!?? (2 Я идиот! Убейте меня, кто-нибудь!??? ????.???)
l = GetMenuItemInfo(hSubMenu, l_MenuColNumber, True, M)
If l Then
'MsgBox M.wID & " " & Left$(M.dwTypeData, InStr(M.dwTypeData, Chr$(0)) - 1)
End If
l = SendMessage(l_WindowHandle, WM_COMMAND, M.wID, ByVal hSubMenu)
End If
End If
End If

End Sub

'=================================
'на форму

Option Explicit

Private Sub Command1_Click()

Dim wWnd As Long

wWnd = FindWindow("SESSION_WINDOW", vbNullString)

Call mod_Aux.SelectMenuAndLoad(wWnd, CLng(Text1), CLng(Text2))

End Sub