Discussion :

[hugoclo]

Bonjour,
Je souhaiterai lorsque j'appuie sur un bouton lancer un prog.(facile avec shell)
Le souci c'est qu'avant de lancer le prog je veux etre sur qu'il ne soit deja pas ouvert.
Code fonction:

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
Public toto As String
Public active As String
Public Function actprocess(ByVal ProcessName As String) As Boolean
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    'Dim actif As String
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In svc.execquery(sQuery)
        If ProcesseName Is actif <> 0 Then
        Openwindow else
        Shell toto
        End If 
    Next
    Set svc = Nothing
End Function

et le code de mon bouton sur evenement click:

Code :

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

1
2
3
active = d:\titi\tata.exe
toto = Sit
Call actprocess(tata.exe)

Et là c'est le drame.... Ca ne marche pas.

[SfJ5Rpw8]

Encore une confusion sur l'emploi des chaînes de caractères en VB

en VB les chaînes de caractères insérées dans le code doivent être placées entre guillemets !

Code :

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

actprocess "tata.exe"

[ucfoutu]

Bonjour,

en outre,

peux-tu commenter cette ligne (entre autres)

Code :

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

If ProcesseName Is actif <> 0 Then

et nous dire ce qu'est "actif" ?
Rien qu'en tentant d'expliquer, il arrive que l'on commence à comprendre ce que l'on écrit

[hugoclo]

active et non actif (bien vu) correspond au nom du process que je souhaite savoir valide ou pas "exemple active = ("tata.exe")"
si valide ouvrire sa fenetre, sinon lancer le prog

[SfJ5Rpw8]

active et non actif (bien vu) correspond au nom du process que je souhaite savoir valide ou pas "exemple active = ("tata.exe")"
si valide ouvrire sa fenetre, sinon lancer le prog

je crois qu'il te manque d'autres choses à voir ...



c'est censé tester quoi cela : ?

Code :

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

1
2
 
If ProcesseName Is active <> 0 Then

à quoi sert ta boucle For Each oproc ....
si tu ne te sert de ta variable oproc nulle part ?

[DarkVader]

Utilises l'Api EnumProcesses

[hugoclo]

Utilises l'Api EnumProcesses

J'utile le tuto de la FAQ ici

[hugoclo]

Je sais qu'il me reste plein de chose à voir

Code :

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

If ProcesseName Is active <> 0 Then

doit me servir pour savoir si le process est en fonction.
La boucle sert a lister tous les process enfin je crois!!