VB.NET Condition IF

**Fabdunet13** · 24/01/2014, 14h33

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** · 24/01/2014, 15h04

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.

**wallace1** · 24/01/2014, 15h15

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+

**Fabdunet13** · 27/01/2014, 06h13

Envoyé par Uranne-jimmy

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** · 27/01/2014, 06h19

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** · 27/01/2014, 09h44

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** · 27/01/2014, 15h40

Envoyé par 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.

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

**Uranne-jimmy** · 27/01/2014, 15h49

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** · 27/01/2014, 16h35

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** · 27/01/2014, 16h47

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.

**Jabbal'H** · 27/01/2014, 16h56

C'était juste pour montrer la surcharge de l'opérateur, les chaines peuvent être remplie.
Ce que je ne comprenais pas, c'était les surpises dont tu parlais en utilisant "=", mise à part dans le cas d'un null et donc d'une exception déclenchée, les deux sont strictement équivalente.

pour les entiers, l'opérateur est également surchargé, ce qui est quand même bien pratique.

**Uranne-jimmy** · 27/01/2014, 17h02

Sur ce point je ne fais que répeter ce que j'ai appris, en grande partie sur ce forum et faire part de mes expériences, parfois un simple changement vers equals a suffit à résoudre mes problèmes. Je pense qu'il est possible que ce soit lier à la surcharge justement, il suffit de ne pas avoir spécifier en amont le type de ta variable et l'opérations change sans que tu le souhaites. Ce n'est qu'une piste.

**Jabbal'H** · 27/01/2014, 17h05

Envoyé par Uranne-jimmy

il suffit de ne pas avoir spécifier en amont le type de ta variable et l'opérations change sans que tu le souhaites. Ce n'est qu'une piste.

Je pense que le problème est là, tu ne devrais pas avoir de variable sans type déclaré.

**clementmarcotte** · 27/01/2014, 21h03

Bonjour,

Je viens de regarder dans mon Gestionnaire des tâches. Chez moi, (Windows7), le processus se nomme "iexplore.exe", et pas seulement "iexplore".

**wallace1** · 27/01/2014, 22h50

Envoyé par clementmarcotte

Bonjour,

Je viens de regarder dans mon Gestionnaire des tâches. Chez moi, (Windows7), le processus se nomme "iexplore.exe", et pas seulement "iexplore".

Bonsoir Clément,

Un nom de processus (processName) ne porte pas d'extension, seul le fichier depuis lequel est lancé le processus porte l'extension.
Ce qui veut dire que lorsque tu parcours les processus par <nom> ce dernier ne contient pas l'extension.

Cdlt.

VB.NET Condition IF

VB.NET

Discussions similaires

Partager

Partager