Как вычислить handle окна Program Manager?

[extHack]

Хелп, нужен именно handle Program Manager. Чтобы API функция MessageBox принимала этот хендл, а не проги моей. А то в таск менеджере уже бесит.

Я парсил все handl'ы есть другой способ, или оптимизировнный?

[ANDLL]

Хм. А шойто?

[keks-n]

Находинь PID Program Manager'а а потом по етому PID находишь нужное. Быстрее наверно никак(ИМХО)

[alibek]

Я парсил все handl'ы есть другой способ, или оптимизировнный?

А как можно парсить handle? Не поделишься секретом?

[extHack]

поделюсь

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

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) 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 Function EnumWindowProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
   
  'Define local variables
  Dim nSize As Long
  Dim sTitle As String
  Dim sClass As String
  Dim sHwnd As String
  Dim pos As Integer
  Dim iPad As Integer
  Dim incHandle As String
  Dim defHandle As String
 
  'Error handler
  On Error Resume Next
 
  'Clear sTitle and sClass 20h symbol
  sTitle = Space(MAX_PATH)
  sClass = Space(MAX_PATH)
 
  'Call function's
  Call GetClassName(hwnd, sClass, MAX_PATH)
  Call GetWindowText(hwnd, sTitle, MAX_PATH)
 
  'Math positions
  pos = InStr(sClass, Chr(0))
  If pos Then
      sClass = Left(sClass, pos - 1)
  End If
   
  pos = InStr(sTitle, Chr(0))
  If pos Then
      sTitle = Left(sTitle, pos - 1)
  End If
 
  'Get data
  sClass = Left(Trim(sClass) & Space(38), 38)
  sHwnd = Left(Trim(CStr(hwnd)) & Space(10), 10)
  sTitle = Left(Trim(sTitle) & Space(34), 34)
   
  'Format title
  incHandle = LTrim(sTitle)
  incHandle = RTrim(incHandle)
  incHandle = LCase(incHandle)
 
  'Find handle of program manager
  'before, incHandle formatting to empty
  'format. If handle found -> add to prgHandle
  If incHandle = "program manager" Then
    defHandle = sHwnd
    prgHandle = Val(LTrim(RTrim(sHwnd)))
  End If

  'Send answer
  EnumWindowProc = 1

End Function


[alibek]

А в чем выражается парсинг?
Значение глагола parse -- проводить стркутурный анализ, разбирать предложение.
Как можно парсить Handle, который является числом?

[ANDLL]

Общий смысл явления ясен.

Не понятно, при чем тут парсинг? Почему бы не назвать это инжектингом или маршалингом? Или скажем, нахождением алгебраического дополнения к базисному минору?

[keks-n]

Не придирайтесь к словам. Человек сказать красиво хотел, а вы...

[Amed]

Сказал глупость. Мы придираемся не потому, что мы такие крутые и умные, а чтобы ошибки не плодились.

Я тоже могу сказать "астрофизический хендл хук-токена". Красиво?

[keks-n]

Красиво но непонятно (слово Token входит в декларации 14 API из тех, что видны из стандартной базы(Microsoft Visual Studio\COMMON\Tools\Winapi\WIN32API.txt) ). Да, ты прав.

[RUSYA]

У диспетчера задач заголовк окна есть... и есть FindWinow, если я конечно вопрос правельно понял...

[vvs_adm]

Как можно парсить Handle, который является числом?

Проверить, является ли Handle простым числом или составным. Если составным - разбить на множители. Множители представить в двоичном виде и ...