Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Активное окно / 12 сообщений из 12, страница 1 из 1
04.05.2006, 08:51
    #33705650
Barsss
Barsss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Подскажите пожалуйста, может кто знает, как с помощю VB6 узнать название активного окна, и как переключатся между окнами??????
Очень надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 09:41
    #33705768
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Public Declare Function GetForegroundWindow Lib "user32" () As Long

Public Declare Function GetWindowText Lib "user32" Alias _
  "GetWindowTextA" ( _
  ByVal hwnd As Long, _
  ByVal lpString As String, _
  ByVal cch As Long) As Long

Public Sub GetActiveWindow()
    Dim strWindowText As String
    Dim hwnd As Long
    
    strWindowText = String( 255 , Chr( 0 ))
        
    hwnd = GetForegroundWindow
    
    GetWindowText hwnd, strWindowText,  256 
    
    MsgBox strWindowText
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 10:19
    #33705913
Barsss
Barsss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Спасибо.
А как можно переключится на другое окно (сделать его активным) , зная его название???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 10:22
    #33705923
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Код: plaintext
1.
2.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 10:26
    #33705940
Barsss
Barsss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
А кусочек кода, если не затруднит конечно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 10:36
    #33705988
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Воспользуйтесь поиском по названиям функций.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 16:20
    #33707575
Barsss
Barsss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Почему работает толко один раз после второго нажатия на кнопку ничего не происходит?????


Private Sub Command1_Click()

l = FindWindow(vbNullString, "Безымянный - Блокнот")


Dim strWindowText As String
Dim hwnd As Long


strWindowText = String(255, Chr(0))

hwnd = GetForegroundWindow

GetWindowText hwnd, strWindowText, 256
If strWindowText = "Form1" Then ShowWindow l, 1
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 16:27
    #33707596
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
А что вы пытаетесь сделать с помощью ShowWindow l, 1 - показать окно? Так оно и так уже показано, раз вы нашли его через FindWindow. Чем SetActiveWindow не устроило?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 17:03
    #33707726
Barsss
Barsss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
С этим уже разобрался, большое всем спасибо!

Melkiades.... Чем SetActiveWindow не устроило?

Первым попался ShowWindow за него и зацепился.
А какие преймущества в SetActiveWindow?

И есть ещё один вопрос:
Как в активном окне сделать Click в нужном мне месте. Окно не является продуктом VB??
Премного благодарен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 17:17
    #33707764
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Barsss
А какие преймущества в SetActiveWindow?

Она как раз для этого и предназначена
Barsss
И есть ещё один вопрос:
Как в активном окне сделать Click в нужном мне месте. Окно не является продуктом VB??
Премного благодарен
Поиграйтесь с SendKeys.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 22:33
    #33708522
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
BarsssКак в активном окне сделать Click в нужном мне месте. Окно не является продуктом VB??
Премного благодарен
Или mouse_event , если кликнуть надо мышом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2006, 01:00
    #33708623
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активное окно
Melkiades Barsss
А какие преймущества в SetActiveWindow?

Она как раз для этого и предназначена

Думаю, что надо использовать SetForegroundWindow, если надо переключаться между приложениямию
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Активное окно / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 322ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165928]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 47ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 196ms
total:  322ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]