Вопрос по AppActivate

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
VKS
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 80
Зарегистрирован: 30.11.2006 (Чт) 15:40

Вопрос по AppActivate

Сообщение VKS » 15.10.2010 (Пт) 10:26

Помогите разобраться, пожалуйста!
Дано:
сервер без физически подключенного монитора
терминал mstsc

Проблема:
при поднятом mstsc - AppActivate работает на ура - требуемая программа фокусируется, но если
mstsc свернуть - AppActivate "вылетает"

Вопрос:
есть ли возможность заменить AppActivate, к примеру, на api чтобы была возможность выделять (фокусировать) некую программу независимо от наличия монитора и терминала?

0xy
Бывалый
Бывалый
 
Сообщения: 223
Зарегистрирован: 14.06.2006 (Ср) 2:34

Re: Вопрос по AppActivate

Сообщение 0xy » 19.10.2010 (Вт) 21:53


VKS
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 80
Зарегистрирован: 30.11.2006 (Чт) 15:40

Re: Вопрос по AppActivate

Сообщение VKS » 25.10.2010 (Пн) 10:45

спасибо за помощь, но не помогло.

Код: Выделить всё
        hdl = FindWindow(vbNullString, progCaption)
        If hdl > 0 Then
            PostMessage hdl, WM_KEYDOWN, VK_RETURN, 0
            PostMessage hdl, WM_KEYUP, VK_RETURN, 0
            PostMessage hdl, WM_CHAR, VK_RETURN, 0
        End If

не работает

Код: Выделить всё
        hdl = FindWindow(vbNullString, progCaption)
        If hdl > 0 Then
            SendMessage hdl, WM_KEYDOWN, VK_RETURN, 0
            SendMessage hdl, WM_KEYUP, VK_RETURN, 0
            SendMessage hdl, WM_CHAR, VK_RETURN, 0
        End If

не работает

как я только не извращался...
Код: Выделить всё
        hdl = FindWindow(vbNullString, progCaption)
        If hdl > 0 Then
            rt = SetForegroundWindow(hdl)
            If rt = 1 Then SendKeys progDoKey, True
        End If

*progDoKey = "{ENTER}"
не работает

идеи закончились

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Вопрос по AppActivate

Сообщение alibek » 26.10.2010 (Вт) 8:22

Попробуй использовать RDP ActiveX.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 128

    TopList