Vitesse du proc et kantite de ram

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 507 fois - Téléchargée 48 fois

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

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de FunkySteps
FunkySteps
Messages postés
16
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
13 mars 2002
 -
Imbécile tu n'as même pas vue que ce code nécéssite une dll à part? Alors ça vaut de la merde! Met la dll dans un zip ou fait quelque chose pour qu'on puisse l'utiliser aussi.
Signaler Commenter la réponse de cs_max12
cs_max12
Messages postés
1496
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
 -
FunkySteps> Tu pourrais au moin être poli, comme le vieux dicton le dit mieux vaux laisser croire que tu est con plutot que d'ouvrir la bouche pour le prouver
Signaler Commenter la réponse de Rachoo
Rachoo
Messages postés
36
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
9 avril 2002
 -
max12 > il est bourré de phautes d'orthographe ton dicton :oP
Signaler Commenter la réponse de Neo.balastik
Neo.balastik
Messages postés
797
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
 3 -
Vous trouverez la DLL ici en fin de page (je crois que c'est la bonne - à vérifier):
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 ?
Signaler Commenter la réponse de Sirocooo
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
 1 -
Il y a des gens qui n'ont rien d'autre à faire que de critiquer le travail des autres
Il se reconnaitrons...
Afficher les 7 commentaires
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.