Cho em hỏi code này là lấy seria của ổ cứng hay main, chip! (1 người xem)

[alibaba2209]

Option Explicit
Public Function GetCPUID()
'Ham lay thong tin Seria CPU
Dim objItem
Application.Volatile
With GetObject("winmgmts:\\.\root\cimv2")
For Each objItem In .ExecQuery("Select * from Win32_Processor")
GetCPUID = objItem.ProcessorId
Next
End With
End Function

mã máy tính của em lấy được "BFEBFBFF00040651" giờ em muốn nhờ các a viết cho code tra mã của máy và add cấp quyền cho "BFEBFBFF00040651" nếu trùng nó sẽ cho dùng, chỉ hỏi lần đầu! gần như kiểu file dưới đính kèm

 

[thuyyeu99]

trước khi chạy code thì kiem tra

if GetCPUID="BFEBFBFF00040651" then
cho chay
else
exit sub
en if

PS: ban luu GetCPUID vào 1 cell nao hay trong regedit nieu kiem tra co thi khong hien nua

 

[alibaba2209]

trước khi chạy code thì kiem tra

if GetCPUID="BFEBFBFF00040651" then
cho chay
else
exit sub
en if

PS: ban luu GetCPUID vào 1 cell nao hay trong regedit nieu kiem tra co thi khong hien nua

thềm vào code như nào bạn nhỉ, chỉ rõ hơn đi có file đính kèm đó

 

[thuyyeu99]

Hic File bạn đặt Pass rồi tui đâu biết Pass đâu mà mở, với lại bạn tìm trong diễn đàn hình như có hết các yêu cầu của bạn đó.

PS: Mà đối với Excel bạn làm vậy cũng vô ích. Thân

 

[Lequocvan]

Public Function MBSerialNumber() As String
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim sAns As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function

 

[alibaba2209]

Public Function MBSerialNumber() As String
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim sAns As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function

sài cái code này như nào anh nhỉ. e mới biết sài code >> Sub XXXX () >> alt+f8 nó ra lệnh giờ code trên sài như nào hướng dẫn qua e với!

 

[Lequocvan]

copy thành 1 module , đặt hàm ct chứ sao

 

[alibaba2209]

copy thành 1 module , đặt hàm ct chứ sao

Vâng! em làm được rồi ạ. em cảm ơn nhiều