Discussion :

[grosminou]

boujours j'ai rechercher sur ce cite trouver la solution a mon blem. mais sens sucses alors je vous pose mon probleme (si vous avez lien ou solution je suis preneur)

j'aimerai , dans un code conditionel arriver a ce resultat

si "le processus cmd.exe existe" alors"fait ceci" sinon "fait cela"

mon probleme et donc de controler si le proc. CMD.exe existe ou pas


merci d'avance

[Catbull]

Tu peux passer par WMI. Fais une recherche avec WMI comme mot clé.

[grosminou]

j'ai trouver en delfi en c++ mais pas en vb


il est aussi posible ( pour resoudre mon robleme d'atendre la fin de ce proc . CMD.Exe) je cherche mais si vous avoir petit + je suis preneur


merci

[SfJ5Rpw8]

tu as cherché WMI dans le forum VB??

http://www.developpez.net/forums/sea...searchid=34701

[jmfmarques]

As-tu lu les règles de ce forum, notamment en ce qui concerne les recherches dans la FAQ avant de poser une question ?
Apparemment non !
car tu aurais trouvé ce lien et ceux qui le suivent :
http://vb.developpez.com/faq/?page=Systeme#listprocess

[Catbull]

Grosminou, il y a un sujet qui traite de la fermeture d'un processus via WMI. Une recherche sur le forum d'aurait fait gagné du temps : http://www.developpez.net/forums/sho...&highlight=WMI

Edit : beau tir groupé

[grosminou]

d'accord les gas je sais que suis pas fut fut mais je chercher ni a faire une liste des proc ni a tuer un proc je cherche a attendre la fin d'un proc et croye moi depuis hier je fait que de chercher sa sur le net car j'aime pas trop attendre que ca tombe du ciel tous chaud tous roti tous vos lien son out seul ici http://www.developpez.net/forums/sho...=115187&page=2 on trouve quelque chose en recuperant a partir de Alt Tab mais deux page de code alors que je ne suis meme pas capable de gerer des check box corectement sa me fait trop et j'y comprend rien il doit bien y avoir deux trois ligne fonction ou autre corespondant a mes besoin

[jmfmarques]

Tous les liens Out ?
Et comment crois-tu que j'ai pu copier celui qui pointe vers la faq ? Sans y aller, peut-être ?
Et pour ce qui est du reste : développer sans développement, ma foi, .... je te rappelle que tu es sur un forum de développement !

[grosminou]

j'ai sa

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
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 * 260
End Type
 
'Déclarations d'API
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 Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function TerminateProcess Lib "Kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
 
 
***************
Private SUb Méthode()
 
Dim Processus As PROCESSENTRY32
    Capture = CreateToolhelp32Snapshot(2, 0)
    'Capture permete de parcourir la liste des processus du système
    Processus.dwSize = Len(Processus)
 
    courant = Process32First(Capture, Processus)
    Do While courant
        If Left$(Processus.szExeFile, IIf(InStr(1, Processus.szExeFile, Chr$(0)) > 0, InStr(1, Processus.szExeFile, Chr$(0)) - 1, 0)) = "Projet1.exe" Then
            'Si "Scan.exe" est trouvé dans les processus du système, le parcours des processus s'arrete là
            courant = False
        Else
            'Processus suivant
            courant = Process32Next(Capture, Processus)
        End If
    Loop
 
    CloseHandle Capture
 
    'Si "Projet1.exe" a été trouvé, courant=False puisqu'on a manuellement définit cette valeur pour arreter la boucle ; dans ce cas, TypeName(courant)="Boolean"
    'Si "Projet1.exe" n'a pas été trouvé, la boucle est allée jusqu'au dernier processus du système ; dans ce cas, TypeName(courant)="Long" car courant=0
 
    If TypeName(courant) = "Boolean" Then
    Identifiant = OpenProcess(1, 0, Processus.th32ProcessID)
    TerminateProcess Identifiant, 0
    CloseHandle Identifiant
    End If
 
    Unload Me
 
End Sub

je vais travailer desus mais s'est pas gagné car je veux pas le killer