Option Explicit
 
Private Sub Form_Load()
 
  AutoRedraw = True
  Call SetTimer(hwnd, &H0, &H14, AddressOf TimerProc)
 
End Sub
 
 
 

 
Option Explicit
 
'Modulo: HwndTask
'Autor: Sergio Desanti (Hasseds)
'Test: XP (32 BIT) & W7/UAC (32 BIT)
'Retorno:  Hwnd del administrador de tareas
 
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Private Declare Function EnumChildWindows Lib "user32" (ByVal hwndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal wIndx As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwprocessid As Long) As Long
 
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Dim RetEnumHwndParent As Long
Dim RetEnumHwndChilds As String
 
Public Function HwndTask() As Long
   Call EnumWindows(AddressOf EnumHwndParent, ByVal &H0)
   HwndTask = RetEnumHwndParent
End Function
 
Private Function EnumHwndParent(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
   RetEnumHwndParent = 0
   RetEnumHwndChilds = ""
   If Not IsWinBorder(hwnd) = False And GetClase(hwnd) = "#32770" Then
     Call EnumChildWindows(hwnd, AddressOf EnumHwndChilds, ByVal &H0)
     If RetEnumHwndChilds = "DavesFrameClass" Then
       RetEnumHwndParent = hwnd
       Exit Function
     End If
   End If
   EnumHwndParent = True
End Function
 
Private Function EnumHwndChilds(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
   RetEnumHwndChilds = GetClase(hwnd)
   If RetEnumHwndChilds = "DavesFrameClass" Then Exit Function
   EnumHwndChilds = True
End Function
 
Private Function GetClase(ByVal hwnd As Long) As String
   GetClase = Space$(&H10) '
   GetClase = Left$(GetClase, GetClassName(hwnd, GetClase, &H10))
End Function
 
Private Function IsWinBorder(ByVal hwnd As Long) As Boolean
   If (GetWindowLong(hwnd, &HFFF0) And &H800000) = &H800000 Then IsWinBorder = True
End Function
 
Public Function PidFrontHwnd(ByVal hwnd As Long) As Long
    Call GetWindowThreadProcessId(hwnd, PidFrontHwnd)
End Function
 
Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
 
   Dim HwTask As Long
   Dim HwChild As Long
   Dim HwTab As Long
   Dim HwLv As Long
 
   HwTask = HwndTask
 
   If HwTask <> 0 Then
     HwTab = FindWindowEx(HwTask, 0, "SysTabControl32", vbNullString)
     If SendMessage(HwTab, &H130B, 0, 0) = 1 Then
       HwChild = FindWindowEx(HwTask, 0, "#32770", vbNullString)
       HwLv = FindWindowEx(HwChild, 0, "SyslistView32", vbNullString)
     End If
   End If
 
   Form1.Cls
   Form1.Print HwTask
   Form1.Print HwLv
 
End Sub