• Trang chủ click to expand contents 

  • [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

  • RE: [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

    Hồ Bình > 03-02-21, 01:34 PM

    (02-02-21, 08:06 PM)dangh5 Đã viết: gửi bác phiên bản này mình đã mua lince:
    usp=sharing
    Mã:
    https://drive.google.com/file/d/1pxqqB22R8mnVTgdFZgucrahiq5JpU1HD/view?usp=sharing

    Link này không vô được bác. Bác có link nào dùng được không cho mình xin. Xin Cảm ơn.

  • RE: [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

    dangh5 > 03-02-21, 09:36 PM

    bác cho mail mình gửi cho, tại diễn đàn không tìm thấy chỗ đính kèm file.

  • RE: [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

    Hồ Bình > 03-02-21, 10:07 PM

    (03-02-21, 09:36 PM)dangh5 Đã viết: bác cho mail mình gửi cho, tại diễn đàn không tìm thấy chỗ đính kèm file.

    Đây bác: hoduybinh.ydk36@gmail.com

  • RE: [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

    paulsteigel > 18-02-21, 10:12 AM

    (03-02-21, 10:07 PM)Hồ Bình Đã viết:
    (03-02-21, 09:36 PM)dangh5 Đã viết: bác cho mail mình gửi cho, tại diễn đàn không tìm thấy chỗ đính kèm file.

    Đây bác: hoduybinh.ydk36@gmail.com
    Cảm ơn Mai Đình Dân đã chuẩn bị một file demo cho anh em. Tiện thể mình gửi bản của Bác sĩ Đinh Tiến Danh đã làm trên cơ sở phối hợp. Trên diễn đàn này cũng có bản đó của Danh nhưng link vào trang đã bị khóa của tôi (do google cấu trúc lại trang web)
    Link đây. Trong file mdb này thì tôi đã giúp Danh đưa thẳng file ActiveX vào db và nó sẽ tự giải nén ra, đăng ký, "bẻ khó@" khi chạy ứng dụng (theo hướng dẫn của chính nhà sản xuất). Bác sĩ Danh này trẻ và rất say mê VBA.

    Kèm bài viết theo tôi gửi file ActiveX riêng
    Cái videocapx là để chụp màn hình, webcam...vv a/ chị chỉ cần down về rồi đăng ký là được. Tôi không rõ win8 trở lên có giống win7 về đăng ký activeX không. Để tiện, các anh chị file đính kèm, giải nén và chạy file reg.bat
    Bản activeX không cần cr@ck gì cả, đơn giản chỉ chạy một thủ tục nho nhỏ bên trong chương trình mỗi khi nó khởi động là được. 

    Mã:
    Sub RemoveKey()
        On Error Resume Next
        Dim strComputer As String, strKeyPath As String, arrSubkeys As Variant, objSubkey As Variant, objRegistry As Object
        Const HKEY_CURRENT_USER = &H80000001
        '[HKEY_CURRENT_USER\System\CurrentControlSet\Control\ado_vc5]
        strComputer = "."
       
        Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
       
        strKeyPath = "System\CurrentControlSet\Control"
        objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
       
        For Each objSubkey In arrSubkeys
          If InStr(UCase(objSubkey), "ADO_VC") Then objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath & "\" & objSubkey
        Next
        Set objRegistry = Nothing
    End Sub

  • RE: [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

    nam0812 > 24-11-21, 03:49 AM

    Bác cho em xin file vba được không ạ
    nam081283@gmail.com
    Cảm ơn bác

  • RE: [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

    tt1212 > 20-08-24, 10:29 AM

    xin Maidinhdan demo lấy hình camera máy nội soi bằng VBA với 
    minh gưi email bạn gưi cho minh xin No0146@gmail.com

  • RE: [Demo 1] Kết nối máy siêu âm/Nội soi/Camera

    nguyencaothong > 12-09-24, 03:25 PM

    Bác cho em xin các file này chưa block để về nghiên cứu.
    email nguyencaothong@gmail.com
    em xin cảm ơn bác