Détection vitesse CPU et carte son
begi
-
18 mars 2000 à 13:09
Treek Messages postés 13 Date d'inscription mercredi 13 février 2008 Statut Membre Dernière intervention 5 décembre 2010 - 16 avril 2008 à 10:27
Treek Messages postés 13 Date d'inscription mercredi 13 février 2008 Statut Membre Dernière intervention 5 décembre 2010 - 16 avril 2008 à 10:27
A voir également:
- Détection vitesse CPU et carte son
- Tirage de carte ✓ - Forum Javascript / DHTML
- Detection objet camera - Forum C++ & C++ .NET
- Tirage carte gratuit 52 ✓ - Forum VBA Office (Excel, Word ...)
- Vérifier numéro carte bancaire - Forum PHP
- Tirage carte prenom ✓ - Forum C# / .NET
4 réponses
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
11 janv. 2004 à 13:59
11 janv. 2004 à 13:59
Cette solution te convient-elle ?
Sub VitesseProcesseur()
Dim Obj As Object
Dim i As Variant
Set Obj = GetObject("WinMgmts:").instancesof("Win32_Processor")
For Each i In Obj
MsgBox i.Name & " " & i.CurrentClockSpeed & " Mhz"
Next
End Sub
Cordialement
CanisLupus
Sub VitesseProcesseur()
Dim Obj As Object
Dim i As Variant
Set Obj = GetObject("WinMgmts:").instancesof("Win32_Processor")
For Each i In Obj
MsgBox i.Name & " " & i.CurrentClockSpeed & " Mhz"
Next
End Sub
Cordialement
CanisLupus
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
11 janv. 2004 à 16:48
11 janv. 2004 à 16:48
Pour la carte son, je sais juste comment faire pour savoir s'il y en a une :
Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Function Presence_Carte_Son() As Boolean
Dim Carte As Integer
Carte = waveOutGetNumDevs()
If Carte > 0 Then
Presence_Carte_Son = True
Else
Presence_Carte_Son = False
End If
End Function
Pour le modèle, ça doit être possible puisqu'on peut le voir dans le gestionnaire de périf mais je ne sais pas encore comment. Mais est-ce si important ?
Codrialement
CanisLupus
Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Function Presence_Carte_Son() As Boolean
Dim Carte As Integer
Carte = waveOutGetNumDevs()
If Carte > 0 Then
Presence_Carte_Son = True
Else
Presence_Carte_Son = False
End If
End Function
Pour le modèle, ça doit être possible puisqu'on peut le voir dans le gestionnaire de périf mais je ne sais pas encore comment. Mais est-ce si important ?
Codrialement
CanisLupus
Treek
Messages postés
13
Date d'inscription
mercredi 13 février 2008
Statut
Membre
Dernière intervention
5 décembre 2010
16 avril 2008 à 10:27
16 avril 2008 à 10:27
Bonjour,
Dans le même sujet , je cherche à récupérer le numéro de série du CPU,le mettre dans une variable, pour ensuite l'afficher dans un tableau.Pourriez vous m'indiquer le code en VB6.
Merci d'avance pour votre réponse.
Cordialement
PA
Dans le même sujet , je cherche à récupérer le numéro de série du CPU,le mettre dans une variable, pour ensuite l'afficher dans un tableau.Pourriez vous m'indiquer le code en VB6.
Merci d'avance pour votre réponse.
Cordialement
PA
