locking.frm

包括密钥盘制作软件、LIB、DLL 加密模块 各种语言调用加密模块的例子程序、网络注册软件等

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "欢迎试用加密软件  http://Zlocksoft.com"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Run 
      Caption         =   "运行"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1560
      TabIndex        =   0
      Top             =   1080
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()           '程序一运行就判断是否注册

Dim I As Long
Dim lpBuffer As String * 10       '定义返回的字符串

 '调用判断是否注册函数，若返回值 Zhuce 为零说明注册成功
Zhuce = Testkey(30, lpBuffer, 0)    '可试用30天，试用期过后，若把系统时间改回来，可以运行

'Zhuce = Testkey(30, lpBuffer, 1)    '可试用30天，试用期过后，即使把系统时间改回来，也不能再运行

For I = 1 To 10
TestLock(I) = Asc(Mid(lpBuffer, I, 1))    '把返回的字符串转换为一数组供您程序中判断或使用，
Next                                      '若注册成功其值为 10 11 12 13 14 15 16 17 18 19

End Sub

Private Sub Run_Click()    '您的程序

Dim I As Long
Dim Myint As Long

If Zhuce = -1 Then               '如果 Zhuce=-1 说明软件没注册，并且试用期已满软件不能运行
I = MsgBox("请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 [e-mail] 换取注册文件。", , "软件没有注册，不能运行。")
End                            '加上终止退出软件的命令
End If                           '

If Zhuce > 0 Then              '说明软件虽没注册，但在试用期内，软件可以运行
I = MsgBox("请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 [e-mail] 换取注册文件。", , "软件没有注册，但在试用期内，软件可以试运行。")
End If                           '

If Zhuce = 0 Then              '如果 Zhuce=0 说明软件已注册，软件可以运行
MsgBox "软件可以运行"           '当然在您的软件中，不要显示该对话，软件直接运行即可。
End If

'
'             您的程序内容
'
'
'
'
If TestLock(1) = 10 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(2) = 11 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(3) = 12 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(4) = 13 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(5) = 14 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(6) = 15 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(7) = 16 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(8) = 17 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(9) = 18 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
If TestLock(10) = 19 Then                  '在您的软件中穿插判断数组值，以防软件被软解密
    MsgBox "数组值正确，软件可以运行"      '最好把数组值作为您程序中的变量
Else:
    MsgBox "数组值不对，软件不能运行"
    End
End If
'
'
'
'
'
'
Myint = TestLock(8) + 8      '假设 Myint 为您程序中的变量，其初值应为 25
'                            '把数组值 17 加上8，得 25 作为 Myint的 初值
'
'
'


End Sub