|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Senior Member
Iscritto dal: Dec 2001
Città: Altidona (AP)
Messaggi: 349
|
Per i Geni dei Visual Basic
Sto scrivendo un programma in visual basic, non vi annoio col dirvi cosa fa. Cmq il problema è che mi serve leggere il NUMERO DI SERIE DELLA CPU; ho letto da qualche parte che ogni cpu dovrebbe averne uno. E' possibile leggerlo tramite software? Se sì, in che modo?
ringrazio tutti ciao |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Solo sui Pentium 3 (non so sui Pentium 4) è possibile leggere il numero di serie...ma normalmente la possibilità di leggerlo è disabilitata di defaut...
|
![]() |
![]() |
![]() |
#3 | |
Member
Iscritto dal: Jan 2001
Città: PATAVIUM
Messaggi: 280
|
Re: Per i Geni dei Visual Basic
Quote:
Codice:
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _ (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, lpVolumeSerial_Numberber As Long, _ lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _ ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long Public Const GETDI_SERIAL = 1 Public Const GETDI_LABEL = 2 Public Const GETDI_TYPE = 3 Function GetDriveInfo(strDrive As String, iType As Integer) Dim Serial_Number As Long Dim Drive_Label As String Dim Fat_Type As String Dim Return_Value As Long Drive_Label = Space(256) Fat_Type = Space(256) Return_Value = GetVolumeInformation(strDrive, Drive_Label, Len(Drive_Label), Serial_Number, 0, 0, Fat_Type, Len(Fat_Type)) GetDriveInfo = CStr(Serial_Number) End Function
__________________
Salva il Pianeta |
|
![]() |
![]() |
![]() |
#4 |
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Comunque quello non è il numero di serie dell'HD... E' il numero seriale del volume (volume è una qualsiasi parte dell'HD a cui è associata una lettera d'unità)...
Il numero di serie del volume viene associato all'unità al momento della formattazione...quindi formattando l'unità il seriale cambia... |
![]() |
![]() |
![]() |
#5 | |
Member
Iscritto dal: Jan 2001
Città: PATAVIUM
Messaggi: 280
|
Quote:
ma siccome pensavo lo volesse usare per proteggere la sua applicazione e ben difficile trovare 2 serial identici
__________________
Salva il Pianeta |
|
![]() |
![]() |
![]() |
#6 | |
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Quote:
|
|
![]() |
![]() |
![]() |
#7 |
Senior Member
Iscritto dal: Dec 2001
Città: Altidona (AP)
Messaggi: 349
|
Grazie mille Xegallo, effettivamente hai ragione. Farò un pò di tentativi e poi vi faccio sapere!
ciao |
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 04:46.