Recuperer l'uid de son processeur (cpuid)
5/5 (69 avis)
Vue 15 253 fois - Téléchargée 1 009 fois
Description
(En reponse a une question dans le forum)
Ce code vous permet de recuperer facilement
le numero d'identifiant unique de votre
micro-processeur a condition d'avoir un
486 ou superieur.
il y a surement un pb dans la maniere de créer la chaine de l'id
mais je vous laisse trouver ça sur votre machine
Ce code vous permet de recuperer facilement
le numero d'identifiant unique de votre
micro-processeur a condition d'avoir un
486 ou superieur.
Source / Exemple :
Option Explicit
'
' O O O
' \__/ \__/
' /=||=||=\ oouuuunnnnnnnnmmmmmmmmmmmmmm' // ||_|| CPUID DEMO ' \\ /\ #\ oouuuunnnnnnnnmmmmmmmmmmmmmmmm' /=( \ )==> Coded by EBArtSoft@ '// \O_\/ Copyright © 2004 '\\ || || email ebartsoft@hotmail.com ' \==||=||==/ oouuuunnnnnnnnmmmmmmmmmmmmmmmmmmmm' ===========
'==== E.B ====
'
' ALL RIGHTS RESERVED ::..
' Permission to use, copy, modify, and distribute this software for
' any purpose and without fee is hereby granted, provided that the
' above copyright notice appear in all copies and that both the copyright
' notice and this permission notice appear in supporting documentation.
'
' THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
' AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
' INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
' FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL WE BE LIABLE
' TO YOU OR ANYONE ELSE FOR ANY DIRECT, SPECIAL, INCIDENTAL, INDIRECT
' OR CONSEQUENTIAL DAMAGES OF ANY KIND, OR ANY DAMAGES WHATSOEVER,
' INCLUDING WITHOUT LIMITATION, LOSS OF PROFIT, LOSS OF USE, SAVINGS
' OR REVENUE, OR THE CLAIMS OF THIRD PARTIES, WHETHER OR NOT WE HAS BEEN
' ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
' ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
' POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
'
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As String, ByRef hWnd As Long, ByRef Msg As Long, ByRef wParam As Long, ByRef lParam As Long) As Long
Private Sub Form_Load()
Text1 = GetCPUID
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0: Text1 = GetCPUID
Case 1: Clipboard.Clear: Clipboard.SetText Text1: MsgBox "Copied", vbInformation
End Select
End Sub
Private Function GetCPUID() As String
Dim Asm As String
Dim eax As Long
Dim ebx As Long
Dim ecx As Long
Dim edx As Long
Dim Low As Long
Asm = Asm & Chr(&H56) '56 push esi
Asm = Asm & Chr(&H55) '55 push ebp
Asm = Asm & Chr(&H8B) & Chr(&HEC) '8B EC mov ebp,esp
Asm = Asm & Chr(&H8B) & Chr(&H75) & Chr(&HC) '8B 75 0C mov esi,dword ptr [ebp+0Ch]
Asm = Asm & Chr(&H8B) & Chr(&H6) '8B 06 mov eax,dword ptr [esi]
Asm = Asm & Chr(&HF) & Chr(&HA2) '0F A2 cpuid
Asm = Asm & Chr(&H8B) & Chr(&H75) & Chr(&HC) '8B 75 0C mov esi,dword ptr [ebp+0Ch]
Asm = Asm & Chr(&H89) & Chr(&H6) '89 06 mov dword ptr [esi],eax
Asm = Asm & Chr(&H8B) & Chr(&H75) & Chr(&H10) '8B 75 10 mov esi,dword ptr [ebp+10h]
Asm = Asm & Chr(&H89) & Chr(&H1E) '89 1E mov dword ptr [esi],ebx
Asm = Asm & Chr(&H8B) & Chr(&H75) & Chr(&H14) '8B 75 14 mov esi,dword ptr [ebp+14h]
Asm = Asm & Chr(&H89) & Chr(&HE) '89 0E mov dword ptr [esi],ecx
Asm = Asm & Chr(&H8B) & Chr(&H75) & Chr(&H18) '8B 75 18 mov esi,dword ptr [ebp+18h]
Asm = Asm & Chr(&H89) & Chr(&H16) '89 16 mov dword ptr [esi],edx
Asm = Asm & Chr(&H5D) '5D pop ebp
Asm = Asm & Chr(&H5E) '5E pop esi
Asm = Asm & Chr(&HC2) & Chr(&H10) & Chr(&H0) 'C2 10 00 ret 10h
eax = 1
CallWindowProc Asm, eax, ebx, ecx, edx
Low = eax
eax = 3
CallWindowProc Asm, eax, ebx, ecx, edx
GetCPUID = HexVal(Low) & "-" & HexVal(ecx) & "-" & HexVal(edx)
End Function
Private Function HexVal(ByVal lngValue As Long) As String
HexVal = Hex(lngValue)
If Len(HexVal) < 8 Then HexVal = String(8 - Len(HexVal), "0") & HexVal
HexVal = Left$(HexVal, 4) & "-" & Right$(HexVal, 4)
End Function
Conclusion :
il y a surement un pb dans la maniere de créer la chaine de l'id
mais je vous laisse trouver ça sur votre machine
Codes Sources
A voir également
- Cpu uid
- Uid code - Meilleures réponses
- C / C++ / C++.NET : Information processeur (cpuid) - CodeS SourceS - Guide
- Récupérer le taux d'utilisation CPU et mémoire en VBScript ✓ - Forum - Visual Basic 6
- Recuperation de la frequence du processeur ✓ - Forum - C / C++ / C++.NET
- Visual Basic / VB.NET : Comment obtenir des infos sur votre processeur par l'instruction asm cpuid.. - Guide
- C# / .NET : Récupérer la fréquence du processeur - CodeS SourceS - Guide
- Messages postés
-
332
- Date d'inscription
- lundi 29 septembre 2008
- Statut
- Membre
- Dernière intervention
- 10 avril 2020
110 oct. 2009 à 19:05
Sa marche toujours !
16 janv. 2005 à 22:07
16 déc. 2004 à 17:26
16 déc. 2004 à 17:15
Encore une petite question...con. Je suis pas tres habitué avec les dll et mon vb me sort des message d'erreur comme quoi mon point d'entrée n'est pas valide pour la dll. est ce que tu peut m'aiguiller sur la maniére d'appeller ta procedure de la bonne facon...
Merci pour ton aide
16 déc. 2004 à 16:45
En reponse à ndg,
Normalement le numéro de serie du processeur est toujours unique, si c'est pas le cas verifie que l'option cacher le numéro du Proc est desactivé dans le Bios de ta machine.
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.