помогите люди добрые

[Андрей_2002]

Такая задача:
1) активировать свернутое окно приложения
2) каким то образом эмулировать нажатие клавишь - Alt S "вниз ""вправо" enter

Помогите пожалуйста Очень ОЧЕНЬ нужно сделать эту фигню

[Ennor]

Для активации свернутого окна - SetForegroundWindow(), API-функция есть такая. Для посылок клавиш можно басиковый SendKeys использовать, а можно опять-таки API-шный SendMessage() - эта штука вообще универсальная.

А вообще, скорее всего, все это есть в примерах на этом сайте. Поройся, наверняка есть...

[Андрей_2002]

Спасибо, что так быстро ответили, но можно поподробнее - дело в том, что я практически не сталкивался с программированием ((
но на работе получил такое задание (( (не знаю с чего они взяли, что я программист), но отвертеться от работы не получится так-что если вас не затруднит опишите подробнее как это сделать
За ранее благодарен

[xolod]

...я практически не сталкивался с программированием... на работе получил такое задание... не знаю с чего они взяли, что я программист

no comment

Ах, да, пример...

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

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
Call SetForegroundWindow(Me.Hwnd)
Call SendKeys("%S")
Call SendKeys("{DOWN}")
Call SendKeys("{RIGHT}")
Call SendKeys("{ENTER}")
End Sub


Только не понятно, какое окно ты хочешь активировать, если свое (как в примере, то проше написать Me.Show), а если чужое то тебе его еще найти надо...

[Андрей_2002]

Спасибо за пример.
мне нужно активизировать окно не данного проекта, а программы которая свернута (кнапример - windowtool) - что нужно написать что бы развернуть эту прогу (так что-ли Call SetForegroundWindow(windowtool))

[Amed]

Какой точно заголовок у этой программы?

[Amed]

Вот такой пример должен работать:

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    Dim lHandle As Long
    lHandle = FindWindow(vbNullString, "xxx")
    lHandle = SetForegroundWindow(lHandle)
    Call SetForegroundWindow(Me.Hwnd)
    Call SendKeys("%S")
    Call SendKeys("{DOWN}")
    Call SendKeys("{RIGHT}")
    Call SendKeys("{ENTER}")
End Sub


Только вместо 'xxx' в кавычках должен быть точный заголовок окна той программы.

[Андрей_2002]

Большое человеческое СПАСИБО за помощь...

[Андрей_2002]

Извините за хлопоты, но может быть если конечно не трудно скажите как узнать значение RGB определенного (координаты известны и постоянны) пикселя (не на создаваемой программе, а вообще на любом из приложений, которые в данный момент развернуты)

[xolod]

Использовать ф-цию GetPixel

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

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long


Она возвратит цвет в формате длинного целого, чтобы вырвать значения КЗС, используем не хитрую ф-цию

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

Function ExtractRGB(byval Color as long, byref R as byte, byref G as byte, byref B as byte)
  R=Color mod 256
  G=Color \ 256 mod 256
  B=Color \ 65536 mod 256
End Function


После этого в переданных переменных R, G и B будут содержаться данные цветности

[timsoft]

всем привет
извините, что встреваю

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

[Amed]

Ну, теоретически - можно. Сначала ищем hWnd родительского окна. Потом ищем его дочерние окна, из них выбираем нужное.
Потом

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

SendMessage hWnd, WM_ACTIVATE, 1, 0


И, наконец, SendKeys.

[timsoft]

Потом ищем его дочерние окна

а какая функция для поиска дочерних окон? тот же FindWindow?

[tyomitch]

FindWindowEx и WM_MDIACTIVATE

[Amed]

Ага, спасибо за поправку. Совсем забыл, что для MDI по-другому всё.

[Андрей_2002]

Использовать ф-цию GetPixel

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

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long


Она возвратит цвет в формате длинного целого, чтобы вырвать значения КЗС, используем не хитрую ф-цию

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

Function ExtractRGB(byval Color as long, byref R as byte, byref G as byte, byref B as byte)
  R=Color mod 256
  G=Color \ 256 mod 256
  B=Color \ 65536 mod 256
End Function


После этого в переданных переменных R, G и B будут содержаться данные цветности

Что то я никак не пойму как указать координаты пикселя ???

[Konst_One]

посмотри API ф-ю GetCursorPos

[timsoft]

FindWindowEx и WM_MDIACTIVATE

tyomitch, выручай!
объясни тупому на пальцах

нифига не выходит
hwnd проги нашел, а вот вызов

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

currentDocHwnd = FindWindowEx(MainApp_hWnd, 0&, vbNullString, "c:\doc.txt")

возвращает 0 и все...

[tyomitch]

Проверь spyxx - на месте ли окно...
Если на месте, проверь, правильно ли пишешь заголовок
Больше идей нет...

[Ennor]

Эээ. А кто вам сказал, что в вашем случае wndClassName = vbNullString ? Сколько писал, ни разу такого не видел...

[timsoft]

Эээ. А кто вам сказал, что в вашем случае wndClassName = vbNullString ? Сколько писал, ни разу такого не видел...

перерыл msdn -- мало что про классы нашел
одни константы типа WS_EX_MDICHILD

че туда вписать-то?
выручайте

Ennor, кстати можно на "ТЫ"

[Ennor]

Когда я говорил "вы", я просто обращался ко всем участникам обсуждения. На "ты", конечно же, можно.
По теме: лезешь Spy++ и смотришь имя класса. Они в VB все похожие и кастомизации практ. не поддаются - типа ThunderRT6...<чегототам>. Выясни конкретное имя класса и его туда подставляй. Да: по маске он не ищет

[tyomitch]

Ennor, vbNullString значит "любой класс", т.ч. в коде timsoft-а всё верно...

[Ennor]

Проблема тут в том, что в MSDN нигде не сказано, что vbNullString = любой класс. Применительно ко всем остальным параметрам этой функции описаны ситуации, если этот/эти параметры выставлены в NULL, а для этого - нет. Так что я не удивлюсь, если в вышеуказанной форме вызова функция пытается найти окно с отсутствующим именем класса, либо равным пустой строке (а таких, насколько я понимаю, существовать не может), и, естественно, обламывается по этому поводу.

[Андрей_2002]

посмотри API ф-ю GetCursorPos

Блин,,,,ничего не могу понять как указать ((((

[GSerg]

Кончайте страдать фигнёй...
Тёмычу плюшка за незнание этой фишки

На главном окне нужно найти окно с классом MDIClient. И вот уже в нём...

[tyomitch]

Дык я же посоветовал spyxx-ом посмотреть, вместо философию разводить... Плюшка принята.

Ennor, философия - это хорошо, но кто же мешает проверить?

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

Option Explicit

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 Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Sub Main()
Dim Name As String * 256, hWnd As Long
Do
    hWnd = FindWindowEx(0, hWnd, vbNullString, vbNullString)
    If hWnd = 0 Then Exit Do
    Debug.Print Left(Name, GetClassName(hWnd, Name, 256))
Loop
End Sub


[Андрей_2002]

Использовать ф-цию GetPixel

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

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long


Она возвратит цвет в формате длинного целого, чтобы вырвать значения КЗС, используем не хитрую ф-цию

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

Function ExtractRGB(byval Color as long, byref R as byte, byref G as byte, byref B as byte)
  R=Color mod 256
  G=Color \ 256 mod 256
  B=Color \ 65536 mod 256
End Function


После этого в переданных переменных R, G и B будут содержаться данные цветности

Что то я никак не пойму как указать координаты пикселя ???

как указать координаты пикселя ???

[Konst_One]

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


Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

'вызов такой
dim ret as long
dim pt as POINTAPI

ret=GetCursorPos(pt)
'теперь у тебя есть координаты текущей позиции курсора в pixels
debug.print pt.x
debug.print pt.y


дерзайте дальше

[Андрей_2002]

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


Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

'вызов такой
dim ret as long
dim pt as POINTAPI

ret=GetCursorPos(pt)
'теперь у тебя есть координаты текущей позиции курсора в pixels
debug.print pt.x
debug.print pt.y


дерзайте дальше

Как это применить к вышесказанному