Discussion :

[arnofly]

Bonjour,

J'ai fait un petit programme pour arreter plusieurs processus de Windows afin de liberer la RAM d'une vielle bécane. Explorer est inlcu ds les process que je stop. Pour relancer les process précédements arretés en un click de souris, mon programme ne se ferme pas à la fin de toute la procédure, mais ouvre une autre form qui propose de relancer les processus arrétes. Le problème est que mon prog occupe alors 13 Mo de RAM.

Je suis débutant, mais il me semble que la solution soit du coté d'une commande nommée "Dispose()"
Malheuresement, je ne sais pas comment l'utiliser...

Donc, un petit coup de main svp pour finir mon prog serait le bien venu.
Merci d'avance.
A+

[LaChips]

Bonjour,
La méthode .Dispose() est utilisé au moment ou tu détruis un objet instancié, afin de libérer la mémoire qu'il utilise.
Tu dois appeler cette méthode quand tu n'utilises plus un objet de ton programme...

[Pol63]

pour 10 euros t'as 512Mo de ram sur ebay
c'est plus simple que de faire l'apprenti sorcier à tuer les processus


sinon pour dispose, c'est une fonction qui existe sur pas mal d'objets du framework enfin sur ceux qui utilisent des ressources non managées, de l'OS par exemple

il est fortement conseillé d'appeler la méthode dispose sur tous les objets la possédant
par exemple sur une fenetre, si tu instancie un New Image et que tu fermes ta fenetre, l'objet a de forte chance de rester en mémoire longtemps

j'avais fait un programme de test, avec un timer qui faisait un new system.Drawing.bitmap (500,500) toutes les 500ms
et résultat au bout de quelques secondes, mon prog occupait 800Mo de ram

pour les fenetre dispose est appelé automatiquement, et au passage la fenetre appelle dispose sur tous ses controles qui appelent dispose sur tous leurs controles

donc là ou tu peux gagner c'est sur tes objets dans ton code
donc au moment de désinstancier un objet, il faut que tu tapes le code qui désinstancie les objets qu'il a créé
il est parfois possible d'overrider Dispose(disposing as boolean) et de mettre son code de desinstanciation puis de rappeler mybase.Dispose

[smyley]

il ne faut pas non plus oublier qu'il y a le GC ( ramasse miettes ) qui fait son petit ménage des objets non utilisés de manière aléatoire. On ne peut pas affirmer avec certitudes qu'après un Dispose l'objet managé ai véritablement libéré la mémoire qu'il utilisait ( pour les resources natives ça marche, mais pour un byte[] de 8 Mo par exemple ça ne marchera pas ) celà conduit parfois a des situations tordues : par exemple, on lance un programme WinForm simple, il occupe 50 Mo, on le réduit dans la barre des taches : 8 Mo, on le restore 13 Mo ...
Tu peut donc éssayer GC.Collect() pour forcer le GC à faire le ménage tout de suite mais là encore c'est assez complexe de savoir quelles seront les objets qui seront effectivement supprimés ...

[arnofly]

pourais-tu me donner un exemple stp ? y'a pas mieux pour comprendre je trouve.

Sinon, j'ai essayé d'ajouter la commande "Dispose()" mais ça ne change de rien. A l'évidence, je ne l'utilise pas correctement. En exemple, un bout de mon code.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub Button_Optimiser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Optimiser.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
 
        Button_Optimiser.Enabled = False
        Button_Optimiser.BackColor = Color.Empty
        Button_Fermer.Enabled = False
        Button_NormalConfig.Visible = False
        Button_ExplorerSTART.Visible = False
 
        Label_EnCours.Visible = True
        Label_Optimiser.Visible = False
 
        Dim TerminerProcessus() As Process = Process.GetProcesses 'récupère la liste des processus de Windows (Attention, ce sont des tableaux)
        For x As Integer = 0 To UBound(TerminerProcessus) 'Recherche ds la liste (en boucle)
 
            If TerminerProcessus(x).ProcessName.ToString = "cmd" Then
                TerminerProcessus(x).Kill()
            End If
 
            ' TouchPad ----------------------------------------------------
            If TerminerProcessus(x).ProcessName.ToString = "Apoint" Then
                TerminerProcessus(x).Kill()
            End If
            If TerminerProcessus(x).ProcessName.ToString = "ApntEx" Then
                TerminerProcessus(x).Kill()
            End If         
            ' et les autres process...
        Next
 
        TimerOptimiser.Interval = (15000)
        TimerOptimiser.Start()
    End Sub
 
Private Sub TimerOptimiser_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerOptimiser.Tick
 
        Shell("cmd.exe /k taskkill /F /IM explorer.exe", AppWinStyle.Hide)
 
        System.Threading.Thread.Sleep(3000) ' y'a pas mieux pour attendre la fin ?
 
        Dim TerminerProcessus() As Process = Process.GetProcesses
        For x As Integer = 0 To UBound(TerminerProcessus)
            If TerminerProcessus(x).ProcessName.ToString = "cmd" Then
                TerminerProcessus(x).Kill()
            End If
        Next
 
        TimerOptimiser.Stop()
 
        System.Threading.Thread.Sleep(3000)
 
        'Me.WindowState = FormWindowState.Normal
 
        Button_Optimiser.Dispose()
        Button_NormalConfig.Dispose()
        Button_ExplorerSTART.Dispose()
        Button_Fermer.Dispose()
        Panel_Buttons.Dispose()
        Panel_Labels.Dispose()
 
        'Me.Dispose()
 
        'My.Application.ApplicationContext.MainForm.Dispose()
        'Me.Finalize
        FormMini.Show()
        Me.Close()
    End Sub

[smyley]

Shell("cmd.exe /k taskkill /F /IM explorer.exe", AppWinStyle.Hide)

System.Threading.Thread.Sleep(3000) ' y'a pas mieux pour attendre la fin ?

Oui, utilise plutot les fonctions de la class System.Diagnostics.Process. Il y a une méthode WaitBidule pour attendre la fin de l'exécution d'un programme.

Button_Optimiser.Dispose()
Button_NormalConfig.Dispose()
Button_ExplorerSTART.Dispose()
Button_Fermer.Dispose()
Panel_Buttons.Dispose()
Panel_Labels.Dispose()

Essaye de rajouter GC.Collect() après ...

[arnofly]

pour les RAM à pas cher sur e-bay, oui peut etre ? mais c pas trop le but. Disons que ce prog est un pretexte pour continuer à apprendre le VB

En tout cas merci pour vos réponse. Par contre, si qqc pouvait me donner un exemple... car je ne maitrise pas bien le vocabulaire spécifique et du coup, je n'ai pas tout compris.

[Pol63]

deja j'ai dit que la fenetre s'occupait de disposer ses controles donc pas besoin de le faire toi meme avant
GC = garbage collector
c'est un processus en tache de fond qui s'occupe de libérer la mémoire quand ca le chante
dans une grande appli qui tourne pendant des heures sur un pc avec plein de ram, ne pas faire GC.collect pendant que l'utilisateur est devant, sinon il sera pas trop content

sinon apprendre vb avec un programme dans ce genre n'est pas le mieux je pense
tu peux apprendre par ici : http://plasserre.developpez.com/vsommair.htm

[arnofly]

je consulte ce lien régulièrement, c 'est une mine d'or pour moi ! merci qd m. Sinon, j'en suis à mon 3eme petit prog et je compte bien terminer celui-ci, d'autant que cette difficulter devrait etre la dernière que je rencontre pour ce prog puisqu'il est "terminé".

Donc, un exemple ?