VITESSE DU PROC ET KANTITE DE RAM

'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