Process Listeleme

Modül : 

1. Option Explicit
2. 
   
3. Declare Function CreateToolhelpSnapshot Lib "kernel32" _
4.     Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVallProcessID As Long) As Long
5. Declare Function ProcessFirst Lib "kernel32" _
6.     Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
7. Declare Function ProcessNext Lib "kernel32" _
8.     Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
9. Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
10. 
    
11. Public Type PROCESSENTRY32
12.     dwSize As Long
13.     cntUsage As Long
14.     th32ProcessID As Long
15.     th32DefaultHeapID As Long
16.     th32ModuleID As Long
17.     cntThreads As Long
18.     th32ParentProcessID As Long
19.     pcPriClassBase As Long
20.     dwFlags As Long
21.     szExeFile As String * 260
22. End Type

Form :

1. Option Explicit
2. 
   
3. Function process(Program As String) As String
4. Dim txt As String
5. Dim hSnapShot As Long
6. Dim uProceso As PROCESSENTRY32
7. Dim resul As Long
8.     hSnapShot = CreateToolhelpSnapshot(2&, 0&)
9.     If hSnapShot <> 0 Then
10.         uProceso.dwSize = Len(uProceso)
11.         resul = ProcessFirst(hSnapShot, uProceso)
12.         Do While resul
13.             If Program = Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1) Then
14.             MsgBox "açık"
15.             End If
16.             resul = ProcessNext(hSnapShot, uProceso)
17.         Loop
18.         Call CloseHandle(hSnapShot)
19.     End If
20. End Function

Categories: Visual Basic