封装加注册码才能使用,使封装更安全.

雅林源居

封装加注册码才能使用!
封装虽说保护了VBA安全,但没有更多的保护封装文件的权限
一般来说封装文件大多是以菜单形式运行,使用加权限变得很重要了
在VBA环境中这些命令就很简单解决,而VB6环境中就不容易解决.

liucqa

你想说什么？

dajiahaoxinku12

楼主忘记上传附件了吧？   期待      

雅林源居

VB6封装03及07版以上菜单

没注册命令灰白(命令不能运行),其中注册命令可操作
已注册,所有命令都能运行
注册形式,可以是U盘绑定序列号及硬盘序列号等

雅林源居

VBA中U盘绑定命令
Sub auto_open()
Dim objWMIService As Object
Dim colItems As Object
Dim objitem As Object
Dim a, b, c, d, e, U_Dist, aaa
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
  For Each objitem In colItems
    a = objitem.DeviceID
    If a Like "*VID*" Then
      b = Split(a, "\")
      c = Split(b(UBound(b) - 1), "&")
      d = Split(c(UBound(c) - 1), "_")
      e = Split(c(UBound(c)), "_")
      U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))
      If U_Dist = "13FE3823070B243F2821EE34" Then Exit Sub  'U盘物理序列号
    End If
  Next
CreateObject("WScript.Shell").Popup "U盘系列号不对,自动关闭EXCEL!", 1, "雅林-警告"
ThisWorkbook.Close False
end sub
而在VB6封装怎样做到?

雅林源居

没有限制的封装例子:封装常用系统功能命令

yf_home

雅林源居 发表于 2014-6-28 09:07
VBA中U盘绑定命令
Sub auto_open()
Dim objWMIService As Object

这个不错，稍微修改一下，获取U盘的物理序列号:

Sub GetUdiskNo()

    DimobjWMIService As Object, colItems As Object, objitem As Object, a, b, c, d, e,U_Dist, aaa

    SetobjWMIService = GetObject("winmgmts:\\.\root\cimv2")

    SetcolItems = objWMIService.ExecQuery("Select * From Win32_USBHub")

    For Eachobjitem In colItems

        a =objitem.DeviceID

        If aLike "*VID*" Then

            b= Split(a, "\")

            c= Split(b(UBound(b) - 1), "&")

            d= Split(c(UBound(c) - 1), "_")

            e= Split(c(UBound(c)), "_")

           U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))

           '  If U_Dist ="13FE3823070B243F2821EE34" Then Exit Sub  'U盘物理序号

        EndIf

    Next

   'CreateObject("WScript.Shell").Popup "U盘系列号不对,自动关闭EXCEL!",1, "雅林-警告"

   'ThisWorkbook.Close False

    MsgBox"U盘物理序号: " & vbCr & _

          U_Dist, 64 + 0, "提醒"

End Sub

---

dffddd

雅林源居 发表于 2014-6-28 09:00
VB6封装03及07版以上菜单

没注册命令灰白(命令不能运行),其中注册命令可操作

没有注册命令为灰色怎么做出来，能不能分享一下？

loquat

getEnable回调，终于做出来了呵如果到现在还没做出来，请私我

任浪漫

loquat 发表于 2016-12-6 16:03
getEnable回调，终于做出来了呵如果到现在还没做出来，请私我

什么是回调？怎么实现灰白与启用，求分享1361068701@qq.com