我们在写共享软件的时候一般都会使用用户计算机的CPU号和硬盘号来做机器码,下面的代码就是获取使用者CPU号的代码...
引用Microsoft WMI Scripting V1.2 Library
Private Sub GetProcessorID()
Dim a As SWbemServices
Dim b As SWbemObjectSet
Dim c As SWbemObject
Dim d As SWbemPropertySet
Dim e As SWbemProperty
Set a = GetObject("winmgmts:")
Set b = a.InstancesOf("Win32_Processor")
For Each c In b
With c
If .Properties_.Count > 0 Then
Set d = .Properties_
For Each e In d
If e.Name = "ProcessorId" Then
Text1 = e.Value
End If
Next
End If
End With
Next
End Sub
Private Sub Form_Load()
GetProcessorID
End Sub
引用Microsoft WMI Scripting V1.2 Library
Private Sub GetProcessorID()
Dim a As SWbemServices
Dim b As SWbemObjectSet
Dim c As SWbemObject
Dim d As SWbemPropertySet
Dim e As SWbemProperty
Set a = GetObject("winmgmts:")
Set b = a.InstancesOf("Win32_Processor")
For Each c In b
With c
If .Properties_.Count > 0 Then
Set d = .Properties_
For Each e In d
If e.Name = "ProcessorId" Then
Text1 = e.Value
End If
Next
End If
End With
Next
End Sub
Private Sub Form_Load()
GetProcessorID
End Sub