VB6, EnumWindows, PID и консоль

[Tamplier]

Не получаетсчя определить хендл консоли. Везде посмотрел, все сделал, пробовал даже откомпилированное приложение запускать, все равно никаким боком не накодит.

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

'CallBack EnumWindows
Public Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Boolean
   
    Dim lngCurProcId As Long, lngWinThrProcId As Long, lngPId
   
    lngCurProcId = GetCurrentProcessId
    lngWinThrProcId = GetWindowThreadProcessId(hWnd, lngPId)
    ConsoleWrite CStr(lngCurProcId) & " - " & CStr(lngWinThrProcId) & vbCrLf
   
    If lngCurProcId = lngWinThrProcId Then
        hCon = hWnd
        EnumWindowsProc = False
    Else
        EnumWindowsProc = True
    End If
   
End Function


Выходит список процессов, причем ни один не совпадает с текущим. Что странно, даже во время отладки не находит окно самого VB...

Может кто подсказать, в чем дело?

[Viper]

У тебя lngPId объявлена как Variant, не отсюда ли ноги растут? И как объявлена GetWindowThreadProcessId?

[Tamplier]

У тебя lngPId объявлена как Variant

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

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

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long


[alibek]

Не там. В функции.

[Tamplier]

Не там. В функции.

Не понял. Как это "в функции"? В какой функции. CallBack приведен полностью. Объявлена функция в модуле. И вообще, программа состоит из одного модуля.

[alibek]

Dim lngCurProcId As Long, lngWinThrProcId As Long, lngPId As Long

[Tamplier]

Dim lngCurProcId As Long, lngWinThrProcId As Long, lngPId As Long

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

Это я вынул из какого-то примера и так понял, что GetWindowThreadProcessId возвращает идентификатор процесса, а как оказалось, он его присваивает, в данном случае, lngPId. Но тогда вопрос, а что тогда такое возвращает функция?

[tyomitch]

а MSDN открыть не дано?

Return Values
The return value is the identifier of the thread that created the window.

[Tamplier]

Да? А почему он тогда не находит прочесс, открывший консоль? И почему значения lngPId отличается от того, что возвращает функция?

[tyomitch]

И почему значения lngPId отличается от того, что возвращает функция?

Читать умеешь?

[Tamplier]

И какая разница? Разве не один и тот же процесс создает окно и родитель ему, если ничего насильно не менять?

[Kovu]

Tamplier
Ты вправду не читаешь до конца что тебе пишут? tyomitch тебе намекает, что функция возвращает ThreadID который естественно не равен ProcessID.

[Tamplier]

Ты вправду не читаешь до конца что тебе пишут? tyomitch тебе намекает, что функция возвращает ThreadID который естественно не равен ProcessID.

Упс... Прошу прощения. Я не заметил, что там ThreadID, а не ProcessID... Глаза кривые, слепые и прочие радости жизни. Еще раз прошу прощения.

[Kovu]

Tamplier
Вот немного изменённый код, проверял естественно вне консоли.

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


Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
   
    Dim lngCurProcId As Long, lngWinThrProcId As Long
   
    lngCurProcId = GetCurrentProcessId
      GetWindowThreadProcessId hwnd, lngWinThrProcId
    ConsoleWrite CStr(lngCurProcId) & " - " & CStr(lngWinThrProcId) & vbCrLf
   
    If lngCurProcId = lngWinThrProcId Then
        hCon = hwnd
        Debug.Print "success"
        EnumWindowsProc = False
    Else
        EnumWindowsProc = True
    End If
   
End Function


[Tamplier]

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