Processus ??? Ultra URGENT

Question

Public Sub validprocess() Dim pr As Process Dim ProcModule As ProcessModule ' creation des fichiers en cas de non-existance ... Dim validprocess As Boolean = My .Computer.FileSystem.FileExists(dossiercourant & "\validprocess.txt" ) Dim invalidprocess As Boolean = My .Computer.FileSystem.FileExists(dossiercourant & "\invalidprocess.txt" ) If validprocess = False Then System.IO.File.CreateText(dossiercourant & "\validprocess.txt" ) End If If invalidprocess = False Then System.IO.File.CreateText(dossiercourant & "\invalidprocess.txt" ) End If ' validation du processus ... ' recup‚ration des processus ... Dim item As New Collection For Each pr In Process.GetProcessesitem.Add(pr.ProcessName) If pr.ProcessName <> "Idle" Then item.Add(pr.Handle.ToString) If pr.ProcessName.ToUpper <> "System" .ToUpper Then ProcModule = pr.MainModule item.Add(ProcModule.FileName) Else item.Add( "Pas de ProcessModule" ) End If End If Next Dim processus As String = "" Try Dim sr As New StreamReader(dossiercourant & "\validprocess.txt" ) Dim ligne As String Do ligne = sr.ReadLine ' traitement de la ligne If ligne = processus Then Exit Do End If Loop Until ligne Is Nothing sr.Close() Catch ex As Exception My .Forms.erreur.ShowDialog() End Try ' si invalide ? Try Dim sr As New StreamReader(dossiercourant & "\invalidprocess.txt" ) Dim ligne As String Do ligne = sr.ReadLine ' ligne ... If ligne = processus Then ' kill process ... Dim p() As Process Dim r As Processp = System.Diagnostics.Process.GetProcessesByName(processus) For Each r In pr.CloseMainWindow() Next End If Loop Until ligne Is Nothing sr.Close() Catch ex As Exception My .Forms.erreur.ShowDialog() End Try ' si inconnu : Dim reponse As String reponse = MsgBox( "*** ne reconnait pas ce processus : " & processus & vbCr & "Voulez-vous valider ce processus ?" , MsgBoxStyle.YesNo, "***" ).ToString If reponse = "Yes" Then ' ajouter le processus … la liste des processus valide ... Dim sw As New StreamWriter(dossiercourant & "\validprocess.txt" )sw.WriteLine(processus) sw.Close() Else ' ajouter le processus … la liste des processus invalide ... Dim sw As New StreamWriter(dossiercourant & "\invalidprocess.txt" )sw.WriteLine(processus) sw.Close() End If End Sub Voilà ce que j'ai réussi à faire (autant dire pas grand chose) avec ce que l'on m'a donné :-) Voilà donc j'aimerais avoir la liste des processus en cours, et, un par un, les comparés avec les processus valides (marqués dans "validprocess.txt") et les processus invalides (marqués dans "invalidprocess") Le must, serait que quelqu'un modifi ma source, tout en m'expliquant ... :-) Je pars en vacances après-demain alors SVP, faites-en sorte que j'ai terminé ce module ... Merci d'avance à tous !!!

cs_DARKSIDIOUS · Answer

Oui et puis moi j'ai besoin de 1000 ? avant demain car je pars en vacance, donc fais moi un virement sur le compte xxxxxx

Non mais franchement, t'as pas l'impression d'abusé un peu là en disant : "Je pars en vacances après-demain alors SVP, faites-ensorte que j'ai terminé ce module"

Il ne tient qu'à toi de le terminer...

sifflet_ · Answer

Ouais pis c'est tellement bien indenté qu'on y comprend rien !

Mais, je marche pour les 1000? :-)

allthew3 · Answer

oh ! on est sur Vbfrance par sur orthographeetgrammairefrance ...

prends- le comme tu veux, mais si tu sais pas mais rien, si tu sais aide-moi si t'as envie stop ...

au lieu de s'égarer sur des fautes de ma part (j'en suis désolé si je m'exprime mal) pourquoi pas se concentrer sur le code ?

voilà si possible, expliquez-moi, comment faire mieux, plus simple .... voir même modifié directement la source pour les meilleurs (et les plus courageux) ...

merci d'avance à tous

cs_darunia · Answer

Je rejoins DarkSidious et sifflet ...

Tu es sur le forum de VB France, on est la pour s'entraider, pas pour te macher le travail !
Quand on butte sur quelquechose, on colle pas tout son code et on dit pas aux autres "demerdez vous". On essaye plutot d'abord d'identifier le probleme et de demander de l'aide dessus.

Enfin bref, Google est ton ami, si tu cherches bien une procedure pour te lister les process, tu la trouveras !

D'ailleurs on connait meme pas ton probleme! Lister les process ? Ecrire dans les fichiers ?

D@runia

allthew3 · Answer

je n'arrive pas à gérer la liste des processus (beaucoup de mal avec les tableaux, collections)

je demande qu'une chose : qu'on me montre comment avoir un tableau avec tous les processus en cours, puis en sortir un par un ....

cs_darunia · Answer

Créer un ArrayList et ajoute tes processus dedans avec la méthode add dans ton foreach.

Ensuite, tu peux parcourir l'ArrayList en faisant

Foreach Object obj in tonArrayList

D@runia

cs_eldim · Answer

Bonjour,
Petit exemple de récup des processus :
Private

Function fnVerifySiProcessOnMemory() 
As
Boolean

Dim B 
As
Boolean = 
False

Try

Dim P 
As Process() = Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)

Dim i 
As
Integer, N 
As
Integer = P.GetLength(0)

Dim Nb 
As
Integer = 0

Dim cP 
As
Integer = Process.GetCurrentProcess.SessionId

For i = 0 
To N - 1

Dim pP 
As Process = P(i)

If pP.SessionId = cP 
ThenNb += 1

End
If

Next

If Nb <= 1 
ThenB = 

True

End
If

Catch ex 
As ExceptionB = 

True

End
Try

Return B

End
Function

-- Pourquoi faire simple quand on peut faire compliquer  --

allthew3 · Answer

Process.GetCurrentProcess.ProcessName

> 

C'est normal ça ? je veux avoir tous les processus ... lol

cs_eldim · Answer

c'est juste un exemple pour que tu comprennes la syntaxe


le reste, tu le trouve dans la msdn


il te suffit de le remplacer par process.getprocess()

-- Pourquoi faire simple quand on peut faire compliquer  --

allthew3 · Answer

Ok je vais essayer si ça marche ...

Processus ??? Ultra URGENT

10 réponses

Votre réponse

Discussions similaires