Discussion :

[Actarus69]

Salut,

voilà , je cherche le moyen de contrôler certains processus (visibles de le gestionnaire des tâches de windows) par programme VB6.

En faite j'ai un applicatif qui des temps à autre disparait de l'écran, et je voudrais créer une petite appli VB qui lance cet applicatif après avoir vérifié que le processus n'éxistait pas déjà.

je précise juste à ceux qui me conseilleraient le "app.prevInstance", que l'applicatif qui "disparait", est .exe dont je n'ai aucune sources....

Merci

[DarkVader]

Le principe consiste à énumérer les Process actif à l'aide des API

ProcessFirst ,ProcessNext & CreateToolhelpSnapshot puis de lancer l'appli si elle est inactive avec Shell par exemple.

Voir sur AllApi.net pour des exemples

[Actarus69]

Merci

[Actarus69]

pour ceux que ça intéresserai , voici ce que j'ai trouvé et éxploité (creer une form, y placer un bouton et une ListBox).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Option Explicit
 
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" ( _
    ByVal dwFlags As Long, _
    ByVal th32ProcessID As Long) As Long
 
    Private Declare Function Process32First Lib "kernel32.dll" ( _
    ByVal hSnapshot As Long, _
    ByRef lppe As PROCESSENTRY32) As Long
 
    Private Declare Function Process32Next Lib "kernel32.dll" ( _
    ByVal hSnapshot As Long, _
    ByRef lppe As PROCESSENTRY32) As Long
 
    Private Declare Function CloseHandle Lib "kernel32.dll" ( _
    ByVal hObject As Long) As Long
 
    Private Const MAX_PATH = 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 Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPTHREAD = &H4
Private Const TH32CS_SNAPMODULE = &H8
 
 
Private Sub Command1_Click()
 
    Dim hSnapshot As Long
    Dim lppe  As PROCESSENTRY32
    Dim rc    As Long
 
    hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
 
    Debug.Print hSnapshot
 
    lppe.dwSize = Len(lppe)
    rc = Process32First(hSnapshot, lppe)
    ListBox1.Clear
 
    Do
        If rc <> 1 Then Exit Do
        ListBox1.AddItem lppe.th32ProcessID & " : " & lppe.szExeFile
        rc = Process32Next(hSnapshot, lppe)
    Loop
 
    Call CloseHandle(hSnapshot)
 
End Sub