Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 625 fois - Téléchargée 48 fois
'pour le proc Private Declare Function GetCpuSpeed Lib "XtCpu.dll" () As Long MsgBox "Vitesse du proc: " & GetCpuSpeed() / 1000000 & " Mhz" ' pour la ram Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) Public Sub GetRamStats() Dim RamStats As MEMORYSTATUS GlobalMemoryStatus RamStats MsgBox "Ram Totale = " & Format(RamStats.dwTotalPhys, "###,### octets") _ & " (" & Format(RamStats.dwTotalPhys \ 1024, "###,### Ko") & ")" _ & VbCrLf & "Ram Libre = " & Format(RamStats.dwAvailPhys, "###,### octets") _ & " (" & Format(RamStats.dwAvailPhys \ 1024, "###,### Ko") & ")" _ & VbCrLf & "(" & Int((RamStats.dwAvailPhys / RamStats.dwTotalPhys) * 100) & "% libres)." End Sub
max12 > il est bourré de phautes d'orthographe ton dicton :oP
c est faute et pas phaute MDR
de plus divisé par 1 millions la vitesse du cpu c est pas trop sa ... pour obtenir une valeur exacte !
PS c est moi le vrai zerocool ! ;)
C'est texactement ce que je cherchais pour faire un calcul de temp approximatif ...
Thanks
(et pis chui d'acord avec Neo.balastik )
(et franchement transformez votre mauvaise humeur en créativite ... le monde n'en sera que meilleur ... >:| )
Il se reconnaitrons...
http://perso.wanadoo.fr/vbsoluces/Codes_Systeme.htm
'Faut pas se fâcher les amis... Si tout le monde était parfait, qu'est-ce que l'on s'embêterait... N'est-ce pas ?
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.