Soyez le premier à donner votre avis sur cette source.
Vue 3 874 fois - Téléchargée 324 fois
<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>
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.