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
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.