Активное окно! :(

[hackman]

Прогеры...помогите найти активное окно с которым работаем пользователь и запись это окна в блокнот(тоесть его имени)... Очень надо... Заранее спасибо всем...! Админ не бань...если такая тема есть то я ее в поиске не нашел!

[keks-n]

GetForegroundWindow, GetWindowText(или SendMessage с WM_GETTEXT)

[hackman]

Я вот получил какие то цифры а как получить имя:
Вот пример:

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

Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Sub Form_Load()
MsgBox GetActiveWindow
End Sub

[EUGY]

Я вот получил какие то цифры

Мы получили хендл (hwnd) какого-то окна.

Пошлем же в это окно сообщение WM_GETTEXT
(подготовив строковый буфер для приема данных):

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



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 Sub Form_Load()
    Dim hw As Long
    Dim msgval As Long
    msgval = &HD 'WM_GETTEXT
    Dim stbuf As String * 1024 ' назовем это буфер
    hw = GetActiveWindow()
    Call SendMessage(hw, msgval, 1024, ByVal stbuf)
    Debug.Print stbuf
End Sub


Насчет записи в блокнот - не помню, но наверное можно..

[hackman]

Большое спасибо создателям форума и отвечающим! Форум рулит!

[hackman]

Тема еще не закрыта...

Этот код опряделяет имя только своего окна...а нужна посторонних...если даже быть точным то wow.exe

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

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 GetActiveWindow Lib "user32" () As Long


Private Sub Timer1_Timer()
Dim hw As Long
    Dim msgval As Long
    msgval = &HD 'WM_GETTEXT
    Dim stbuf As String * 1024 ' назовем это буфер
    hw = GetActiveWindow()
    Call SendMessage(hw, msgval, 1024, ByVal stbuf)
    MsgBox stbuf
    Open "c:\1.txt" For Append As #1
    Print #1, stbuf
    Close #1
End Sub


C этим кодом он опредялет имя только своей проги...а остольных нет...
ПОМОГИТЕ...

[burik]

Тебе же сразу сказали: юзай GetForegroundWindow и GetWindowText. В чем проблема?

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


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

Private Sub Timer1_Timer()
Dim hw As Long, rv As Long
Dim strCapt As String * 1024
    hw = GetForegroundWindow()
    rv = GetWindowText(hw, strCapt, 1024)
    MsgBox strCapt
End Sub


[hackman]

Спасибо! Сам я точно еще не скоро бы разобрася..