Nhờ viết đoạn code nhận đĩa cứng trên access

[tui123]

Hi!!
Mình có phần mềm viết bằng access, nhưng mình không biết viết đăng ký bản quyền giống như những phần mềm Microsoft. Mong mọi người giúp đỡ Thanks trước nha

 

[quanghoack]

bạn nhờ anh  duyet đi. anh này giỏi ms access lắm. 

 

[sealand]

Bạn có thể sử dụng hàm Environ để lấy được rất nhiều thông số máy tính. Bạn thử code sau:

Sub ktra()
Dim i, tb
For i = 1 To 25
tb = tb & i & "/ " & Environ(i) & Chr(10)
Next
MsgBox tb
End Sub

Để lấy Serial của ổ đĩa cứng (Mặc định là ổ C bạn thử code sau:

Sub DrSerial()
    Dim fs, d
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive("C:\")
    MsgBox d.SerialNumber
End Sub

Từ 2 ví dụ trên thì Serial của ổ đĩa hệ thống là:

Sub DrSerial()
    Dim fs, d
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(Right(Environ(22), 2))
    MsgBox d.SerialNumber
End Sub

Hoăc code sau cho chắc:

Sub DrSerial()
    Dim fs, d
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(Environ("SystemDrive"))
    MsgBox d.SerialNumber
End Sub

Cẩn thận hơn bạn lấy thêm thông tin của Processor nữa thì có thể nói là xác định chính xác máy da cấp thẩm quyền.