capturar ID_procces

[LeandroA]

Hola te paso lo del otro dia pero con el buscando en los procesos
(nose si se puede hacer de otra forma mas directa para "david" o "geoavila" si es que saben que lo digan, yo utilize esta forma que es buscando en los procesos)

pon un timer1 y lo que hace busca si iexplorer.exe se ejecuta o no y guarda los eventos en c:\eventos.txt acordate de cambiar iexplorer.exe por el de civercontrol5.exe (si es que asi se llama)


Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Dim ProcesoBuscado As String
Dim Abierto As Boolean
Dim Encontrado As Boolean
Private Sub Form_Load()
ProcesoBuscado = "iexplore.exe" ' cambia por civercontrol 5
Timer1.Interval = 1000 'creo que seria mejor subier el tiempo para ahorrar
End Sub

Private Sub Timer1_Timer()

Dim hSnapShot As Long, uProcess As PROCESSENTRY32
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
Dim Proceso As String
Do While r
Proceso = Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
If UCase(ProcesoBuscado) = UCase(Proceso) Then
Encontrado = True
Procesar
Exit Sub
Else
Encontrado = False
End If


r = Process32Next(hSnapShot, uProcess)
Loop
Procesar
CloseHandle hSnapShot


End Sub
Sub Procesar()
If Encontrado = 0 Then
If Abierto Then
Open "C:\Eventos.txt" For Append As #1
Print #1, "Fin de la Aplicacion Internet Explorer " & vbTab & vbTab & Now
Print #1, "-------------------------------------------------------------------"
Close #1
Abierto = False
End If
Else
If Not Abierto Then
Open "C:\Eventos.txt" For Append As #1
Print #1, "Inicio de la Aplicacion Internet Explorer " & vbTab & Now
Close #1
Abierto = True
End If
End If
End Sub