Discussion :

[megaben]

Bonjour

L'ordinateur est lent à au démarrage

Afin d'éviter que l'usager soit tenté de démarrer une application avant la fin du chargement initial, j'affiche un message "Chargement en cours... Merci de patienter".

Comment détecter la fin de chargement de la dernière application au démarrage de Windows XP?, afin de fermer mon message au bon moment.

Cela doit être applicable, peu importe l'ordi, le type de programme, ou le nombre. (Une petite VB universel, que je place dans la séquence de démarrage)


Merci à l'avance de votre aide

Megaben

[Danyel]

Le seul moyen serait de controler la charge du/des processeurs, mais meme en controlant cela, il sera difficile de definir quand le chargement total du systeme sera effectif.
Il y a en plus les anti-virus / gestion reseaux / et maintes applications tierces qui prennent le relais ...

[The_badger_man]

Et en faisant le ménage sur le PC ? Virer les programmes inutils qui se lancent au démarrage, etc...

[Danyel]

Il y a aussi une manipulation pour activer les multicoeurs pour le demarrage de windows. (du moins vista)
Il y a un gain de 5 à 20 secondes sur chaque boot (tjrs appreciable)

[megaben]

Bonjour à tous

L'optimisation du démarrage est déjà faite, défrag, nettoyage des registres..


Je pense que la solution de détection de la charge CPU est la bonne

j'ai trouvé un bout de code que je suis présentement à modifier

J'ai l'intention de faire une fermeture de la textbox après que le CPU tombe inférieure à 10% durant un temps X.

Même si le moment de fermeture n'est pas d'une haute précision, je pense que ca sera bien quant même.

je vais valider et je vous reviens avec les résultats et bous de codes

A+

Merci!

[megaben]

Voici le code fonctionnel

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
*******************
Public Class Form1
 
    Private m_PerformanceCounter As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_Total")
    Dim count As Integer
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        'charge du CPU
        Lbcpu.Text = (CInt(m_PerformanceCounter.NextValue()))
        'affiche la charge CPU
        Lbcpu.Show()
        'si la charge CPU est inférieure à 5...
        If count = -1 Then count = 0
        If Lbcpu.Text > 5 Then count = count - 1
        If Lbcpu.Text < 5 Then count = count + 1
        'progress dot bar
        If count = 1 Then Btdot1.BackColor = Color.GreenYellow
        If count = 2 Then Btdot2.BackColor = Color.GreenYellow
        If count = 3 Then Btdot3.BackColor = Color.GreenYellow
        If count = 4 Then Btdot4.BackColor = Color.GreenYellow
        If count = 5 Then Btdot5.BackColor = Color.GreenYellow
        If count = 6 Then Btdot6.BackColor = Color.GreenYellow
        If count = 7 Then Btdot7.BackColor = Color.GreenYellow
        If count = 8 Then Btdot8.BackColor = Color.GreenYellow
        If count = 9 Then Btdot9.BackColor = Color.GreenYellow
        'si la charge CPU est inférieure à 5 durant 10 secondes, quitte l'application
        If count = 10 Then
            Btdot10.BackColor = Color.GreenYellow
            Timer1.Dispose()
            Me.Dispose()
 
        End If
 
    End Sub
End Class
******************