有谁用过VB+SafeNet软件狗开发的？有问题提问？

Question

我现在用VB和SafeNet做一套加密。
但是如何在模块中使用呢？
比如模块中：
Public Corp_Name As String下面是读狗的代码
    DogAddr = 20
    DogBytes = 30
    DogDataStr = "                              "
    Ret = DogRead_Str(DogBytes, DogAddr, DogDataStr)
    
    txtCropName = DogDataStr如何在模块中赋值Corp_Name=txtCropName 因为经常调用，所以想在模块中实现。

Answer 1

写一个函数public function a() as string
    DogAddr = 20 
    DogBytes = 30 
    DogDataStr = "                              " 
    Ret = DogRead_Str(DogBytes, DogAddr, DogDataStr) 
    
    txtCropName = DogDataStr 
    a = txtCropName
end function然后调用 a 试试Corp_name = a()