Đánh giá chủ đề:
  • 7 Votes - 3.86 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lấy về số seri CPU, ổ cứng MainBoard trong Access
23-08-10, 12:25 PM (Được chỉnh sửa: 18-11-10 09:34 AM bởi Noname.)
Bài viết: #1
Lấy về số seri CPU, ổ cứng MainBoard trong Access
Đô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 Noname020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Trả lời
 Những người đã cảm ơn Cafe Via He
01-10-10, 10:01 PM
Bài viết: #2
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
Cám ơn Noname để mình thực hành

Chữ Ký của DoquangLamHãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Trả lời
01-10-10, 10:17 PM
Bài viết: #3
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
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 DoquangLamHãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Trả lời
01-10-10, 10:24 PM
Bài viết: #4
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
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 Noname020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Trả lời
01-10-10, 11:08 PM
Bài viết: #5
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
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 DoquangLamHãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Trả lời
02-10-10, 10:25 AM
Bài viết: #6
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
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 DoquangLamHãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Trả lời
02-10-10, 08:17 PM
Bài viết: #7
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
Noname ơi, xem lại dùm mình với

Chữ Ký của DoquangLamHãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Trả lời
04-10-10, 09:32 AM
Bài viết: #8
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
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) ღღღღღ
Trả lời
 Những người đã cảm ơn Noname
04-10-10, 06:28 PM
Bài viết: #9
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
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 DoquangLamHãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Trả lời
04-10-10, 06:42 PM
Bài viết: #10
Code qui định số lần cho phép khởi động fomrs !
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 DoquangLamHãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Trả lời

Tags: Lấy, về, số, seri, ổ, cứng, MainBoard, trong, Access,

Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] Import Table từ file Access này sang một file Access khác Xuân Thanh 1 707 21-07-14 05:36 PM
Bài mới nhất: ndthanh29
  nén file Access bằng VBA Noname 11 3,860 03-06-14 07:46 PM
Bài mới nhất: Xuân Thanh
Rainbow TẠO RIBBON TRONG ACCESS 2007 HaHoa 7 1,891 29-04-14 01:55 PM
Bài mới nhất: Minh Tiên
  Phân quyền sửa Chương trình trong Access Noname 5 4,525 18-04-14 10:20 AM
Bài mới nhất: huyvu333
  Gắn file Help vào chương trình Access Noname 6 3,186 06-04-14 10:52 PM
Bài mới nhất: ttm20062008

Chuyển nhanh:


Thành viên đang đọc chủ đề: 1 Khách

Liên hệ | Thủ Thuật Access | Lên trên | Nội dung | Bản rút gọn | Tin RSS