(vv6) processore

[Asso79]

dove proteggere il mio programma facendo in modo che funzioni sono su una macchina prestabilita ...per far ciò voglio conoscere solo un codice particolare dche sta su ogni computer e sono diversi tra loro in modo da poterlo confrontare con quello giusto.....
A me interesserebbe il numero del processore, o se c'è un altro hardware unico....
Grazie

[raffaeu]

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
Dim MemStatus As MEMORYSTATUS
GlobalMemoryStatus MemStatus
InstRAM = MemStatus.dwTotalPhys / 1048576
'Se invece si desidera avere informazioni su un hard disk si
'può chiamare la funzione GetDiskFreeSpace delle API nel
'seguente modo :
Dim SectorXCluster as Long
Dim ByteXSector As Long
Dim FreeCluster As Long
Dim TotalCluster As Long
Dim FreeSpace As Long
GetDiskFreeSpace "C:" SectorXCluster, ByteXSector, _
    FreeCluster, TotalCluster
'Lo spazio libero in MB è dato dalla formula :
FreeSpace = (FreeCluster * SectorXCluster * ByteXSector) / 1048576
'Ulteriori caratteristiche su un hard disk si possono avare
'chiamando la funzione GetVolumeInformation delle API.
'Si possono ricavare il nome del volume, il numero seriale,
'la massima lunghezza per un nome di file, il tipo di file
'system e il nome del file system :
Dim volName As String
Dim volSerialNumber As Long
Dim volMaxName As Long
Dim volFlag As Long
Dim volSysName As String
volName = String(200, 0)
volSysName = String(200, 0)
GetVolumeInformation "c:\", volName, Len(volName), _
    volSerialNumber, volMaxName, volFlag, volSysName, _
    Len(volSysName)
'Richiamando la funzione GetDriveType delle API si possono
'avere informazioni sul tipo di unità (disco rigido, floppy,
'disco remoto, disco RAM o CD-ROM):
Dim t As Long
t = GetDriveType("C:\")
MsgBox "Drive C: Type " & Choose(t + 1, "Unknow", "Invalid", _
    "Floppy", "Hard-Disk", "Network", "CD-ROM","RAM Disk")
'La funzione delle API per ricavare le caratteristiche del
'proprio computer si chiama GetSystemInfo che ritorna il
'risultato attraverso i campi della struttura SYSTEM_INFO
'indicando :
'* il tipo di processore (dwProcessorType)
'* la sua architettura (dwProcessoreArchittetture)
'* la dimensione di una pagina (dwPageSize)
'* il numero di processori (dwNumberOfProcessors)
'Per ricavare la versione del sistema operativo su cui gira la
'nostra applicazione si chiama GetVersionEx delle API che
'richiede la struttura OSVERSIONINFO e in cui sono memorizzate
'informazioni come la versione minore (minor) e la versione
'maggiore (major) ed il tipo di piattaforma (Win32s, Win95 e
'Win NT).
'Se si desidera conoscere il nome assegnato al computer in fase
'di installazione è sufficiente scrivere :
Dim cpNome As String
cpNome = String(100,0)
GetComputerName cpNome, Len(cpNome)

direi che possono bastare che dici?

[Asso79]

molto gentile grazie

[Asso79]

Scusa ancora ma quale libreria devo importare per usare le api??

[xegallo]

quando dichiari una funzione api scrivi già che libreria usa
per le dichiarazioni visual studio ti da una utility che si chiama api text viewer

[raffaeu]

La proposizione Lib dell'istruzione Declare indica la posizione del file .dll che contiene la routine. Quando si fa riferimento a una delle librerie principali di Windows (User32, Kernel32 o GDI32), non è necessario includere l'estensione del nome di file:

Declare Function GetTickCount Lib "kernel32" Alias _
"GetTickCount" () As Long

[Asso79]

in un modulo ho messo:
Declare Function GetTickCount Lib "kernel32" _
() As Long

questo è il codice che ho scritto per l'hard disk
Private Sub Command2_Click()
Dim SectorXCluster As Long
Dim ByteXSector As Long
Dim FreeCluster As Long
Dim TotalCluster As Long
Dim FreeSpace As Long
GetDiskFreeSpace "C:", SectorXCluster, ByteXSector, FreeCluster, TotalCluster
'Lo spazio libero in MB è dato dalla formula :
FreeSpace = (FreeCluster * SectorXCluster * ByteXSector) / 1048576
End Sub

ma GetDiskFreeSpace nn la accetta

[xegallo]

Originariamente inviato da Asso79
in un modulo ho messo:
Declare Function GetTickCount Lib "kernel32" _
() As Long



ma GetDiskFreeSpace nn la accetta

e grazie non l'hai dichiarata cmq per amore della pace

Declare Function GetDiskFreeSpace Lib "kernel32" _
Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

[Asso79]

Grazie sei stato molto gentile,
adesso funziona.
:quote:

[xegallo]

Originariamente inviato da Asso79
Grazie sei stato molto gentile,
adesso funziona.
:quote:

cmq tuute le dichiarazione che ti serviranno in futuro le trovi nell'utility che ti ho detto prima