allthew3
Messages postés551Date d'inscriptionsamedi 8 janvier 2005StatutMembreDernière intervention12 avril 2008
-
1 août 2006 à 19:34
allthew3
Messages postés551Date d'inscriptionsamedi 8 janvier 2005StatutMembreDernière intervention12 avril 2008
-
1 août 2006 à 20:45
Bonjour,
Je trouve pas une source bien pour mon problème ... (si vous en avez une, dites-le moi :-)
J'aimerais avoir processus par prossesus, les processus courants (beaucoup de processus lol)
en gros :
Do
Dim process as string
process = ' avoir le processus suivant.ToString
' traitement [...]
Loop Until process is nothing
Voilà ai-je été clair ?
merci d'avance à tous, je pars bientôt en vacances donc plus de questions d'allthew3 pendant un moment ... lol
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 1 août 2006 à 20:00
Désolé mais je ne fais pas de .net
Je ne t'ai pas mis de code car je préfère ne pas dire une bétise, mais j'ai regardé le code et la procédure Process.Show n'a pas l'air très complexe et doit être facilement adaptable !
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 1 août 2006 à 20:20
Aller, je me fais plaisir :
alors, si ce que je te mets est tout faux, pense à mon avatar (et dis toi que .net bah connais pas)
<small>
Coloration syntaxique automatique </small>
Dim p As Process
Dim ProcModule As ProcessModule
Private Sub show_process()
For Each p In Process.GetProcesses
If p.ProcessName <> "Idle" Then
MessageBox.Show(p.Handle.ToString, MessageBoxButtons.OK, _
MessageBoxIcon.Stop)
If p.ProcessName.ToUpper <> "System".ToUpper Then
ProcModule = p.MainModule
MessageBox.Show(ProcModule.FileName, _
MessageBoxButtons.OK, MessageBoxIcon.Stop)
Else
MessageBox.Show("Pas de ProcessModule", _
MessageBoxButtons.OK, MessageBoxIcon.Stop)
End If
End If
Next p
MessageBox.Show(Environment.UserName & " Il y : " & Process.GetProcesses.Length & " Processus en cours ", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Sub