Vitesse du proc et kantite de ram

Commenter

Contenu du snippet

Ben tout simple sa donne la vitesse di proc

Source / Exemple : 


'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

Conclusion :


Apres c a vous de le placer dans votre appli

A voir également

S'inscrire maintenant

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.