Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[HTA] Usage en pourcentage de votre CPU
Auteur Message
Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 

Voici un HTA qui détermine la charge de votre CPU% en utilisant les couleurs :

  • vert si CPU% < 20%
  • Orange si 20% < CPU% < 70%
  • Rouge si CPU% > 70%

Code:
<html>
<head>
<title></title>
<HTA:APPLICATION
    ID="CPU%-AutoRefresh"
    APPLICATIONNAME="Usage CPU en %"
    BORDER="dialog"
    BORDERSTYLE="complex"
    CONTEXTMENU="no"
    SYSMENU="no"
    MAXIMIZEBUTTON="no"
    SCROLL="no"
    ICON="Verifier.exe"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<SCRIPT LANGUAGE="VBScript">
    Sub Window_OnLoad
        CenterWindow 100,100
        Refresh
        iTimerID = window.setInterval("Refresh", 1000)
    End Sub
   
   Sub CenterWindow(x,y)
        window.resizeTo x, y
        iLeft = window.screen.availWidth/2 - x/2
        itop = window.screen.availHeight/2 - y/2
        window.moveTo ileft, itop
    End Sub
    Sub Refresh
       strHTML = ""
       strComputer = "."
       Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
       Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Processor")
       
       For Each objProcess in colProcesses
       Self.document.title = "Usage CPU "& objProcess.LoadPercentage & " %"
       If objProcess.LoadPercentage < 20 Then
           strHTML ="<center><b><font color='LightGreen' size='6'>"& objProcess.LoadPercentage & " %</font>"
       ElseIf objProcess.LoadPercentage < 70 Then
           strHTML ="<center><b><font color='Orange' size='6'>"& objProcess.LoadPercentage & " %</font>"
        Else
           strHTML ="<center><b><font color='Red' size='6'>"& objProcess.LoadPercentage & " %</font>"
           End if
       Next
       UsageCPU.InnerHTML = strHTML
    End Sub
   
Sub Fermer()
Question = MsgBox("Voulez-vous Fermer cette Application ?",VBYesNO+VbQuestion,"Fermeture de l'application")
If Question = VbYes Then
Window.close
Else
    Exit Sub
End If
End Sub
</SCRIPT>
<body Title="Double-cliquer ici pour fermer cette Application !" ondblclick="Fermer()" STYLE="font:14 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')"<span id = "UsageCPU"></span></body>
</html>





Dernière édition par Hackoo le Lun 15 Avr 2013 - 18:07; édité 1 fois

______________________________________________________
Mes Contributions en Téléchargement
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 
Evil or Very Mad Et comment on quitte? parce que c'est bien joli tout ça mais j'arrive pas à finir le processus Evil or Very Mad

Merci de précisez la prochaine foie.




______________________________________________________
Le batch est mon joujou de tout les jours,
plus pour le loisir que pour le travail,
et avec j'apprend presque tout les jours,
comment programmer et le travailler,
pour avoir enfin un résultat cool.

Ed la poignée du 93 (^_^)
Yahoo Messenger MSN Skype
Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 
Salut tout le monde,


Hackoo bien joué a toi, simple et efficace,
par contre il faudrait mettre une option
pour pouvoir "la fermée" ^^

Ce language m'interresse...



Cordialement, Pierrot



Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 
-re

Désolé pour avant, j'aime pas les programmes qui se ferme pas Twisted Evil .
En plus ça commence à me plaire le HTA, comme Pierrot. (un programme qui se ferme pas, ça me donne des idées Smile )

A + et bien jouer quand-même Okay




______________________________________________________
Le batch est mon joujou de tout les jours,
plus pour le loisir que pour le travail,
et avec j'apprend presque tout les jours,
comment programmer et le travailler,
pour avoir enfin un résultat cool.

Ed la poignée du 93 (^_^)
Yahoo Messenger MSN Skype
Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 
Blouquin Eddy a écrit:
Et comment on quitte? parce que c'est bien joli tout ça mais j'arrive pas à finir le processus

Salut, j'ai ajouté une mise à jour pour fermer cette Application par cette fonction :
Code:
Sub Fermer()
Question = MsgBox("Voulez-vous Fermer cette Application ?",VBYesNO+VbQuestion,"Fermeture de l'application")
If Question = VbYes Then
Window.close
Else
    Exit Sub
End If
End Sub

Donc, juste vous double cliquer sur l'application et vous obtenez un message de confirmation pour la fermeture Laughing
NB : le 1er message est édité et mis à jour, recopiez-le et testez-le Wink Okay Laughing




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 
Merci Hackoo, seulement ça ferme toujours pas le premier Evil or Very Mad Wink
Je redémarre l'ordi (ça doit-être la seule solution de toute manière Rolling Eyes )




______________________________________________________
Le batch est mon joujou de tout les jours,
plus pour le loisir que pour le travail,
et avec j'apprend presque tout les jours,
comment programmer et le travailler,
pour avoir enfin un résultat cool.

Ed la poignée du 93 (^_^)
Yahoo Messenger MSN Skype
Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 
Blouquin Eddy a écrit:
Merci Hackoo, seulement ça ferme toujours pas le premier Evil or Very Mad Wink
Je redémarre l'ordi (ça doit-être la seule solution de toute manière Rolling Eyes )

Non c'est pas la seule solution, car le processus qui est responsable a l’exécution du HTA est mshta.exe donc il faut le tuer par l'intermédiaire du gestionnaire de tâches ou bien avec les touches combinés Alt+F4 après la sélection de l'application comme une application standard Laughing




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [HTA] Usage en pourcentage de votre CPU 
Embarassed J'ai honte, depuis le début je le savais pour Alt-F4 mais j'ai honte Embarassed
Merci Hackoo Okay
Maintenant je vais me coucher. mal à la tête.




______________________________________________________
Le batch est mon joujou de tout les jours,
plus pour le loisir que pour le travail,
et avec j'apprend presque tout les jours,
comment programmer et le travailler,
pour avoir enfin un résultat cool.

Ed la poignée du 93 (^_^)
Yahoo Messenger MSN Skype
Message [HTA] Usage en pourcentage de votre CPU 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch