Le sujet est dans le titre.
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
Private Sub Main()
Dim LeTimer As Long
Dim Frequence As Long
Dim Arret As Boolean
Arret = False
Frequence = 10000 'en millisecondes = 10 Sc
LeTimer = SetTimer(0, 0, Frequence, AddressOf TimerProc)
Do While Arret = False
    DoEvents
    If GetAsyncKeyState(vbKeyControl) And _
        GetAsyncKeyState(vbKeyMenu) And _
        GetAsyncKeyState(vbKeyW) Then
       'detection de ctrl + Alt + w
       'masque pour eviter des declanchements non voulues
        Arret = True
    End If
Loop
KillTimer 0, LeTimer
MsgBox "Prog arreté", vbInformation, ""
End Sub
Cette boucle me permet de mettre fin a la surveillance d'un autre prog géré dans Sub TimerProc
Lorsque je regarde dans le gestionnaire de tâche, l'utilisation de l'UC est égal a 100%, est ce penalisant pour les autres programmes ?
je sais que c'est la boucle Do Loup qui produit ce phénomène
Question, est il possible de faire un arret de survaillance d'une autre façon.

Merci


20H50, MOTIF de l'edit, je viens de posté, mais gros orage, je dois quitter le forum pour arreter l'ordi