• Trang chủ click to expand contents 

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

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

    DoquangLam > 02-04-11, 11:49 AM

    Chào các bạn !
    Mình đã thực hiện code lấy thông tin ổ cứng như ở trên rồi, mỗi lần mình cài lại Win (Phiên bản khác), ổ cứng thì không thay đổi thì thông tin ổ cứng lại là số khác. Như vậy là sao, mong các bạn giải thích và có cách giải quyết dùm nhé.

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

    DoquangLam > 03-04-11, 08:42 PM

    Noname ơi, giải thích dùm mình với, Mình chỉ thay đổi main thôi, cài lại win, nhưng khi lấy thông tin ổ cứng thì không có gì cả ?

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

    DoquangLam > 22-04-11, 11:38 PM

    Code lấy thông tin ổ cứng mà noname đã viết mình ứng dụng vào một số máy thì thấy :
    - Một số ít máy không lấy được thông tin ổ cứng.
    - Nếu những máy cài hoặc ghost 1 bản win giống nhau thì thông tin ổ cứng giống nhau.
    Như vậy là như thế nào, mình chưa hiểu, mong các bạn giải đáp giúp nhé. Cám ơn !

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

    Noname > 23-04-11, 12:33 AM

    (22-04-11, 11:38 PM)DoquangLam Đã viết: Code lấy thông tin ổ cứng mà noname đã viết mình ứng dụng vào một số máy thì thấy :
    - Một số ít máy không lấy được thông tin ổ cứng.
    - Nếu những máy cài hoặc ghost 1 bản win giống nhau thì thông tin ổ cứng giống nhau.
    Như vậy là như thế nào, mình chưa hiểu, mong các bạn giải đáp giúp nhé. Cám ơn !

    Có lẽ là do các bản win khác nhau, họ dùng các drive khác nhau. Vì thế mà các đại gia phần mềm chưa thấy ai dùng cách căn cứ vào phần cứng để kiểm tra license cả!

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

    haquocquan > 23-04-11, 02:19 PM

    (22-04-11, 11:38 PM)DoquangLam Đã viết: - Nếu những máy cài hoặc ghost 1 bản win giống nhau thì thông tin ổ cứng giống nhau.

    Theo mình được biết, thì:
    - Các bản WIN đều có trình tự động nhận ổ cứng sau khi cài đặt xong,
    - Khi bạn chạy bản GHOST, nếu file DRIVER ổ cứng không thay đổi (do tương tự mà), thì thông tin ổ cứng vẫn thế.
    - GHOST chỉ tạo cho bạn bản BACKUP cơ bản để tiện trong phục hồi, còn để FULL thì phải REINSTALL thôi.

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

    nguyenhungcuong > 07-06-16, 07:23 PM

    Các bạn cho mình hỏi:
    - Mình muốn đưa các thông tin như: CPU, Ổ cứng, Main Board ( Demo Lấy về số seri CPU, ổ cứng MainBoard trong Access ) từ form vào table  thì làm như thế nào?

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

    maidinhdan > 08-06-16, 10:17 AM

    (07-06-16, 07:23 PM)nguyenhungcuong Đã viết: Các bạn cho mình hỏi:
    - Mình muốn đưa các thông tin như: CPU, Ổ cứng, Main Board ( Demo Lấy về số seri CPU, ổ cứng MainBoard trong Access ) từ form vào table  thì làm như thế nào?

    Trả lời:

    1. Tạo 1 table;     tên là tblthongso
    2. Tạo 1 form có: 1 textbox ( tạm gọi txtHDD) + 1 nút command (cmdcapnhat)
    3. Tao 1 modules Viết hàm lấy thông số: ở đây mình lấy Thông số Ổ cứng.
    Mã PHP:
     Function ThongsoHDD() As String
        Dim fsObj       As Object
        Dim drv         As Object
        Set fsObj     = CreateObject("Scripting.FileSystemObject")
        Set drv = fsObj.Drives("C")
        ThongsoHDD = Hex(drv.serialnumber)
    End Function 

    * Một số việc cần làm nửa.
    1. Mở form lên vào chèn vào sự kiện load form cú pháp sau
    Mã PHP:
    Private Sub Form_Load()
    Me.txtHDD = ThongsoHDD()
    End Sub 
    Mục đích load lên textbox đã tạo

    2. Tạo nút nhấn chèn vào table

    Mã PHP:
    Private Sub cmdCapnhat_Click()
        Dim rs As Recordset
        Set rs     = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset)
            rs.AddNew
            rs    !HDD = Me.txtHDD
            rs    .Update
            rs    .Close
        MsgBox     "Da cap nhat", vbInformation, "Thong bao"
    End Sub 


    Đính kèm Demo

    Thân!

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

    nguyenhungcuong > 08-06-16, 02:17 PM

    Cám ơn bạn. Bạn cho mình hỏi thêm là:
    Mình muốn chèn thêm CPUID và Main Board vào table thì đoạn code sau đây sửa thế nào?

    1. Mở form lên vào chèn vào sự kiện load form cú pháp sau
    Mã PHP:
    Private Sub Form_Load()
    Me.txtHDD = ThongsoHDD()
    End Sub 
    Mục đích load lên textbox đã tạo

    2. Tạo nút nhấn chèn vào table

    Mã PHP:
    Private Sub cmdCapnhat_Click()
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset)
            rs.AddNew
            rs!HDD = Me.txtHDD
            rs.Update
            rs.Close
        MsgBox "Da cap nhat", vbInformation, "Thong bao"
    End Sub 

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

    maidinhdan > 08-06-16, 04:00 PM

    (08-06-16, 02:17 PM)nguyenhungcuong Đã viết: Cám ơn bạn. Bạn cho mình hỏi thêm là:
    Mình muốn chèn thêm CPUID và Main Board vào table thì đoạn code sau đây sửa thế nào?

    Bạn không chịu đọc kỹ bài viết của mình,

    Bạn muốn hiện cái gì thì Tạo thêm textbox và hàm của cái đó.

    Mình giải thích đoạn dưới đây cho bạn rõ hơn

    Bươc1:

    Mã:
    Private Sub Form_Load()
    Me.txtHDD = ThongsoHDD()
    End Sub

    Me.txtHDD : là cái textbox sẽ hiện khi chạy form, bạn muốn hiện main thì làm thêm và đặt tên cho nó
    ThongsoHDD() : là một hàm viết trong Modules lấy thông số của ổ cứng, bạn muốn hiện Main thì viết hàm lấy thông số main

    Bước 2. Tạo nút nhấn chèn vào table



    Mã:
    Private Sub cmdCapnhat_Click()

        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset) ' Truy xuất đến table Thông tin bằng rs'
            rs.AddNew   ' Tạo mới record
            rs!HDD = Me.txtHDD   ' rs!HDD là tên cột trong tableThong tin, còn [color=#333333]Me.txtHDD tên textbox trong form'

            ' Nếu muốn thêm cột nào nửa thì chèn thêm lệnh ở đây'
            ' giải sử trong table có cột là Main và trên form có textbox là txtMain, ta viết như sau'
            rs!Main = Me.txtMain

            rs.Update  ' Nạp vào table'
            rs.Close ' Ngắt kết nối
        MsgBox "Da cap nhat", vbInformation, "Thong bao"
    End Sub


    Thân mến!

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

    nguyenhungcuong > 08-06-16, 05:44 PM

    Bạn có thể xem lại giúp mình đoạn code của mình sai ở đâu ko:

    B1: [b]Private Sub Form_Load()[/b]
    [b]Me.txtCPUID = ThongsoCPU() nó báo lỗi ở đây
    Me.txtHDD = ThongsoHDD()    [/b]
    [b]Me.txtMain = ThongsoMain()
    End Sub    [/b]

    [b]B2: [/b]Private Sub cmdCapnhat_Click()

        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset) 
            rs.AddNew  
            rs!CPUID = Me.txtCPUID
            rs!HDD = Me.txtHDD   
                 rs!Main = Me.txtMain

            rs.Update  ' Nó báo lỗi ở đây nữa bạn'
            rs.Close 
        MsgBox "Da cap nhat", vbInformation, "Thong bao"
    End Sub