Discussion :

[Fabdunet13]

Bonjour

Je suis entrains de me faire un petit programme qui a pour fonction :
Si internet explorer fonctionne, alors, MSGBOX "OK"
Si internet et éteint, lalors, MSGBOX "Internet pas OK"


j'ai trouver ça :

Code :

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

1
2
3
4
5
 For Each p As Process In Process.GetProcesses
            If p.ProcessName = "iexplore" Then
                Label1.Text = "ok"
            End If
        Next

mais j'arrive pas a faire : ci je fait une condition : Ci p.ProcessName <= "iexplore" Then ...


le but de ce programme, j'ai pris internet explorer en exemple, c'est de vérifier qu'un processus fonctionne en tache d'execution , et s'il ne fonctionne pas , alors il le lance .
Le tout dans un TIMER .

Merci d'avance ci vous avec une solution pour moi


Voici mon code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 For Each p As Process In Process.GetProcesses
 
            If p.ProcessName = "iexplore" Then
                Label1.Text = "ok"
 
            ElseIf Not p.ProcessName = "iexplore" Then
                Label1.Text = "no ok"
            End If
   Next

[Uranne-jimmy]

Bonjour,
En premier lieu si tu compares des chaines de caractère utilise string.equals("string2"). J'ai déjà eu des problèmes à cause de ça.

Ensuite tu veux activer un processus si il ne l'ai pas. Pour savoir s'il ne l'ai pas il faut d'abord comparer tout les processus actif, le mieux c'est d'utiliser un booléen.
For each processus
if processus actif then
passer le booléen en true
end if
next processus.

En gros.

[Fabdunet13]

if processus actif then
passer le booléen en true
end if
next processus.

En gros.

Bonjour
Débutant en VB.Net , voici mes ligne de commande avec vos conseils :

Code :

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

1
2
3
4
5
6
7
For Each p As Process In Process.GetProcesses
            If p.ProcessName = "iexplore" Then
                Label1.Text = "ok"
              else 
                Label1.Text = "pas OK "
            End If
        Next

mais cella no fonctionne pas !!!

[Fabdunet13]

J'ai trouver

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim erreur As Integer = 0
        For Each p As Process In Process.GetProcesses
            If p.ProcessName = "iexplore" Then
                erreur = 1
            End If
        Next
 
        If erreur = 1 Then
            Label1.Text = "ok"
        Else
            Label1.Text = "pas ok"
        End If
    End Sub

je suis nul en programmation , je suis ouvert a d'autre code source a fin de les comprendre et d’apprendre d'avantage .

[wallace1]

Bonjour fabdunet13,

Le lien que je t'ai proposé plus haut fait référence à un snippet dans lequel il y a une fonction permettant de vérifier si un processus portant x nom est en cours.

Voilà comment l'implémenter (dans une application Windows Form avec le formulaire par défaut nommé "Form1") :

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
 
Public Class Form1
 
    ''' <summary>
    ''' Gestionnaire d'évènement "Load" de Form1. S'exécute lorsque l'application se lance
    ''' </summary>
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    If ProcessIsRunning("iexplore") Then
        Msgbox("Exists !")
    Else
        Msgbox("Not exists !")
    End If
 
End Sub
 
    ''' <summary>
    ''' Fonction qui accepte 1 argument de type String = "Le nom du processus" dans sa signature. NB : Une signature de fonction ou procédure c'est ce qui se situe entre parenthèses à la suite du nom de la méthode (procédure ou fonction).
    ''' </summary>
Private Function ProcessIsRunning(ByVal ProcName As String) As Boolean
    For Each ObjPro As Process In Process.GetProcesses
         If ObjPro.ProcessName.Contains(ProcName) Then
             Return True
         End If
    Next
    Return False
End Function
 
 
End Class

A+

[Jabbal'H]

Bonjour,
En premier lieu si tu compares des chaines de caractère utilise string.equals("string2"). J'ai déjà eu des problèmes à cause de ça.

Pour string.equals("string2") , l'opérateur == est surchargé non ?

[Uranne-jimmy]

Je n'ai jamais utilisé cet opérateur en vb Oo Dans d'autres langage sans oui mais en vb pas du tout. Donc je peux pas te dire.

[Jabbal'H]

Oups pardon en VB c'est un simple "="
Et à priori il semble bien surchargé.
Utiliser l'opérateur "=" permet de ne pas avoir à tester la nullité de la chaine

Ca plante

Code :

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

1
2
3
4
 
Dim test1 as string
Dim test2 as String
Dim r = (test1.Equals(test2))

ca plante pas

Code :

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

1
2
3
4
 
Dim test1 as string
Dim test2 as String
Dim r = (test1 = test2)

[Uranne-jimmy]

Je trouve ça tout de même moins propre au final. En parallèle à equals on a d'autres façon de comparer des chaines de caractères, chacune a ses spécificités. Un opérateur qui permet de travailler sur des chaines vides ... euh ... Je vois pas vraiment l'intérêt, dans ce cas là il vaut mieux que ça plante pour qu'on se rende compte que les chaines sont vides, ce qui est généralement anormal.

[wallace1]

Bonjour fabdunet13,

Détecter si u processus (par nom) est en cours :

http://pastebin.com/u/3DotDev

Je rajouterais ceci :

ATTENTION : 1 processus qui porte le nom "iexplore" ne veut pas forcément dire que l'utilisateur est connecté à Internet. IE est un navigateur qui peut tout aussi bien faire appel à un réseau d'entreprise non connecté à Internet !

PS : comme le processus IE est un exemple je suppose qu'en fait tu souhaites détecter un autre logiciel. C'était juste à titre info .

A+