Đánh giá chủ đề:
  • 7 Votes - 3.86 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lấy về số seri CPU, ổ cứng MainBoard trong Access
#1
Đôi khi có 1 số nhu cầu lấy thông tin phần cứng trong chương trình (chẳng hạn để cấp bản quyền). Dưới đây là Đoạn Code cho phép bạn lấy thông tin CPU máy tính:
Download Demo

Chú ý: Một số Main của các máy tính đặc biệt (VAIO, Apple...) không cho lấy thông số, nên hàm lấy main chỉ mang tính tham khảo .
Mã:
' Lay thong tin CPU
Function GetCPUID()
     'ta.o ?o^'i ty'o+.ng di.ch vu. WMI
     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
     'ti`m các CPU ?ang cha.y cu?a máy
     Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
     'la(.p hie^?n thi. ID cu?a tu+`ng CPU
     For Each objItem In colItems
     GetCPUID = objItem.ProcessorId
     Next
    
     End Function
' Lay Thong tin o Cung
Mã:
Function GetHDDserial()
    Dim fso As Object, Drv As Object
            'Create a FileSystemObject object
              Set fso = CreateObject("Scripting.FileSystemObject")
              'Assign the current drive letter if not specified
              Set Drv = fso.GetDrive(Environ("SystemDrive"))
              With Drv
                  If .IsReady Then
                      DriveSerial = Abs(.SerialNumber)
                  Else    '"Drive Not Ready!"
                      DriveSerial = -1
                  End If
              End With
              'Clean up
              Set Drv = Nothing
              Set fso = Nothing
              GetHDDserial = DriveSerial
     End Function
' Lay Thong tin Mainboard
Mã:
Function GetBoardSerial()

Set WMI = GetObject("winmgmts:\\.\root\cimv2")

Set objs = WMI.ExecQuery("Select * from Win32_BaseBoard")
For Each obj In objs
GetBoardSerial = obj.SerialNumber
Next

End Function
=================================================================
1.Lấy thông tin CPU (Click to View)
2. Lấy thông tin ổ cứng: (Click to View)
3. Lấy Serial Main Board (Click to View)
Phần sửa lỗi lấy thông tin mainboard của Cafe Via He (Click to View)
Cafe via He: sửa hàm GETCPU của Noname chút. (Click to View)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He
#2
Cám ơn Noname để mình thực hành
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
Noname ơi mình nhờ bạn nối 2 đoạn Code để lấy thông tin của Main Board và ổ cứng dùm mình với (Lấy thông tin Main Board hoặc ổ cứng thì mình làm được rồi, lấy 2 thông tin cùng lúc thì mình chịu thua). Cám ơn nhiều.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
sac, thì mỗi cái bạn gán nó vào 1 biến. Hoặc thay vì dùng sub, bạn dùng function, rồi chỗ cuối cùng phát biểu msgbox, bạn gán tên function bằng kết quả trả về.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Noname ơi thông cảm cho mình nhé, cái vụ này thì mình dở lắm không biết gì cả, đặc biệt là Code.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
Private Sub Form_Load()
Dim fso As Object, Drv As Object
'Create a FileSystemObject object
Set fso = CreateObject("Scripting.FileSystemObject")
'Assign the current drive letter if not specified
Set Drv = fso.GetDrive() ' Nó báo lỗi ngay dòng này Noname ơi.
With Drv
If .IsReady Then
DriveSerial = Abs(.SerialNumber)
Else '"Drive Not Ready!"
DriveSerial = -1
End If
End With
'Clean up
Set Drv = Nothing
Set fso = Nothing
MsgBox "Serial là: " & DriveSerial
End Sub
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
Noname ơi, xem lại dùm mình với
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#8
Bạn sửa dòng đó như thế này thử xem:

Set Drv = fso.GetDrive(Environ("SystemDrive"))
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#9
Cám ơn bạn nhé !
Tiện đây cho mình hỏi thêm tí nhé :
- Mình có forms có tên là DangKy
- Bây giờ mình muốn các bạn viết dùm mình Code qui định cho nó khi khởi động đến lần thứ 3 hay 5,6... (do mình quy định trong code) thì hiện lên dòng thông báo "Đã hết hạn sử dụng", bấm OK thì nó thoát fomrs.
Cám ơn !
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#10
Nhờ các bạn trợ giúp :

- Mình có forms có tên là DangKy
- Bây giờ mình muốn các bạn viết dùm mình Code qui định cho nó khi khởi động đến lần thứ 3 hay 5,6... (do mình quy định trong code) thì hiện lên dòng thông báo "Đã hết hạn sử dụng", bấm OK thì nó thoát fomrs.
Cám ơn !
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Set Security Low cho Access Noname 10 3,320 24-06-15, 06:21 PM
Bài mới nhất: kieu manh
  [Thủ Thuật] Demo gửi Email có thêm file đính kèm Access maidinhdan 0 153 09-04-15, 10:22 PM
Bài mới nhất: maidinhdan
  Phân quyền truy cập menu trong Access Noname 21 10,940 03-02-15, 10:03 AM
Bài mới nhất: nhocnhim0009
  Phân quyền sửa Chương trình trong Access Noname 6 5,016 28-11-14, 10:43 AM
Bài mới nhất: nvthanghcm
  Hàm đọc số dùng mã Unicode trong Access Noname 27 9,530 03-11-14, 04:11 AM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)