• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Lấy về số seri CPU, ổ cứng MainBoard trong Access
  

  Viết bởi: Noname 23-08-10, 01:25 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (35)

• Đô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)

  Mã:

  Sub GetCPUID()
     'ta.o ðo^'i tý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
     MsgBox "Processor Id: " & objItem.ProcessorId
     Next
     End Sub

  
  
  Lưu ý rằng trên các máy PC bình thường, chỉ có 1 CPU nên vòng lặp hiển thị thông tin sẽ chỉ chạy 1 lần và hiển thị ID của CPU duy nhất của máy.
  
  
  nguồn PC word
  2. Lấy thông tin ổ cứng: (Click to View)

  ' Đã update phần sửa lỗi của Cafe Via He
  

  Mã:

  Sub readserienumber()
    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
              Msgbox "Serial là: " & DriveSerial
     End Sub
  3. Lấy Serial Main Board (Click to View)

  
  

  Mã:

  Sub readseriemainboard()
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
Msgbox "Serial main: " & sAns
End Sub
  Phần sửa lỗi lấy thông tin mainboard của Cafe Via He (Click to View)

  (11-11-10, 11:11 AM)Cafe Via He Đã viết: @ Bạn Quân: Thử lại đoạn code này, Cafe thêm mắm muối chút nè
  
  

  Mã:

  Sub readseriemainboard()
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 & "Serial Number: " & obj.SerialNumber & vbCrLf
    sAns = sAns & "Model: " & obj.product & vbCrLf

    If sAns < objs.Count Then sAns = sAns & ","

Next
'Set objs = Nothing
Set objs = WMI.InstancesOf("Win32_BIOS")
  
For Each obj In objs
    sAns = sAns & "BIOS: " & obj.Manufacturer & vbCrLf
Next
MsgBox sAns
End Sub

  Cafe via He: sửa hàm GETCPU của Noname chút. (Click to View)

  (11-11-10, 11:25 AM)Cafe Via He Đã viết: --------->>>> Sửa lại đoạn code GETCPU của Noname chút. Lấy CPU name và Manufacturer
  

  Mã:

  Sub GetCPUID()
     'ta.o ðo^'i tý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
     MsgBox "Processor Id: " & objItem.ProcessorId & vbCrLf & _
            "Proccess Name: " & objItem.Name & vbCrLf & _
            "Manufacturer: " & objItem.Manufacturer
     Next
End Sub

  
  


•   Chương trình quản lý kế toán của công ty Việt tiến soft
  

  Viết bởi: Noname 23-08-10, 01:24 AM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (5)

• Share by: chihienphuco
  pass: VTS
  Download: Download
  
  
  


•   Template-Selling Your Ideas
  

  Viết bởi: Noname 22-08-10, 11:13 AM Chuyên mục: Ms PowerPoint - Không có hồi đáp

• [iframe]https://docs.google.com/present/view?id=ddjj65v9_117wr797ccw[/iframe]
  
  
  
  


•   Bảo vệ file data của bạn
  

  Viết bởi: Noname 22-08-10, 09:58 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (3)

• Hỏi: File data muốn sử dụng thì phải share full, mà share full thì bị mần thịt là chuyện thường xuyên.
  A e cho hỏi có cách nào khắc phục ko cho xoá File Data.Mdb trong môi trường nhiều người dùng. Có chương trình ngoại vi nào không cho xoá File Data mà các Client vẫn hoạt động bình thường không?
  
  Đầu tiên bạn phải chắc rằng file data bạn nằm trong phân vùng NTFS
  Bạn vào tool->folder option->view
  Check bỏ tùy chọn simle file Sharing( các bứơc này có thể bỏ qua nếu đang dùng Win server 2003 )
  
  
  Sau đó , click chuột phải vào thư mục chứa data, chọn:
  
  
  
  
  Cách này chỉ hạn chế người ta xóa file của mình thôi! Chứ muốn phá thì dễ ợt! Trừ khi bạn để dữ liệu trên SQL server rồi nối qua Access thì mới an toàn!
  


•   In hình ảnh khi có đường dẫn hình trong report
  

  Viết bởi: Noname 21-08-10, 11:31 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (30)

• Hỏi: Tôi đã lưu hình ảnh vào ổ đĩa G: ( G: là ổ đĩa mạng). Và có 1 cơ sở dữ liệu lưu đường dẫn theo dạng : tvhinh(mahang,txtpic). Bây giờ trong Report làm sao tôi có thể vẽ lại các hình tôi đã lưu!
  Đáp:
  Trong Report, bạn vẽ 1 textbox đặt tên là txtpic, đặt thuộc tính visible của nó là False.
  Vẽ 1 đối tượng image đặt tên nó là image1
  Sau đó cho đoạn code sau vào
  
  Mã:

  Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Pic
If IsNull(Me.txtPic) Then
    Me.Image1.Picture = ""
    Me.Image1.Visible = False
Else
    Me.Image1.Picture = txtPic.Value
    Me.Image1.Visible = True
End If
Exit Sub
err_Pic:
    MsgBox Err.Description, vbOKOnly
    Exit Sub
End Sub
  Cập nhật Demo
  
  Download
  



Chủ đề Mới nhất

Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-Hôm nay, 08:41 AM- » Bài trả lời: 11- » Lượt xem: 263

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-Hôm nay, 08:36 AM- » Bài trả lời: 57- » Lượt xem: 3,108

Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 11:34 AM- » Bài trả lời: 44- » Lượt xem: 385

So Sánh Nước Hoa Chanel C... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: EliHayes-22-12-24, 12:24 PM- » Bài trả lời: 0- » Lượt xem: 5

Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 95

Test phần mềm QUẢN LÝ TÀI... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: AnNguyen-19-12-24, 05:33 PM- » Bài trả lời: 44- » Lượt xem: 5,194

A Bold Move to Expand the... -Chuyên mục: Query-Đăng bởi lần cuối: nigelbdhmp-19-12-24, 04:55 PM- » Bài trả lời: 0- » Lượt xem: 14

[Demo p2] Tìm kiếm và tô ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ledangvan-06-12-24, 02:53 PM- » Bài trả lời: 17- » Lượt xem: 1,961

File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: giauvnd-05-12-24, 04:35 PM- » Bài trả lời: 30- » Lượt xem: 3,682

Hỏi về Crosstab Query: Lu... -Chuyên mục: Query-Đăng bởi lần cuối: feeling-04-12-24, 07:24 PM- » Bài trả lời: 7- » Lượt xem: 270




Diễn đàn Thống kê

» Thành viên: 5,090 » Thành viên mới nhất: vebotvttbong » Các chủ đề diễn đàn: 9,879 » Các bài viết diễn: 48,661 Thống kê đầy đủ