No logro encontrar handle a SysListView32 de taskmanager

[x64core]

Estoy chequeando que el Tab Control es 1 (procesos)

el de Aplicaciones por ejemplo sería  0 (cero)
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 0 Then



Private Const TCM_FIRST = &H1300 
Private Const TCM_GETCURSEL = (TCM_FIRST + 11)

gracias  yo lo unico que no entendi muy bien fue la ultima parte:

Código [Seleccionar] Expandir

HwTab = FindWindowEx(HwndTask, 0, "SysTabControl32", vbNullString)
   
   If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then
     HwLv = FindWindowEx(HwndTask, 0, "#32770", vbNullString)
     HwLv = FindWindowEx(HwLv, 0, "SyslistView32", vbNullString)
   End If

todo lo anterior y todas las demas funciones las entendi bien solo esta parte porq yo utilizaba esto:

Código [Seleccionar] Expandir

     HwLv = FindWindowEx(HwndTask, 0, "#32770", vbNullString)
     HwLv = FindWindowEx(HwLv, 0, "SyslistView32", vbNullString)

por eso no entiendo bien que hace esto:

Código [Seleccionar] Expandir

HwTab = FindWindowEx(HwndTask, 0, "SysTabControl32", vbNullString)
   
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then

[Hasseds]

por eso no entiendo bien que hace esto:

Código [Seleccionar] Expandir

HwTab = FindWindowEx(HwndTask, 0, "SysTabControl32", vbNullString)
 
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then

Estoy chequeando que el Tab Control es 1 (procesos)

el de Aplicaciones por ejemplo sería  0 (cero)
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 0 Then



Private Const TCM_FIRST = &H1300  
Private Const TCM_GETCURSEL = (TCM_FIRST + 11)

' Este es el Hwnd del TabControl (Pestañas de Aplicaciones, Procesos, rendimiento, Funciuones de Red, Usuarios)
HwTab = FindWindowEx(HwTask, 0, "SysTabControl32", vbNullString)


Y aquí chequeas que la Pestaña activa del TabControl sea igual a uno (la de procesos, que es la que contiene el SyslistView32 que te interesa,)
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then


http://msdn.microsoft.com/en-us/library/bb760583(v=vs.85).aspx




Aclaracion: seria mas facil usar FindWindow en lugar de la Function HwndTask

Código (vb) [Seleccionar] Expandir


  Dim HwTask As Long
  Dim HwChild As Long
  Dim HwTab As Long
  Dim HwLv As Long
 
  HwTask = FindWindow("#32770", vbNullString) ' FindWindow en lugar de la Function HwndTask

 
  If HwTask <> 0 Then
    HwTab = FindWindowEx(HwTask, 0, "SysTabControl32", vbNullString)
    If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then
      HwChild = FindWindowEx(HwTask, 0, "#32770", vbNullString)
      HwLv = FindWindowEx(HwChild, 0, "SyslistView32", vbNullString)
    End If
  End If


Pero como hay mas ventanas en el sistema con la misma Disposición, (Por ejemplo Propiededes de Pantalla en XP), esto podría prestarse a errores y darte una mala información. Por eso en este caso es preferible usar la la Function HwndTask.

http://foro.elhacker.net/programacion_visual_basic/no_logro_encontrar_handle_a_syslistview32_de_taskmanager-t332950.0.html;msg1636759#msg1636759

[Hasseds]

Edito: olvidé unos parentesis en el codigo original

http://foro.elhacker.net/programacion_visual_basic/no_logro_encontrar_handle_a_syslistview32_de_taskmanager-t332950.0.html;msg1636759#msg1636759

Código [Seleccionar] Expandir



Private Function IsWinBorder(ByVal hwnd As Long) As Boolean
   If (GetWindowLong(hwnd, &HFFF0) And &H800000) = &H800000 Then IsWinBorder = True
End Function



[x64core]

sale tio  gracias tu codigo me a ayudado bastante