Discussion :

[Raptor92]

Bonjour à Tous,

Je fais fonctionner le code ci-dessous dans un thread par la commande suivante:

Code :

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

 ThreadExécute("monthread",threadNormal,"Controle_Ping")

Et mon threadarrête se trouve dans le code de fermeture de la fenêtre.

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
// Résumé : PROCEDURE DE CONTROLE PAR PING SEQUENCEE// Procédure automatique :
// La procédure est exécutée manuellement, lors d'un appel dans le code
// Elle sera répétée en boucle, en attendant 30 secondes entre chaque appel
// Un nouveau timer est créé pour chaque appel à la procédure
 
PROCEDURE Controle_Ping()
Message("Ping des adresses IP en cours..............................")
POUR TOUTE LIGNE DE TABLE_Machines
	SI Ping(TABLE_Machines.IP) ALORS
		TABLE_Machines.ETAT="Connecté"
 
	SINON
 
		TABLE_Machines.ETAT="Inactif"
 
	FIN
FIN	
sBranche est une chaîne	
i est un entier
POUR i = 1 _A_ TableOccurrence(TABLE_Machines) 
				SI TABLE_Machines.ETAT[i]="Inactif" ALORS
					TABLE_Machines.ETAT[i]..Couleur=RougeClair
					TABLE_Machines.COL_Machine[i]..Couleur=RougeClair
					TABLE_Machines.COL_Utilisateur[i]..Couleur=RougeClair
					TABLE_Machines.IP[i]..Couleur=RougeClair
				FIN
 
	Message("Pause..................")
	FIN

J'ai l'impression que la procédure ne fonctionne qu'une seule fois.
Vu que le message reste constamment sur "Pause"

Pourriez vous me guider svp

Bonne journée et par avance merci

[Lo²]

Salut à toi,

Le problème vient du fait que c'est la procédure qui est exécutée toutes les 30 secondes, or le thread, lui, est arrêté dés la fin de la première exécution de la procédure.

Au lieu du ThreadExécute(..), tu mets uniquement le code d'appel de Controle_Ping().
Ensuite, dans le paramétrage d'automatisme de la procédure, tu la fait s'exécuter en tâche de fond (thread).

[Raptor92]

Bonjour Lo²,

Je comprends bien le problème.
Mais c'est ce que je faisais, le souci est que durant le fonctionnement de la procédure (qui ping près de 200 adresses IP), l'application est bloquée.
Or durant cette opération, l'administrateur réseau doit pouvoir effectuer divers opérations)

Il y a il une autre possibilité
Par avance merci

[Lo²]

As-tu vu au niveau du paramétrage de l'automatisme ?

Code :

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

Ensuite, dans le paramétrage d'automatisme de la procédure, tu la fait s'exécuter en tâche de fond (thread).

Je viens de tester sur plusieurs adresses, et je garde la main sur l'appli.

[Raptor92]

Lo²,

Je suis un âne, j'aurais dû mieux te lire

En effet, je n'avais pas coché la case correspondante.
Merci beaucoup pour ton aide

Bonne après midi