Como enumerar tarefas de 16 bits no Windows NT utilizando o Visual Basic

Passos para criar o exemplo

1. Inicie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
2. Adicione um CommandButton ao formulário.
3. Defina os formulários AutoReDraw propriedade como VERDADEIRO.
4. Seleccione o Project a partir do menu ' e adicione um novo módulo ao projecto. Módulo1 é criado por predefinição.
5. Copie o código seguinte para a janela Code do Module1:

   Option Explicit
   
   Declare Function VDMEnumProcessWOW Lib "VDMDBG.dll" _ 
   (ByVal fp As Long, lparam As Long) As Integer 
   
   Declare Function VDMEnumTaskWOWEx Lib "VDMDBG.dll " _ 
   (dwProcessId As Long, ByVal fp As Long, lparam As Long) As Integer 
   
   Declare Function lstrcpy Lib "kernel32" _ 
   (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long 
   
   Public Function PROCESSENUMPROC _
   (ByVal dwProcessId As Long, ByVal dwAttributes As Long, _
   lpUserDefined As Long) As Boolean
     
       Form1.Cls
       Form1.Print "dwProcessId: " & dwProcessId
       Form1.Print "dwAttributes: " & dwAttributes & vbCrLf 
   ' Pass the Process ID to this next function to enumerate that Process.
       Call VDMEnumTaskWOWEx(ByVal dwProcessId, AddressOf TASKENUMPROCEX, 0)
   
   End Function
   
   Public Function TASKENUMPROCEX _ 
   (ByVal dwThreadId As Long, ByVal hMod16 As Long, _ 
   ByVal hTask16 As Long, ByVal pszModName As Long, _ 
   ByVal pszFileName As Long, lpUserDefined As Long) As Boolean 
   
   ' Print Enumerated task of the 16bit process
       Form1.Print "dwThreadId: " & dwThreadId & vbCrLf & _
       "hMod16: " & hMod16 & vbCrLf & "hTask16: " & hTask16 & vbCrLf & _
       "pszModName: " & PointerToString(pszModName) & vbCrLf & _
       "pszFileName: " & PointerToString(pszFileName) & vbCrLf & _
       "lpUserDefined: " & lpUserDefined & vbCrLf
   ' Return value is false until there are no more tasks to enumerate.  
   End Function
   
   Private Function PointerToString(lPtr As Long) As String
   Dim sTemp As String * 255, Retval As Long
   ' Parse String Values returned from function call. 
   
       Retval = lstrcpy(sTemp, lPtr)
       If (InStr(1, sTemp, Chr(0)) = 0) Then
            PointerToString = ""
       Else
            PointerToString = Left(sTemp, InStr(1, sTemp, Chr(0)) - 1)
       End If
       
   End Function
   					

6. Copie o código seguinte para a janela Code do Form1:

   Private Sub Command1_Click() 
   
   Dim Retval As Long 
   ' Call VDMEnumProcessWOW to beging the enumeration
      Retval = VDMEnumProcessWOW(AddressOf PROCESSENUMPROC, 0)
   
   End Sub 
   					

7. Guardar o projecto e, em seguida, prima F5 para executar o projecto. Lista os processos enumerados no formulário.

Voltar ao topo